[ |../../index.htm#lansa/lansa048_4380.htm]
Visual LANSA フレームワーク ガイド > アドバンスド・トピック > サーバープロファイルの管理と発行 > サーバー接続の復元 > プログラムによるサーバー接続チェック > 例

例

EVTROUTINE HANDLING(#PHBN_1.Click)

• 基本
  invoke #avFrameworkManager.avCheckConnection ReturnValue(#df_elretc)
  if '#df_elretc *eq OK'
  invoke #Com_Owner.uSelectData
  endif
  ENDROUTINE
   
  EVTROUTINE HANDLING(#PHBN_2.Click)
• 沈黙 (未接続の場合は、再接続を 1 度試みる。ユーザーに何も通知する必要なし - このプログラムが通知)
  invoke #avFrameworkManager.avCheckConnection AttemptReconnect(TRUE) IssueMessages(FALSE) ActionOnFail(ABORT) ReturnValue(#df_elretc)
  if '#df_elretc *eq OK'
  invoke #Com_Owner.uSelectData
  else
  USE BUILTIN(Message_box_show) WITH_ARGS(*Default *Default *Default *Default 'My own message advising that connection is disabled')
  endif
  ENDROUTINE
   
  EVTROUTINE HANDLING(#PHBN_3.Click)
• 回復を 1 度試みることなく検知 - ActionOnFail は無意味となる
• TCPIP リンクが結果的に回復され (接続のためには再接続の試行が必要だと検知され) たとしても、
• ここは、スーパーサーバーとの接続が失われたかどうかを検知するのみ
  invoke #avFrameworkManager.avCheckConnection AttemptReconnect(FALSE) IssueMessages(TRUE) ActionOnFail(ABORT) ReturnValue(#df_elretc)
  if '#df_elretc *eq OK'
  invoke #Com_Owner.uSelectData
  endif
  ENDROUTINE
   
  EVTROUTINE HANDLING(#PHBN_4.Click)
• 再接続を 1 度試みるが失敗、ユーザーには再試行しないよう通知
  invoke #avFrameworkManager.avCheckConnection AttemptReconnect(TRUE) IssueMessages(TRUE) ActionOnFail(ABORT) ReturnValue(#df_elretc)
  if '#df_elretc *eq OK'
  invoke #Com_Owner.uSelectData
  endif
  ENDROUTINE
   
   
  [ |../../index.htm#lansa/lansa048_4380.htm]