variable_u.pas

来自「delphi实现 webservice的例子.有服务端和客户段 利用xml交互.」· PAS 代码 · 共 25 行

unit Variable_U;

interface
   uses
     IProductService_WAD1, Rio, SOAPHTTPClient,ProductBinding,forms;
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(Application);
    htpr1.URL :=ClientCFG.ServiceURL;
    Result := htpr1 as IProductService_WAD;
 end;
end.