delphi调用CXF写的WebService出现的问题 希望各位高人解释

bobo415 2011-08-03 04:55:30
第一个问题
最简单的sayHello demo
接口文件注释下面这句后 调用就正常了 那位能解释下
// InvRegistry.RegisterInvokeOptions(TypeInfo(HelloWorld), ioDocument);
...全文
136 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
bobo415 2011-08-03
  • 打赏
  • 举报
回复
这个delphi客户端的调用部分怎么写?
bobo415 2011-08-03
  • 打赏
  • 举报
回复
delphi通过WSDL Importer生成的接口文件:
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://10.0.1.130:8090/memberService?wsdl
// >Import : http://10.0.1.130:8090/memberService?wsdl=MemberService.wsdl
// Encoding : UTF-8
// Version : 1.0
// (2011-8-3 17:02:19 - 1.33.2.5)
// ************************************************************************ //

unit memberService1;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

// ************************************************************************ //
// The following types, referred to in the WSDL document are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in the document. The types from the latter category
// typically map to predefined/known XML or Borland types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
// !:string - "http://www.w3.org/2001/XMLSchema"

getMemberMessageResponse = class; { "http://inter.www.lianwang.com/" }
getMemberMessage = class; { "http://inter.www.lianwang.com/" }



// ************************************************************************ //
// Namespace : http://inter.www.lianwang.com/
// ************************************************************************ //
getMemberMessageResponse = class(TRemotable)
private
Freturn: WideString;
published
property return: WideString read Freturn write Freturn;
end;



// ************************************************************************ //
// Namespace : http://inter.www.lianwang.com/
// ************************************************************************ //
getMemberMessage = class(TRemotable)
private
Farg0: WideString;
published
property arg0: WideString read Farg0 write Farg0;
end;


// ************************************************************************ //
// Namespace : http://inter.www.lianwang.com/
// binding : MemberServiceImplServiceSoapBinding
// service : MemberServiceImplService
// port : MemberServiceImplPort
// URL : http://10.0.1.130:8090/memberService
// ************************************************************************ //
MemberService = interface(IInvokable)
['{1FBCD36F-3A6F-66E3-FA64-5C11A313AB63}']
function getMemberMessage(const parameters: getMemberMessage): getMemberMessageResponse; stdcall;
end;

function GetMemberService(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): MemberService;


implementation

function GetMemberService(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): MemberService;
const
defWSDL = 'http://10.0.1.130:8090/memberService?wsdl';
defURL = 'http://10.0.1.130:8090/memberService';
defSvc = 'MemberServiceImplService';
defPrt = 'MemberServiceImplPort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as MemberService);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;


initialization
InvRegistry.RegisterInterface(TypeInfo(MemberService), 'http://inter.www.lianwang.com/', 'UTF-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(MemberService), '');
RemClassRegistry.RegisterXSClass(getMemberMessageResponse, 'http://inter.www.lianwang.com/', 'getMemberMessageResponse');
RemClassRegistry.RegisterXSClass(getMemberMessage, 'http://inter.www.lianwang.com/', 'getMemberMessage');

end.

bobo415 2011-08-03
  • 打赏
  • 举报
回复
第二个问题:
wsdl:
  <?xml version="1.0" encoding="UTF-8" ?> 
- <wsdl:definitions name="MemberServiceImplService" targetNamespace="http://impl.www.lianwang.com/" xmlns:ns1="http://inter.www.lianwang.com/" xmlns:ns2="http://schemas.xmlsoap.org/soap/http" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tns="http://impl.www.lianwang.com/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<wsdl:import location="http://10.0.1.130:8090/memberService?wsdl=MemberService.wsdl" namespace="http://inter.www.lianwang.com/" />
- <wsdl:binding name="MemberServiceImplServiceSoapBinding" type="ns1:MemberService">
<soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http" />
- <wsdl:operation name="getMemberMessage">
<soap:operation soapAction="" style="document" />
+ <wsdl:input name="getMemberMessage">
<soap:body use="literal" />
</wsdl:input>
+ <wsdl:output name="getMemberMessageResponse">
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
- <wsdl:service name="MemberServiceImplService">
- <wsdl:port binding="tns:MemberServiceImplServiceSoapBinding" name="MemberServiceImplPort">
<soap:address location="http://10.0.1.130:8090/memberService" />
</wsdl:port>
</wsdl:service>
</wsdl:definitions>

import部分的内容:
  <?xml version="1.0" encoding="UTF-8" ?> 
- <wsdl:definitions name="MemberService" targetNamespace="http://inter.www.lianwang.com/" xmlns:ns1="http://inter.www.lianwang.com/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
- <wsdl:types>
- <xs:schema elementFormDefault="unqualified" targetNamespace="http://inter.www.lianwang.com/" version="1.0" xmlns:tns="http://inter.www.lianwang.com/" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="getMemberMessage" type="tns:getMemberMessage" />
<xs:element name="getMemberMessageResponse" type="tns:getMemberMessageResponse" />
- <xs:complexType name="getMemberMessage">
- <xs:sequence>
<xs:element minOccurs="0" name="arg0" type="xs:string" />
</xs:sequence>
</xs:complexType>
- <xs:complexType name="getMemberMessageResponse">
- <xs:sequence>
<xs:element minOccurs="0" name="return" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:schema>
</wsdl:types>
- <wsdl:message name="getMemberMessage">
<wsdl:part element="ns1:getMemberMessage" name="parameters" />
</wsdl:message>
- <wsdl:message name="getMemberMessageResponse">
<wsdl:part element="ns1:getMemberMessageResponse" name="parameters" />
</wsdl:message>
+ <wsdl:portType name="MemberService">
- <wsdl:operation name="getMemberMessage">
<wsdl:input message="ns1:getMemberMessage" name="getMemberMessage" />
<wsdl:output message="ns1:getMemberMessageResponse" name="getMemberMessageResponse" />
</wsdl:operation>
</wsdl:portType>
</wsdl:definitions>

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧