如何传递自定义 TRM
下面的代码示例演示如何 (TRM) 传递自定义事务请求消息。
' You must set the following references in your project:
' Microsoft.HostIntegration.TI.ClientContext.dll
' Microsoft.HostIntegration.TI.Globals.dll
Imports Microsoft.HostIntegration.TI
Dim ELMINsend As TIComponent.ELMINStructure
Dim ELMOUTreturn As TIComponent.ELMOUTStructure
Dim TIContext As New ClientContext
ELMINsend.progname = "CUSELM01"
ELMINsend.member1 = "CE01,"
ELMINsend.member2 = "AAAAAAAAAA"
ELMINsend.member3 = CShort(2)
ELMINsend.member4 = " "
ELMOUTreturn.member1 = CShort(0)
ELMOUTreturn.member2 = ""
TIContext.TransportHeaders.HeaderToBeforeDataSent = ELMINsend
TIContext.TransportHeaders.HeaderFromAfterDataSent = ELMOUTreturn
RunObj.MethodCall(parameter1, TIContext)
另请参阅
ClearAllContext
CountContext
DeleteContext
QueryContextInfo
ReadContext
WriteContext
用 COMTIContext 自定义 TRM 和 ELM