1,593
社区成员
发帖
与我相关
我的任务
分享
procedure TMainForm.Button5Click(Sender: TObject);
var
ret: String;
aHTTPRIO: THTTPRIO;
begin
aHTTPRIO := THTTPRIO.Create(nil);
aHTTPRIO.URL := 'http://www.webxml.com.cn/WebServices/WeatherWebService.asmx?wsdl';
aHTTPRIO.HTTPWebNode.UseUTF8InHeader := True;
aHTTPRIO.OnBeforeExecute := onMyBeforeExecute; //HTTPRIO1BeforeExecute;
try
ret:=(aHTTPRIO as WeatherWebServiceSoap).getWeatherbyCityName('58367');
ShowMessage(ret);
finally
FreeAndNil(aHTTPRIO);
end;
end;
procedure TMainForm.onMyBeforeExecute(const MethodName: String;
var SOAPRequest: WideString);
var
sTmp: WideString;
begin
inherited;
sTmp := SOAPRequest;
StringReplace(sTmp, '58367', '111',[RfReplaceAll]);
SOAPRequest := sTmp;
//ShowMessage('onMyBeforeExecute');
//Memo1.Clear;
Memo1.Lines.Append('---------' + MethodName + '---------');
Memo1.Lines.Append(SOAPRequest);
end;