variable_u.~pas

delphi实现 webservice的例子.有服务端和客户段 利用xml交互.

unit Variable_U;

interface
   uses
     IProductService_WAD1, Rio, SOAPHTTPClient,ProductBinding;
type
  TClientCFG=record
   ServiceURL :string;
   ServiceID :string;
   UserID:string;
  end;
  function GetService:IProductService_WAD;
 var
  ClientCFG :TClientCFG;
  htpr1: THTTPRIO;
  
implementation
 function GetService:IProductService_WAD;
 begin
    if htpr1=nil then htpr1 :=THTTPRIO.Create(nil);
    htpr1.URL :=ClientCFG.ServiceURL;
    Result := htpr1 as IProductService_WAD;
 end;
end.