2.28.2.9 ActiveXのエラー・トラップ

ActiveXのエラー・トラップの考え方を説明する例を以下に示します。コードをコピーして、RDMLXを使用可能にしたフォームに貼り付け、コンパイルして実行してください。

考え方を理解するには、コードのコメントを確認してください。

設定方法

1.  ActiveXのComponentOnFailureプロパティを設定します。

2.  コードでエラーをトラップします。

3.  ActiveXのComponentOnFailureプロパティを「SignalError」に設定します。

ErrorTrapping

*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