Call the webservice need to enter account and password-CodePudding

 var 
//request 
The Req: request; 
ReqA: MT_OTMS2DX_Record_Input; 
//conversion date 
DDate: TXSDate; 
SDate: TDateTime; 
WYear WMonth, WDay: Word; 
//request 
SoapA: MI_OTMS_REQUEST; 
UsHTTPRIO: THTTPRIO; 
//response 
Res: row; 
ResA: MT_DX_OTMS_READ; 
The begin 
SDate:=Now; 
DecodeDate (SDate WYear, WMonth WDay); 

DDate:=TXSDate. Create; 
DDate. Day:=1; 

ShowMessage (IntToStr (WDay)); 

The Req:=request. Create; 
The Req. DOC_DATE:=DDate; 
The Req. YUNDANHAO:=' '; 
Setlength (Reqa, 1); 
Reqa [0] :=the Req. 
//create a HTTPRIO for account and password 

UsHTTPRIO:=THTTPRIO. Create (nil); 

UsHTTPRIO. HTTPWebNode. UserName:='UserName'; 
UsHTTPRIO. HTTPWebNode. Password:='Password'; 



SoapA:=GetMI_OTMS_REQUEST (True, StrUrl, HTTPRIO1); 
//create the response of 
Res:=row. The Create; 
SoapA. MI_OTMS_REQUEST (Reqa);

On not account and password, or tip need to enter account and password

Enter account and password junior tip: Interface not supported.

Question:
1. How could you set the account and password in your code, not in the popup window;
2. Interface not supported. Because the account number and password login problem?