Delphi 调用WebService 直接发送SOPA报文

Posted 2023-05-12

参考技术A 有一些WebService使用D7的HTTPRIO控件已经不能正常调用了，

这个时候可以直接使用HTTPReqResp控件直接发送报文，

或者使用TIdHTTP控件 http post方式请求 webservices soap 协议接口

函数示例：

HTTPReq: THTTPReqResp;

function TDM_Demo.WebSrvMain( In_fkey_XML,In_funccode,In_fparam_XML:String):String;

var

  DataMsg:WideString;

  strStream, strSend: TStringStream;

begin

//使用SOPAUI等工具获得标准示例报文DataMsg

  DataMsg:='<?xml version="1.0" encoding="utf-8"?>'+

  '<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"'+

  ' xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" '+

  'xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" '+

  'xmlns:xsd="http://www.w3.org/2001/XMLSchema">'+

'<SOAP-ENV:Body>'+

'<m:funMain xmlns:m="http://services.dtshis/">'+

'<In_fkey_XML><![CDATA['+In_fkey_XML+']]></In_fkey_XML>'+

'<In_funccode>'+In_funccode+'</In_funccode>'+

'<In_fparam_XML><![CDATA['+In_fparam_XML+']]></In_fparam_XML>'+

  '</m:funMain></SOAP-ENV:Body></SOAP-ENV:Envelope>';

  strStream := TStringStream.Create('');

  strSend := TStringStream.Create(AnsiToUtf8(DataMsg)); //Utf8转码

  try

    HTTPReq.url := ' 服务地址 ';

    HTTPReq.Execute(strSend, strStream);

    result := strStream.DataString;

    result := UTF8Decode(result);

//xml    < >  "  转码

    result := StringReplace(result,'<','<',[rfReplaceAll, rfIgnoreCase]);

    result := StringReplace(result,'>','>',[rfReplaceAll, rfIgnoreCase]);

    result := StringReplace(result,'"','"',[rfReplaceAll, rfIgnoreCase]);

//转为delphi XMLDocument 文档

    result := StringReplace(result,'<?xml version="1.0" encoding="UTF-8"?>',

      '<?xml version="1.0" encoding="gb2312"?>',[rfReplaceAll, rfIgnoreCase]);

  finally

    strStream.Free;

    strSend.Free;

  end;

end;

http  post方式请求 webservices  soap 协议接口

with IdHttp do

    begin

      ProtocolVersion := pv1_1;

      AllowCookies := True;

      ProxyParams.BasicAuthentication := False;

      ProxyParams.ProxyPort := 0;

      Request.ContentLength := -1;

      Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';

      Request.BasicAuthentication := False;

      Request.ContentType := 'application/x-www-form-urlencoded';

      HTTPOptions :=[hoKeepOrigProtocol, hoInProcessAuth];

      ReadTimeout:=5000;

    end;

    strSend.WriteString(DataMsg);

    result:=IdHttp.Post(sWSDLAddr,strSend);

java调用webservice接口实现发送短信？？？？？？

提供接口：http://124.42.126.246/GoComProtocol/GoComWebService.dll/wsdl/IGoComWebService

感觉没得一点头绪，望各位大侠多多指点啊！！

参考技术A 首先我访问不到你提供的webservice
你可以直接找那个给你webservice的人对他提供的方法进行询问
不知你是什么项目框架所以不能给出具体的方案，如果是spring的话直接在配置文件中进行配置就可。首先必须获得客户端以及地址，客户端提供的是接口的定义及规范，地址是要我们进行连接的。

例如：
<bean id="XXService" class="com.xx.客户端接口" factory-bean="XXServiceFactory" factory-method="create" />
<bean id="XXServiceFactory" class="org.apache.cxf.jaxws.JaxWsProxyFactoryBean">
<property name="serviceClass" value="com.xx.客户端接口" />
<property name="address" value="地址/>
</bean>
然后你就可以在你的业务层进行注入，这个是采用cxf的方式，当然也可以有其他方式追问

我就是用的spring ，但我不知道这里的地址指的是什么地址呀？？？？

追答

http://124.42.126.246/GoComProtocol/GoComWebService.dll/wsdl/IGoComWebService

本回答被提问者采纳