Q：
外部プロシージャを呼び出すときのHDevEngineの使用方法について教えてほしい。


A:
コードサンプルを示します。
 

VB

'pass指定
Dim halconExamples As String = Environment.GetEnvironmentVariable("HALCONEXAMPLES")
If (halconExamples = "") Then
    halconExamples = Environment.GetEnvironmentVariable("HALCONROOT") & "\examples"
End If
Dim ProcedurePath As String = halconExamples & "\hdevengine\procedures"
 
'宣言
Dim MyEngine As New HDevEngine()
Dim ProcCall As HDevProcedureCall

'passの設定
Call MyEngine.SetProcedurePath(ProcedurePath)

'プロシージャの読み込み
Dim Procedure As New HDevProcedure("プロシージャ名")
ProcCall = New HDevProcedureCall(Procedure)

'実行
ProcCall.Execute()

 

 C#

'pass指定
string halconExamples = HSystem.GetSystem("example_dir");
string ProcedurePath = halconExamples + @"\hdevengine\procedures";

'宣言
HDevEngine MyEngine = new HDevEngine();
HDevProcedureCall ProcCall;

'passの設定
MyEngine.SetProcedurePath("ProcedurePath");

'プロシージャの読み込み
HDevProcedure Procedure = new HDevProcedure("プロシージャ名");
ProcCall = new HDevProcedureCall(Procedure);

'実行
ProcCall.Execute();