[ 
|../../index.htm#lansa/l4wdev07_0340.htm]
現在地:
2.29.1.9 ActiveXのエラー・トラップ
ActiveXのエラー・トラップの考え方を説明する例を以下に示します。コードをコピーして、RDMLXを使用可能にしたフォームに貼り付け、コンパイルして実行してください。
考え方を理解するには、コードのコメントを確認してください。
設定方法
1. ActiveXのComponentOnFailureプロパティを設定します。
2. コードでエラーをトラップします。
3. ActiveXのComponentOnFailureプロパティを「SignalError」に設定します。
*Trap error in code
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(376) Clientwidth(208) Height(414) Left(295) Top(178) Width(224)
Define_Com Class(#PRIM_PHBN) Name(#StartWord) Caption('Start Word') Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(8) Width(193)
Define_Com Class(#PRIM_PHBN) Name(#CreateDocument) Caption('Create Document') Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(40) Width(193)
Define_Com Class(#PRIM_PHBN) Name(#FindBookmark) Caption('Access Bookmark') Displayposition(3) Left(8) Parent(#COM_OWNER) Tabposition(3) Top(72) Width(193)
Define_Com Class(#va_word.Application) Name(#Word) Reference(*dynamic)
Define_Com Class(#va_word.Document) Name(#ActiveDocument) Reference(*dynamic)
Define_Com Class(#va_word.Bookmarks) Name(#Bookmarks) Reference(*dynamic)
Evtroutine Handling(#StartWord.Click)
- Start an instance of word
Set_Ref Com(#Word) To(*Create_as #va_word)
Endroutine
Evtroutine Handling(#CreateDocument.Click)
If (#Word *IsNot *null)
If (#ActiveDocument *Is *null)
- Open a new document
#ActiveDocument <= #Word.Documents.Add
- Get the reference to the Bookmarks of the Active Document
- This is necessary to be able to listen to the activeX errors
#Bookmarks <= #ActiveDocument.Bookmarks
Else
Use Builtin(ov_message_box) With_Args("Document Aleady Exists")
Endif
Else
Use Builtin(ov_message_box) With_Args("Word Has Not Yet been Started")
Endif
Endroutine
Evtroutine Handling(#FindBookmark.Click)
Define_Com Class(#va_word.Bookmark) Name(#Bookmark) Reference(*dynamic)
- Ensure there is an Active Document
If (#ActiveDocument *IsNot *null)
- Try to access a bookmark
- As this is a new document there will be no bookmarks
- This will generate an ActiveX error on Bookmarks ONLY
#Bookmark <= #Bookmarks<1>
Else
Use Builtin(Ov_message_box) With_Args("There Is No Active Document")
Endif
Endroutine
Evtroutine Handling(#Word.ComponentError)
- This routine will never fire. The bookmark error is specific to the Bookmark instance
Use Builtin(Message_Box_Add) With_Args("Error on Word")
Use Builtin(Message_Box_Add) With_Args(#Com_err_info.ErrorWord)
Use Builtin(Message_Box_Show)
Endroutine
Evtroutine Handling(#Bookmarks.ComponentError)
Use Builtin(Message_Box_Add) With_Args("Error on Bookmarks")
Use Builtin(Message_Box_Add) With_Args(#Com_err_info.ErrorWord)
Use Builtin(Message_Box_Show)
Endroutine
Evtroutine Handling(#Com_Owner.Closing)
- Drop all references and ensure Word quits correctly
#Word.Documents.Close
If (#Word *IsNot *null)
#Word.Quit
Endif
Endroutine
End_Com
背景に関する注意事項
LANSAの実行時エラーを処理するには、LANSAによって生成されたエラーと、ActiveXコントロールによって生成されたエラーの違いを理解する必要があります。
次のコード・サンプルを見てみましょう。
Function Options(*DIRECT) Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(313) Clientwidth(492) Define_Com Class(#PRIM_STBR) Name(#STBR_1) Displayposition(1) Height(24) Left(0) Messageposition(1) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(278) Width(484) Define_Com Class(#VA_WORD.Application) Name(#VA_WORD) Evtroutine Handling(#com_owner.Initialize) Message Msgtxt("Throwing ActiveX error") #VA_WORD.ComponentOnFailure := SignalError If (#VA_WORD.ActiveDocument.Bookmarks.Exists( " ERROR" )) Endif Endroutine Evtroutine Handling(#VA_WORD.ComponentError) Options(*NOCLEARMESSAGES *NOCLEARERRORS) Message Msgtxt(("Catching ActiveX error").BlankConcat( #COM_ERR_INFO.ErrorCode.AsString )) #COM_ERR_INFO.Clear Endroutine End_Com
上の例では、initializeイベントがWord.ActiveDocument.Bookmarksを参照しています。しかし、ActiveDocumentがない場合(ドキュメントを明示的に作成しても開いてもいない場合)、WordのActiveDocument参照はnullになります。つまり、Visual LANSAランタイムがWordのActiveDocumentプロパティにアクセスを試みた瞬間に、Word.ActiveDocumentがnullであるというエラーがLANSAによって生成されます。
initializeイベントが以下のようになっていれば、エラーは発生していませんでした。 - Add a new (active) document. #VA_Word.Add If (#VA_word.ActiveDocument.Bookmarks.Exists("Etc") etc.
したがって、別のインスタンスを参照する機能にアクセスを試みる前に、適切な防御用コードを含めるようにするのは、開発者の責任です。
If (#Word.ActiveDocument *isnot *null) If (#VA_word.ActiveDocument.Bookmarks.Exists("Error") etc. else Use OV_message_box ("There is no Active Document") Endif
このコードで、LANSAによって生成される実行時エラーは回避されるようになりましたが、VA_WORDをリスニングすることで発生するActiveXエラーは依然として検出できません。ブックマークが存在しない場合のActiveXエラーは、Bookmarks機能に属するからです。したがって、コードに特殊な参照を設定する必要があります。
Define_Com Class(#va_word.Application) Name(#Word) Reference(*dynamic) Define_Com Class(#va_word.Document) Name(#ActiveDocument) Reference(*dynamic) Define_Com Class(#va_word.Bookmarks) Name(#Bookmarks) Reference(*dynamic) Evtroutine #Com_owner.CreateInstance * Start Word Set_Ref Com(#Word) To(*Create_as #va_word) * Create a new document and store the reference #ActiveDocument <= #Word.Documents.Add #Bookmarks <= #ActiveDocument.Bookmarks Endroutine
ここで、存在しないブックマークへのアクセスを試みると、Wordによって生成されたエラーを以下のように検出できます。
Evtroutine Handling(#Bookmarks.ComponentError) Use Builtin(Message_Box_Add) With_Args("Error on Bookmarks") Use Builtin(Message_Box_Add) With_Args(#Com_err_info.ErrorWord) Use Builtin(Message_Box_Show) Endroutine
[ |../../index.htm#lansa/l4wdev07_0340.htm]