ipeerrecipeclient.pas

来自「一个老外写的P2P例子...有点简单」· PAS 代码 · 共 32 行

unit IPeerRecipeClient;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns, PeerRecipeIntf;

function GetIPeerRecipe(Addr: string; HTTPRIO: THTTPRIO = nil): IPeerRecipe;

implementation

function GetIPeerRecipe(Addr: string; HTTPRIO: THTTPRIO = nil): IPeerRecipe;
const
  defSvc  = 'IPeerRecipeservice';
  defPrt  = 'IPeerRecipePort';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as IPeerRecipe);
    RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

end.