string userName="123";
String paw="123";
WST ws=new WST ();
Ws. Credentials=new NetworkCredential (userName, paw, "aaa");
String resp.=ws WSTEST (" 321 ");
Using Delphi call just set the user name password
function GetWST_Port (UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO) : WST_Port;
Const
DefWSDL=' ';
DefURL=' ';
WST defSvc=' ';
DefPrt='WST_Port';
Var
RIO: THTTPRIO;
The begin
Result:=nil;
If (Addr=' ') then
The begin
If UseWSDL then
Addr:=defWSDL
The else
Addr:=defURL;
end;
If HTTPRIO=nil then
RIO:=THTTPRIO. Create (nil)
The else
RIO:=HTTPRIO;
Try
Result:=(RIO as WST_Port);
If UseWSDL then
The begin
RIO. WSDLLocation:=Addr;
RIO. Service:=defSvc;
RIO. Port:=defPrt;
LTD HTTPWebNode. UserName:='123';
LTD HTTPWebNode. Password:='123';
End
The else
LTD URL:=Addr;
The finally
If (Result=nil) and (HTTPRIO=nil) then
RIO. Free;
end;
end;
There is also a domain parameters of how to set?