メッセージ待ち行列

祖先 - ブジェクト (PRIM_OBJT)

詳細

メッセージキューは、 SYS_MSGQ オブジェクトを介してアプリケーションの実行中に生成されたすべてのメッセージへのアクセスを提供します。
 
メッセージは、リポジトリの検証規則やMESSAGEコマンドなど、さまざまな手段によって生成されます。
 
サーバー上で生成されたメッセージは自動的にクライアントにルーティングされます。

例

この例では、ユーザー ID とパスワードの検証時にコンテキスト・メッセージが UI に直接追加されます。

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(448) Width(721) Theme(#SYS_THEME<2015LightGreen>)
 
   Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Column(#Column1) Manage(#Messages) Parent(#TableLayout1) Row(#Row1) Sizing(None)
   Define_Com Class(#xDemoPassword.Visual) Name(#gPassword) Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(40) Width(385) Height(25)
   Define_Com Class(#xDemoAlpha128.Visual) Name(#gUserID) Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(8) Width(385) Height(25) Caption('UserID') Labeltype(Caption)
   Define_Com Class(#PRIM_PHBN) Name(#OK) Displayposition(4) Left(312) Parent(#COM_OWNER) Tabposition(4) Top(80) Caption('OK') Buttondefault(True)
   Define_Com Class(#xDemoWebMessagesPopup) Name(#Messages) Height(248) Parent(#COM_OWNER) Width(393) Left(164) Top(100) Autoclose(True)
 
   Evtroutine Handling(#OK.Click)
 
      #Com_owner.Validate
 
 Endroutine
 
   Mthroutine Name(Validate)
 
      #sys_msgq.Clearall
 
      If (#gUserID.uppercase <> USER)
         #sys_msgq.Add( "Username is invalid" #gUserID )
 Endif
 
      If (#gPassword = "")
         #sys_msgq.Add( "Password cannot be blank" #gPassword )
 Endif
 
      If (#gPassword.uppercase <> PASSWORD)
         #sys_msgq.Add( ("Password is invalid for user &1").Substitute( #gUserID ) #gPassword )
 Endif
 
      If (*Not #Sys_Msgq.Messages.IsEmpty)
         #Messages.Show
 Endif
 
 Endroutine
 
 End_Com

ﾌﾟﾛﾊﾟﾃｨ

イベント

ﾒｿｯﾄﾞ

参照

すべてのコンポーネント クラス

テクニカルリファレンス

2018 - V14SP1