var
//請求
Req:request;
ReqA:MT_OTMS2DX_Record_Input;
//轉換日期
DDate:TXSDate;
SDate: TDateTime;
WYear, WMonth, WDay: Word;
//請求
SoapA:MI_OTMS_REQUEST;
UsHTTPRIO:THTTPRIO;
//回應
res:row;
resA:MT_DX_OTMS_READ;
begin
SDate := Now;
DecodeDate(SDate, WYear, WMonth, WDay);
DDate := TXSDate.Create;
DDate.Day := 1;
ShowMessage(IntToStr(WDay));
Req := request.Create;
Req.DOC_DATE := DDate;
Req.YUNDANHAO := '';
setlength(Reqa,1);
Reqa[0] := Req;
//創建一個HTTPRIO 用于放賬號和密碼
UsHTTPRIO:=THTTPRIO.Create(nil);
UsHTTPRIO.HTTPWebNode.UserName:='USERNAME';
UsHTTPRIO.HTTPWebNode.Password:='PASSWORD';
SoapA:=GetMI_OTMS_REQUEST(True,StrUrl,HTTPRIO1);
//創建回應的
res:=row.Create;
SoapA.MI_OTMS_REQUEST(Reqa);
上面放賬號和密碼不行,還是提示需要輸入賬號和密碼
輸入賬號和密碼后進提示:Interface not supported.
問題:
1.怎么能在代碼中設定賬號和密碼,不在在彈窗出來;
2.Interface not supported.是因為賬號和密碼登錄問題嗎?
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/55094.html