delphi 웹 서비스 호출

오늘날 웹 서비스는 갈수록 뜨거워지고 있다. DotNet이 개발한 웹 서비스에서Delphi 7은 어떻게 DotNet이 쓴 웹 서비스를 편리하게 호출할 수 있을까?방법은 두 가지가 있는데 하나는 Delphi 7에서 WSDLImp 도구가 DotNet에서 쓴 웹 서비스를 Interface 단원 파일로 바꾸는 것이고, 다른 하나는 MS가 제공하는 Microsoft Soap Toolkit(MST) 도구로 바꾸는 것이다.다음은 WSDLImp 도구로 C#을 호출하여 간단한 웹 서비스를 쓰는 것입니다. VS.Net 도구를 시작하고 C# 프로젝트에서 ASP를 선택하십시오.Net 웹 서비스, 코드에 [WebMethod] 쓰기

  public double add(double s1, double s2)
  {
    return s1+s2;
  }

부품 생성 후 IE에 입력http://localhost/ASPNETWS/Service1.asmxdd 링크를 볼 수 있습니다. 들어가서 테스트를 호출하십시오. 예를 들어 s1 34, s2 235.34를 입력하면 호출됩니다.

<?xml version="1.0" encoding="utf-8" ?>
  <double xmlns="http://tempuri.org/">269.34000000000003</double>

입력http://localhost/ASPNETWS/Service1.asmx?WSDL, WSDL 유닛 테스트가 성공한 후 Delphi 7의 Bin 디렉터리에서 WSDLImp.를 찾을 수 있습니다.exe 도구를 복사하고 명령 프롬프트에 WSDLImp을 입력합니다.http://localhost/ASPNETWS/Service1.asmx?WSDL현재 디렉토리에 Service가 생성됩니다.pas 파일, Delphi에서 사용할 Interface 파일입니다.Delphi 7을 시작하고 Application 프로젝트를 새로 만들고 TButton 구성 요소를 넣습니다.uses에InvokeRegistry,Rio,SOAPHTTPClient,서비스1을 추가;

procedure TForm1.btn_CShapWSClick(Sender: TObject);
var
    WSResult: Double;
    WSIServer: Service1Soap;
begin
  WSIServer:= GetService1Soap(true,'',HTTPRIO1);
  WSResult:= WSIServer.add(23,342.234);
  showmessage('WSResult: '+ FloatToStr(WSResult));
end;