RPC und Delphi 2009

[alphaflight83]

Die Antwort wird dir wahrscheinlich nicht sehr viel bringen, da ich zur komplizierten Seite, dem Server leider gar nichts sagen kann,
da das ein Kollege in Python geschrieben hat.
Der Aufruf auf Client-Seite ist simpel, da nur die Eigenschaften EndPoint, ObjectMethod sowie Ip-Adresse und Port benötigt werden.

Beispiel-Aufruf:
Das Programm würde hier eine Beschreibung zu einem Item anhand seiner ItemID aus einer serverseitig hinterlegten Liste holen.
(Wie gesagt, die eigentliche Logik steckt dabei im Serverprogramm.)

Delphi-Quellcode:

(**********************************
** Function: RPC_ItemDescription **
**********************************)
function RPC_ItemDescription (IP_Address: String; TCP_Port, ItemID : Integer):LongInt;
var
  RpcCaller    : TRpcCaller;
  RpcFunction  : IRpcFunction;
  RpcResult    : IRpcResult;
begin
  RpcCaller := TRpcCaller.Create;
  try
    RpcCaller.EndPoint := '/RPC2';
    RpcCaller.HostName := IP_Address;
    RpcCaller.HostPort := TCP_Port;

    RpcFunction              := TRpcFunction.Create;
    RpcFunction.ObjectMethod := 'get_item_descr';
    RpcFunction.AddItem        (ItemID);

    RpcResult := RpcCaller.Execute(RpcFunction);
    Result := RpcResult.AsInteger;
  finally
    RpcCaller.Free;
  end;
end;