在delphi程序(作为服务运行)中,我需要调用一些web服务.
如果不重新修改基本身份验证,则调用可以正常工作.如果重新获得基本身份验证并且使用以下方式提供用户名/密码(在BeforePost中),则调用也可以正常工作:
InternetSetOption(Data, INTERNET_OPTION_USERNAME,...
InternetSetOption(Data, INTERNET_OPTION_PASSWORD,...
但是如果基本身份验证被重新获得,并且没有提供用户名/密码,则程序会提示输入用户名/密码(即服务中的NO-GO).
那么我怎么能发出信号,我不想要提示,而是一个错误？
问题是,正如我可以看到的,在SOAPHTTPTrans函数中THTTPReqResp.Send(const ASrc:TStream):Integer; (第762行(第二次调用InternetErrorDlg i那个方法)).
EDIT1:
如果我在发送方法的开头(在SOAPHTTPTRANS中)更改Flags以包含INTERNET_FLAG_NO_AUTH,它可以正常工作.
但是如何在不改变SAOPHTTPTrans的情况下做到这一点(如果可能的话)？
EDIT2:
ws := THTTPRIO.Create(Self);
ws.URL := 'http://excample.com/ws.asmx';
ws.HTTPWebNode.InvokeOptions := [soIgnoreInvalidCerts];
ws.HTTPWebNode.OnBeforePost := WebServiceCallBeforePost;
AvailabilityWebservice := (ws as AvailabilityServiceSoap);
sTemp := AvailabilityWebservice.GetVersion;
其中AvailabilityServiceSoap是使用WSDL导入程序生成的接口.