1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

function Getxxx(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): xxx;
const
  defWSDL = 'https://xxx?wsdl';
  defURL  = 'https://xxx';
  defSvc  = 'xxxService';
  defPrt  = 'xxxPort';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as xxx);
      RIO.HTTPWebNode.UserName:='xxx';
      RIO.HTTPWebNode.Password:='xxx';
      RIO.HTTPWebNode.ProxybyPass:='111.111.111.111:8080';

    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;

  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;