You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Current »

[ |../../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]
  • No labels