<
Von Version < 11.1 >
bearbeitet von S V
am 2022/08/05 13:34
Auf Version < 13.1 >
bearbeitet von S V
am 2022/08/05 14:50
>
Änderungskommentar: Es gibt keinen Kommentar für diese Version

Zusammenfassung

Details

Seiteneigenschaften
Inhalt
... ... @@ -70,117 +70,48 @@
70 70  |(% style="width:191px" %)CallbackRoutingKey|(% style="width:158px" %)string|(% style="width:1015px" %)Die CallBack Funktionalität muss nicht konfiguriert werden
71 71  |(% style="width:191px" %)ConnectionString|(% style="width:158px" %)string|(% style="width:1015px" %)In dieser Variable werden die Werte der Verbindung zum AESB gespeichert
72 72  
73 -(((
74 -{{{var}}}
75 -)))
73 +{{code language="None"}}
74 +var
75 + Protocol: TProtocolType = '0';
76 + ConnectionTimeout: String = '30';
77 + ExchangeType: TExchangeType = 'Routing';
78 + OptionalParameters: TStrings = '';                                                                      
79 + ResultMessages: TStrings = '';
80 + AAckMessages: string = '';
81 + AResult: string = '';
82 + AErrorCode: Integer = 0;
83 + Result: Integer = 0;
76 76  
77 -(((
78 -{{{ Protocol: TProtocolType = '0';}}}
79 -)))
85 +const
86 + Server: string = 'ACMP-SERVER';
87 + Port: string = '3900';
88 + Username: string = 'Operator';
89 + Passwort: string = 'operator';
90 + TargetConnectionVariable: string = '';
91 + ConnectionString: string = '';
92 + MessageID: string = '{0F910571-4216-4C7A-9031-A7BCA0F03D5B}';
93 + VirtualRouter: string = 'VCMN';
94 + RoutingKey: string = '?.Aagon.Components.ACMPServer.*';
95 + Tag: string = 'ICQL';
96 + MessageBody: string = '<ICQL><ACMP><EnqueueClientCommand version="1">' +               
80 80  
81 -(((
82 -{{{ ConnectionTimeout: String = '30';}}}
83 -)))
98 + '<TEnqueueClientCommandRequest_V1 xmlns:xsi="http:~/~/www.w3.org/2001/XMLSchema-instance">' +
84 84  
85 -(((
86 -{{{ ExchangeType: TExchangeType = 'Routing';}}}
87 -)))
100 + '<ClientId>%ClientID´%</ClientId>' +
88 88  
89 -(((
90 -{{{ OptionalParameters: TStrings = ''; }}}
91 -)))
102 + '<ClientCommandId>%ClientCommandID%</ClientCommandId>' +   
92 92  
93 -(((
94 -{{{ ResultMessages: TStrings = '';}}}
95 -)))
104 + '</TEnqueueClientCommandRequest_V1></EnqueueClientCommand></ACMP></ICQL>';
96 96  
97 -(((
98 -{{{ AAckMessages: string = '';}}}
99 -)))
106 + CallbackVirtualRouter: string = '';
107 + CallbackRoutingKey: string = '';
108 +{{/code}}
100 100  
101 -(((
102 -{{{ AResult: string = '';}}}
103 -)))
104 -
105 -(((
106 -{{{ AErrorCode: Integer = 0;}}}
107 -)))
108 -
109 -(((
110 -{{{ Result: Integer = 0;}}}
111 -)))
112 -
113 -(((
114 -{{{const}}}
115 -)))
116 -
117 -(((
118 -{{{ Server: string = 'ACMP-SERVER';}}}
119 -)))
120 -
121 -(((
122 -{{{ Port: string = '3900';}}}
123 -)))
124 -
125 -(((
126 -{{{ Username: string = 'Operator';}}}
127 -)))
128 -
129 -(((
130 -{{{ Passwort: string = 'operator';}}}
131 -)))
132 -
133 -(((
134 -{{{ TargetConnectionVariable: string = '';}}}
135 -)))
136 -
137 -(((
138 -{{{ ConnectionString: string = '';}}}
139 -)))
140 -
141 -(((
142 -{{{ MessageID: string = '{0F910571-4216-4C7A-9031-A7BCA0F03D5B}';}}}
143 -)))
144 -
145 -(((
146 -{{{ VirtualRouter: string = 'VCMN';}}}
147 -)))
148 -
149 -(((
150 -{{{ RoutingKey: string = '?.Aagon.Components.ACMPServer.*';}}}
151 -)))
152 -
153 -(((
154 -{{{ Tag: string = 'ICQL';}}}
155 -)))
156 -
157 -(((
158 -{{{ MessageBody: string = '<ICQL><ACMP><EnqueueClientCommand version="1">' + }}}
159 -)))
160 -
161 -(((
162 -{{{ '<TEnqueueClientCommandRequest_V1 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">' +}}}
163 -)))
164 -
165 -(((
166 -{{{ '<ClientId>%ClientID´%</ClientId>' + }}}
167 -)))
168 -
169 -(((
170 -{{{ '<ClientCommandId>%ClientCommandID%</ClientCommandId>' + }}}
171 -)))
172 -
173 -(((
174 -{{{ '</TEnqueueClientCommandRequest_V1></EnqueueClientCommand></ACMP></ICQL>';}}}
175 -)))
176 -
177 -{{{ CallbackVirtualRouter: string = '';
178 -
179 - CallbackRoutingKey: string = ''; }}}
180 -
181 181  Nachdem Sie alle notwendigen Variablen und Konstanten angelegt und mit Werten gefüllt haben, rufen Sie nach dem Begin die Prozedur AddSICSConnection wie folgt auf:
182 182  
183 -{{{AddSICSConnection(%Protocol%, %Server%, %Port%, %Username%, %Passwort%, %ConnectionTimeout%, %TargetConnectionVariable%);}}}
112 +{{code language="None"}}
113 +AddSICSConnection~(%Protocol%, %Server%, %Port%,  %Username%, %Passwort%, %ConnectionTimeout%, %TargetConnectionVariable%);
114 +{{/code}}
184 184  
185 185  {{aagon.infobox}}
186 186  Beachten Sie, dass Sie die Konstanten Server, Port, Username und Passwort an Ihre Umgebung anpassen.
... ... @@ -190,16 +190,14 @@
190 190  
191 191   Nachdem Sie die AESB-Verbindung hinzugefügt haben, lesen Sie den Inhalt der Projektvariable %TargetConnectionVariable% mit GetVarContent() wie folgt aus und speichern die Werte in der Konstante %ConnectionString%:
192 192  
193 -{{{ConnectionString := GetVarContent(%TargetConnectionVariable%);}}}
124 +{{code language="None"}}
125 +ConnectionString := GetVarContent(%TargetConnectionVariable%);
126 +{{/code}}
194 194  
195 195  Speichern Sie nun das Ergebnis mit der Funktion SICSPublish:
196 196  
197 -{{{Result := SICSPublish(%ConnectionString%, %MessageID%, %VirtualRouter%, %RoutingKey%, %ExchangeType%,
198 -%Tag%, %MessageBody%, %CallbackVirtualRouter%, %CallbackRoutingKey%, %OptionalParameter%, %ResultMessages%, %AAckMessage%, %AResult%, %AErrorCode%);}}}
130 +{{code language="None"}}
131 +Result := SICSPublish(%ConnectionString%, %MessageID%, %VirtualRouter%, %RoutingKey%, %ExchangeType%, %Tag%, %MessageBody%, %CallbackVirtualRouter%, %CallbackRoutingKey%, %OptionalParameter%, %ResultMessages%, %AAckMessage%, %AResult%, %AErrorCode%);
132 +{{/code}}
199 199  
200 200  Geben Sie die beiden TStrings OptionalParameters sowie ResultMessages wieder frei %OptionalParameters%.free; und %ResultMessages%.free;
201 -
202 -
203 -
204 -
205 -

Navigation

© Aagon GmbH 2024
Besuchen Sie unsere neue Aagon-Community