Hier ist ein Beispiel wie es auch mit der eingebauten
XML-RPC funktionalität gehn sollte ...
Benutzt werden:
RtcHttpClient: TRtcHttpClient;
RtcClientModule: TRtcClientModule;
RtcResult: TRtcResult;
Delphi-Quellcode:
with RtcHttpClient do begin
ServerAddr := AnsiString(IP_Address);
ServerPort := AnsiString(IntToStr(TCP_Port));
// UseWinHTTP := True;
AutoConnect:=True;
end;
with RtcClientModule do begin
ModuleFilename := '/RPC2';
ModuleHost := AnsiString(IP_Address);
DataFormat := fmt_XMLRPC;
with Data.NewFunction('get_item_descr') do // <methodcall><methodname>
with newArray('params') do // <params>
asInteger[0]:=123; // <param><value><int>
Call(RtcResult); // <- raus damit
end;
Da RTC
SDK komponenten event-basierts sind, kommt das resultat in das OnResult event von der RtcResult komponente.
Übrigens ... die "Data.toXMLRPCRequest" funktion kann mann vor dem "Call()" beutzen um zu testen wie das
XML-RPC string aussieht das an den Server geschickt wird.
MfG,
Danijel Tkalcec