WebService问题，导入WSDL文件生成的代码不能编译 ( 积分: 200 )

铁桶师叔 · 2007-11-19

----------------------------WSDL文件，NetBeans5.5生成---------------------------------------------
<?xml version= "1.0 "
encoding= "UTF-8 "
?>
- <definitions xmlns= "http://schemas.xmlsoap.org/wsdl/ "
xmlns:tns= "http://bf/ "
xmlns:xsd= "http://www.w3.org/2001/XMLSchema "
xmlns:soap= "http://schemas.xmlsoap.org/wsdl/soap/ "
targetNamespace= "http://bf/ "
name= "BalanceFundWSService ">
- <types>
- <xsd:schema>
<xsd:import schemaLocation= "http://localhost:8084/BalanceFund/BalanceFundWS?xsd=1 "
namespace= "http://bf/ "
/>
</xsd:schema>
</types>
- <message name= "getBlanceData ">
<part element= "tns:getBlanceData "
name= "parameters "
/>
</message>
- <message name= "getBlanceDataResponse ">
<part element= "tns:getBlanceDataResponse "
name= "parameters "
/>
</message>
- <portType name= "BalanceFundWS ">
- <operation name= "getBlanceData ">
<input message= "tns:getBlanceData "
/>
<output message= "tns:getBlanceDataResponse "
/>
</operation>
</portType>
- <binding name= "BalanceFundWSPortBinding "
type= "tns:BalanceFundWS ">
<soap:binding style= "document "
transport= "http://schemas.xmlsoap.org/soap/http "
/>
+ <operation name= "getBlanceData ">
<soap

peration soapAction= "
"
/>
- <input>
<soap:body use= "literal "
/>
</input>
- <output>
<soap:body use= "literal "
/>
</output>
</operation>
</binding>
- <service name= "BalanceFundWSService ">
- <port name= "BalanceFundWSPort "
binding= "tns:BalanceFundWSPortBinding ">
<soap:address location= "http://localhost:8084/BalanceFund/BalanceFundWS "
/>
</port>
</service>
</definitions>
--------------------------------------------------------------------------------------------------------------------------
---------------------------------生成的Delphi7文件---------------------------------------------------------------------------
unit BalanceFundWS1;

interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

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

// ************************************************************************ //
// Namespace : http://bf/
// transport : http://schemas.xmlsoap.org/soap/http
// style : do
cument
// binding : BalanceFundWSPortBinding
// service : BalanceFundWSService
// port : BalanceFundWSPort
// URL : http://localhost:8084/BalanceFund/BalanceFundWS
// ************************************************************************ //
BalanceFundWS = interface(IInvokable)
[ '{FED72D73-C0E4-2D2C-374C-087172486963} ']
function getBlanceData(const parameters: getBlanceData): getBlanceDataResponse;
stdcall;
end;

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

implementation
function GetBalanceFundWS(UseWSDL: Boolean;
Addr: string;
HTTPRIO: THTTPRIO): BalanceFundWS;
const
defWSDL = 'http://localhost:8084/BalanceFund/BalanceFundWS?wsdl ';
defURL = 'http://localhost:8084/BalanceFund/BalanceFundWS ';
defSvc = 'BalanceFundWSService ';
defPrt = 'BalanceFundWSPort ';
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 BalanceFundWS);
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(BalanceFundWS), 'http://bf/ ', 'UTF-8 ');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(BalanceFundWS), ' ');
InvRegistry.RegisterInvokeOptions(TypeInfo(BalanceFundWS), ioDocument);
InvRegistry.RegisterInvokeOptions(TypeInfo(BalanceFundWS), ioLiteral);

end.

-------------------------------------------------------------------------------------------------------------
------------------------------------------报错信息------------------------------------------------------------
[Error] BalanceFundWS1.pas(40): Undeclared identifier: 'getBlanceData '
[Error] BalanceFundWS1.pas(40): Undeclared identifier: 'getBlanceDataResponse '
[Fatal Error] Project1.dpr(6): Could not compile used unit 'BalanceFundWS1.pas '

高手救命啊

WebService问题，导入WSDL文件生成的代码不能编译 ( 积分: 200 )

铁桶师叔

Unregistered / Unconfirmed

Similar threads