为什么在Soap web service importer时出错!?(100分)

  • 主题发起人 点上一支烟
  • 开始时间

点上一支烟

Unregistered / Unconfirmed
GUEST, unregistred user!
我在import http://www.uddi.org/wsdl/inquire_v1.wsdl(一个UDDIService说明文件)时,Delphi
报错“interface not surported”,有谁也遇上了类似的问题,请帮忙解答一下。
 
很不幸的,我试了一下,导进来了(说明:我打了D6UPD2):
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://www.uddi.org/wsdl/inquire_v1.wsdl
// >Import : http://www.uddi.org/schema/2001/uddi_v1.xsd
// Encoding : UTF-8
// Version : 1.0
// (2002-3-7 21:13:29 - $Revision: 1.9.1.0.1.0.1.9 $)
// ************************************************************************ //
unit inquire_v1;
interface
uses InvokeRegistry, Types, XSBuiltIns;
type
// ************************************************************************ //
// The following types, referred to in the WSDLdo
cument are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in thedo
cument. The types from the latter category
// typically map to predefined/known XML or Borland types;
however, they could also
// indicate incorrect WSDLdo
cuments that failed to declare or import a schema type.
// ************************************************************************ //
// !:string - "http://www.w3.org/2001/XMLSchema"
// !:string - "urn:uddi-org:api"
// [WARNINGS]************************************************************** //
// Warning: Literal parameters of get_bindingDetail() cannot be unwound
// Warning: Literal parameters of get_businessDetail() cannot be unwound
// Warning: Literal parameters of get_businessDetailExt() cannot be unwound
// Warning: Literal parameters of get_serviceDetail() cannot be unwound
// Warning: Literal parameters of get_tModelDetail() cannot be unwound
// ************************************************************************ //
HostingRedirector = class;
{ "urn:uddi-org:api" }
OverviewDoc = class;
{ "urn:uddi-org:api" }
InstanceDetails = class;
{ "urn:uddi-org:api" }
TModelInstanceInfo = class;
{ "urn:uddi-org:api" }
BindingTemplate = class;
{ "urn:uddi-org:api" }
Contact = class;
{ "urn:uddi-org:api" }
KeyedReference = class;
{ "urn:uddi-org:api" }
BusinessService = class;
{ "urn:uddi-org:api" }
BusinessEntity = class;
{ "urn:uddi-org:api" }
BusinessEntityExt = class;
{ "urn:uddi-org:api" }
ServiceInfo = class;
{ "urn:uddi-org:api" }
BusinessInfo = class;
{ "urn:uddi-org:api" }
TModelInfo = class;
{ "urn:uddi-org:api" }
TModel = class;
{ "urn:uddi-org:api" }
{ "urn:uddi-org:api" }
Truncated = (true, false);
{ "urn:uddi-org:api" }
URLType = (mailto, http, https, ftp, fax, phone, other);

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
HostingRedirector = class(TRemotable)
private
FbindingKey: String;
published
property bindingKey: String read FbindingKey write FbindingKey stored AS_ATTRIBUTE;
end;

{ ============ WARNING ============ }
{ WARNING - Attribute - Name:URLType, Type:URLType }
AccessPoint = String;
{ "urn:uddi-org:api" }
Description = String;
{ "urn:uddi-org:api" }
{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
GetTModelDetail = array of String;
{ "urn:uddi-org:api" }
get_tModelDetail = GetTModelDetail;
{ "urn:uddi-org:api" }
{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
GetServiceDetail = array of String;
{ "urn:uddi-org:api" }
get_serviceDetail = GetServiceDetail;
{ "urn:uddi-org:api" }
{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
GetBusinessDetailExt = array of String;
{ "urn:uddi-org:api" }
get_businessDetailExt = GetBusinessDetailExt;
{ "urn:uddi-org:api" }
{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
GetBusinessDetail = array of String;
{ "urn:uddi-org:api" }
get_businessDetail = GetBusinessDetail;
{ "urn:uddi-org:api" }
{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
GetBindingDetail = array of String;
{ "urn:uddi-org:api" }
get_bindingDetail = GetBindingDetail;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
OverviewDoc = class(TRemotable)
private
Fdescription: Description;
FoverviewURL: String;
published
property description: Description read Fdescription write Fdescription;
property overviewURL: String read FoverviewURL write FoverviewURL;
end;


// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
InstanceDetails = class(TRemotable)
private
Fdescription: Description;
FoverviewDoc: OverviewDoc;
FinstanceParms: String;
public
destructor Destroy;
override;
published
property description: Description read Fdescription write Fdescription;
property overviewDoc: OverviewDoc read FoverviewDoc write FoverviewDoc;
property instanceParms: String read FinstanceParms write FinstanceParms;
end;


// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
TModelInstanceInfo = class(TRemotable)
private
Fdescription: Description;
FinstanceDetails: InstanceDetails;
FtModelKey: String;
public
destructor Destroy;
override;
published
property description: Description read Fdescription write Fdescription;
property instanceDetails: InstanceDetails read FinstanceDetails write FinstanceDetails;
property tModelKey: String read FtModelKey write FtModelKey stored AS_ATTRIBUTE;
end;

TModelInstanceDetails = array of TModelInstanceInfo;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
BindingTemplate = class(TRemotable)
private
Fdescription: Description;
FaccessPoint: AccessPoint;
FhostingRedirector: HostingRedirector;
FtModelInstanceDetails: TModelInstanceDetails;
FserviceKey: String;
FbindingKey: String;
public
destructor Destroy;
override;
published
property description: Description read Fdescription write Fdescription;
property accessPoint: AccessPoint read FaccessPoint write FaccessPoint;
property hostingRedirector: HostingRedirector read FhostingRedirector write FhostingRedirector;
property tModelInstanceDetails: TModelInstanceDetails read FtModelInstanceDetails write FtModelInstanceDetails;
property serviceKey: String read FserviceKey write FserviceKey stored AS_ATTRIBUTE;
property bindingKey: String read FbindingKey write FbindingKey stored AS_ATTRIBUTE;
end;

{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
{ WARNING - Attribute - Name:eek:perator, Type:String }
{ WARNING - Attribute - Name:truncated, Type:Truncated }
BindingDetail = array of BindingTemplate;
{ "urn:uddi-org:api" }
bindingDetail2 = BindingDetail;
{ "urn:uddi-org:api" }
{ ============ WARNING ============ }
{ WARNING - Attribute - Name:useType, Type:String }
DiscoveryUrl = String;
{ "urn:uddi-org:api" }
DiscoveryURLs = array of DiscoveryUrl;
{ "urn:uddi-org:api" }
{ ============ WARNING ============ }
{ WARNING - Attribute - Name:useType, Type:String }
Phone2 = String;
{ "urn:uddi-org:api" }

{ ============ WARNING ============ }
{ WARNING - Attribute - Name:useType, Type:String }
Email = String;
{ "urn:uddi-org:api" }

{ ============ WARNING ============ }
{ WARNING - Attribute - Name:sortCode, Type:String }
{ WARNING - Attribute - Name:useType, Type:String }
Address = array of String;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
Contact = class(TRemotable)
private
Fdescription: Description;
FpersonName: String;
Fphone: Phone2;
Femail: Email;
Faddress: Address;
FuseType: String;
published
property description: Description read Fdescription write Fdescription;
property personName: String read FpersonName write FpersonName;
property phone: Phone2 read Fphone write Fphone;
property email: Email read Femail write Femail;
property address: Address read Faddress write Faddress;
property useType: String read FuseType write FuseType stored AS_ATTRIBUTE;
end;

Contacts = array of Contact;
{ "urn:uddi-org:api" }
BindingTemplates = array of BindingTemplate;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
KeyedReference = class(TRemotable)
private
FtModelKey: String;
FkeyName: String;
FkeyValue: String;
published
property tModelKey: String read FtModelKey write FtModelKey stored AS_ATTRIBUTE;
property keyName: String read FkeyName write FkeyName stored AS_ATTRIBUTE;
property keyValue: String read FkeyValue write FkeyValue stored AS_ATTRIBUTE;
end;

CategoryBag = array of KeyedReference;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
BusinessService = class(TRemotable)
private
Fname: String;
Fdescription: Description;
FbindingTemplates: BindingTemplates;
FcategoryBag: CategoryBag;
FserviceKey: String;
FbusinessKey: String;
public
destructor Destroy;
override;
published
property name: String read Fname write Fname;
property description: Description read Fdescription write Fdescription;
property bindingTemplates: BindingTemplates read FbindingTemplates write FbindingTemplates;
property categoryBag: CategoryBag read FcategoryBag write FcategoryBag;
property serviceKey: String read FserviceKey write FserviceKey stored AS_ATTRIBUTE;
property businessKey: String read FbusinessKey write FbusinessKey stored AS_ATTRIBUTE;
end;

{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
{ WARNING - Attribute - Name:eek:perator, Type:String }
{ WARNING - Attribute - Name:truncated, Type:Truncated }
ServiceDetail = array of BusinessService;
{ "urn:uddi-org:api" }
serviceDetail2 = ServiceDetail;
{ "urn:uddi-org:api" }
BusinessServices = array of BusinessService;
{ "urn:uddi-org:api" }
IdentifierBag = array of KeyedReference;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
BusinessEntity = class(TRemotable)
private
FdiscoveryURLs: DiscoveryURLs;
Fname: String;
Fdescription: Description;
Fcontacts: Contacts;
FbusinessServices: BusinessServices;
FidentifierBag: IdentifierBag;
FcategoryBag: CategoryBag;
FbusinessKey: String;
Foperator: String;
FauthorizedName: String;
public
destructor Destroy;
override;
published
property discoveryURLs: DiscoveryURLs read FdiscoveryURLs write FdiscoveryURLs;
property name: String read Fname write Fname;
property description: Description read Fdescription write Fdescription;
property contacts: Contacts read Fcontacts write Fcontacts;
property businessServices: BusinessServices read FbusinessServices write FbusinessServices;
property identifierBag: IdentifierBag read FidentifierBag write FidentifierBag;
property categoryBag: CategoryBag read FcategoryBag write FcategoryBag;
property businessKey: String read FbusinessKey write FbusinessKey stored AS_ATTRIBUTE;
property operator: String read Foperator write Foperator stored AS_ATTRIBUTE;
property authorizedName: String read FauthorizedName write FauthorizedName stored AS_ATTRIBUTE;
end;

{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
{ WARNING - Attribute - Name:eek:perator, Type:String }
{ WARNING - Attribute - Name:truncated, Type:Truncated }
BusinessDetail = array of BusinessEntity;
{ "urn:uddi-org:api" }
businessDetail2 = BusinessDetail;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
BusinessEntityExt = class(TRemotable)
private
FbusinessEntity: BusinessEntity;
public
destructor Destroy;
override;
published
property businessEntity: BusinessEntity read FbusinessEntity write FbusinessEntity;
end;

{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
{ WARNING - Attribute - Name:eek:perator, Type:String }
{ WARNING - Attribute - Name:truncated, Type:Truncated }
BusinessDetailExt = array of BusinessEntityExt;
{ "urn:uddi-org:api" }
businessDetailExt2 = BusinessDetailExt;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
ServiceInfo = class(TRemotable)
private
Fname: String;
FserviceKey: String;
FbusinessKey: String;
published
property name: String read Fname write Fname;
property serviceKey: String read FserviceKey write FserviceKey stored AS_ATTRIBUTE;
property businessKey: String read FbusinessKey write FbusinessKey stored AS_ATTRIBUTE;
end;

ServiceInfos = array of ServiceInfo;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
BusinessInfo = class(TRemotable)
private
Fname: String;
Fdescription: Description;
FserviceInfos: ServiceInfos;
FbusinessKey: String;
public
destructor Destroy;
override;
published
property name: String read Fname write Fname;
property description: Description read Fdescription write Fdescription;
property serviceInfos: ServiceInfos read FserviceInfos write FserviceInfos;
property businessKey: String read FbusinessKey write FbusinessKey stored AS_ATTRIBUTE;
end;

BusinessInfos = array of BusinessInfo;
{ "urn:uddi-org:api" }
FindQualifiers = array of String;
{ "urn:uddi-org:api" }
TModelBag = array of String;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
TModelInfo = class(TRemotable)
private
Fname: String;
FtModelKey: String;
published
property name: String read Fname write Fname;
property tModelKey: String read FtModelKey write FtModelKey stored AS_ATTRIBUTE;
end;

TModelInfos = array of TModelInfo;
{ "urn:uddi-org:api" }

// ************************************************************************ //
// Namespace : urn:uddi-org:api
// ************************************************************************ //
TModel = class(TRemotable)
private
Fname: String;
Fdescription: Description;
FoverviewDoc: OverviewDoc;
FidentifierBag: IdentifierBag;
FcategoryBag: CategoryBag;
FtModelKey: String;
Foperator: String;
FauthorizedName: String;
public
destructor Destroy;
override;
published
property name: String read Fname write Fname;
property description: Description read Fdescription write Fdescription;
property overviewDoc: OverviewDoc read FoverviewDoc write FoverviewDoc;
property identifierBag: IdentifierBag read FidentifierBag write FidentifierBag;
property categoryBag: CategoryBag read FcategoryBag write FcategoryBag;
property tModelKey: String read FtModelKey write FtModelKey stored AS_ATTRIBUTE;
property operator: String read Foperator write Foperator stored AS_ATTRIBUTE;
property authorizedName: String read FauthorizedName write FauthorizedName stored AS_ATTRIBUTE;
end;

{ ============ WARNING ============ }
{ WARNING - Attribute - Name:generic, Type:String }
{ WARNING - Attribute - Name:eek:perator, Type:String }
{ WARNING - Attribute - Name:truncated, Type:Truncated }
TModelDetail = array of TModel;
{ "urn:uddi-org:api" }
tModelDetail2 = TModelDetail;
{ "urn:uddi-org:api" }
// ************************************************************************ //
// Namespace : urn:uddi-org:api
// transport : http://schemas.xmlsoap.org/soap/http
// style :do
cument
// binding : InquireSoap
// ************************************************************************ //
InquireSoap = interface(IInvokable)
['{C2AD6D0F-0875-EF31-4035-8D59DF59CBFA}']
function find_binding(const findQualifiers: FindQualifiers;
const tModelBag: TModelBag): bindingDetail2;
stdcall;
function find_business(const findQualifiers: FindQualifiers;
const name: String;
const identifierBag: IdentifierBag;
const categoryBag: CategoryBag;
const tModelBag: TModelBag;
const discoveryURLs: DiscoveryURLs): BusinessInfos;
stdcall;
function find_service(const findQualifiers: FindQualifiers;
const name: String;
const categoryBag: CategoryBag;
const tModelBag: TModelBag): ServiceInfos;
stdcall;
function find_tModel(const findQualifiers: FindQualifiers;
const name: String;
const identifierBag: IdentifierBag;
const categoryBag: CategoryBag): TModelInfos;
stdcall;
function get_bindingDetail(const body: get_bindingDetail): bindingDetail2;
stdcall;
function get_businessDetail(const body: get_businessDetail): businessDetail2;
stdcall;
function get_businessDetailExt(const body: get_businessDetailExt): businessDetailExt2;
stdcall;
function get_serviceDetail(const body: get_serviceDetail): serviceDetail2;
stdcall;
function get_tModelDetail(const body: get_tModelDetail): tModelDetail2;
stdcall;
end;


implementation
uses SOAPHTTPClient;
destructor InstanceDetails.Destroy;
begin
if Assigned(FoverviewDoc) then
FoverviewDoc.Free;
inherited Destroy;
end;

destructor TModelInstanceInfo.Destroy;
begin
if Assigned(FinstanceDetails) then
FinstanceDetails.Free;
inherited Destroy;
end;

destructor BindingTemplate.Destroy;
var
I: Integer;
begin
for I := 0 to Length(FtModelInstanceDetails)-1do
if Assigned(FtModelInstanceDetails) then
FtModelInstanceDetails.Free;
SetLength(FtModelInstanceDetails, 0);
if Assigned(FhostingRedirector) then
FhostingRedirector.Free;
inherited Destroy;
end;

destructor BusinessService.Destroy;
var
I: Integer;
begin
for I := 0 to Length(FbindingTemplates)-1do
if Assigned(FbindingTemplates) then
FbindingTemplates.Free;
SetLength(FbindingTemplates, 0);
for I := 0 to Length(FcategoryBag)-1do
if Assigned(FcategoryBag) then
FcategoryBag.Free;
SetLength(FcategoryBag, 0);
inherited Destroy;
end;

destructor BusinessEntity.Destroy;
var
I: Integer;
begin
for I := 0 to Length(Fcontacts)-1do
if Assigned(Fcontacts) then
Fcontacts.Free;
SetLength(Fcontacts, 0);
for I := 0 to Length(FbusinessServices)-1do
if Assigned(FbusinessServices) then
FbusinessServices.Free;
SetLength(FbusinessServices, 0);
for I := 0 to Length(FidentifierBag)-1do
if Assigned(FidentifierBag) then
FidentifierBag.Free;
SetLength(FidentifierBag, 0);
for I := 0 to Length(FcategoryBag)-1do
if Assigned(FcategoryBag) then
FcategoryBag.Free;
SetLength(FcategoryBag, 0);
inherited Destroy;
end;

destructor BusinessEntityExt.Destroy;
begin
if Assigned(FbusinessEntity) then
FbusinessEntity.Free;
inherited Destroy;
end;

destructor BusinessInfo.Destroy;
var
I: Integer;
begin
for I := 0 to Length(FserviceInfos)-1do
if Assigned(FserviceInfos) then
FserviceInfos.Free;
SetLength(FserviceInfos, 0);
inherited Destroy;
end;

destructor TModel.Destroy;
var
I: Integer;
begin
for I := 0 to Length(FidentifierBag)-1do
if Assigned(FidentifierBag) then
FidentifierBag.Free;
SetLength(FidentifierBag, 0);
for I := 0 to Length(FcategoryBag)-1do
if Assigned(FcategoryBag) then
FcategoryBag.Free;
SetLength(FcategoryBag, 0);
if Assigned(FoverviewDoc) then
FoverviewDoc.Free;
inherited Destroy;
end;

initialization
InvRegistry.RegisterInterface(TypeInfo(InquireSoap), 'urn:uddi-org:api', 'UTF-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(InquireSoap), '');
InvRegistry.RegisterInvokeOptions(TypeInfo(InquireSoap), ioDocument);
RemClassRegistry.RegisterXSInfo(TypeInfo(Truncated), 'urn:uddi-org:api', 'Truncated');
RemClassRegistry.RegisterXSInfo(TypeInfo(URLType), 'urn:uddi-org:api', 'URLType');
RemClassRegistry.RegisterXSClass(HostingRedirector, 'urn:uddi-org:api', 'HostingRedirector');
RemClassRegistry.RegisterXSInfo(TypeInfo(AccessPoint), 'urn:uddi-org:api', 'AccessPoint');
RemClassRegistry.RegisterXSInfo(TypeInfo(Description), 'urn:uddi-org:api', 'Description');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetTModelDetail), 'urn:uddi-org:api', 'GetTModelDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(get_tModelDetail), 'urn:uddi-org:api', 'get_tModelDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetServiceDetail), 'urn:uddi-org:api', 'GetServiceDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(get_serviceDetail), 'urn:uddi-org:api', 'get_serviceDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetBusinessDetailExt), 'urn:uddi-org:api', 'GetBusinessDetailExt');
RemClassRegistry.RegisterXSInfo(TypeInfo(get_businessDetailExt), 'urn:uddi-org:api', 'get_businessDetailExt');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetBusinessDetail), 'urn:uddi-org:api', 'GetBusinessDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(get_businessDetail), 'urn:uddi-org:api', 'get_businessDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetBindingDetail), 'urn:uddi-org:api', 'GetBindingDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(get_bindingDetail), 'urn:uddi-org:api', 'get_bindingDetail');
RemClassRegistry.RegisterXSClass(OverviewDoc, 'urn:uddi-org:api', 'OverviewDoc');
RemClassRegistry.RegisterXSClass(InstanceDetails, 'urn:uddi-org:api', 'InstanceDetails');
RemClassRegistry.RegisterXSClass(TModelInstanceInfo, 'urn:uddi-org:api', 'TModelInstanceInfo');
RemClassRegistry.RegisterXSInfo(TypeInfo(TModelInstanceDetails), 'urn:uddi-org:api', 'TModelInstanceDetails');
RemClassRegistry.RegisterXSClass(BindingTemplate, 'urn:uddi-org:api', 'BindingTemplate');
RemClassRegistry.RegisterXSInfo(TypeInfo(BindingDetail), 'urn:uddi-org:api', 'BindingDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(bindingDetail2), 'urn:uddi-org:api', 'bindingDetail2', 'bindingDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(DiscoveryUrl), 'urn:uddi-org:api', 'DiscoveryUrl');
RemClassRegistry.RegisterXSInfo(TypeInfo(DiscoveryURLs), 'urn:uddi-org:api', 'DiscoveryURLs');
RemClassRegistry.RegisterXSInfo(TypeInfo(Phone2), 'urn:uddi-org:api', 'Phone2', 'Phone');
RemClassRegistry.RegisterXSInfo(TypeInfo(Email), 'urn:uddi-org:api', 'Email');
RemClassRegistry.RegisterXSInfo(TypeInfo(Address), 'urn:uddi-org:api', 'Address');
RemClassRegistry.RegisterXSClass(Contact, 'urn:uddi-org:api', 'Contact');
RemClassRegistry.RegisterXSInfo(TypeInfo(Contacts), 'urn:uddi-org:api', 'Contacts');
RemClassRegistry.RegisterXSInfo(TypeInfo(BindingTemplates), 'urn:uddi-org:api', 'BindingTemplates');
RemClassRegistry.RegisterXSClass(KeyedReference, 'urn:uddi-org:api', 'KeyedReference');
RemClassRegistry.RegisterXSInfo(TypeInfo(CategoryBag), 'urn:uddi-org:api', 'CategoryBag');
RemClassRegistry.RegisterXSClass(BusinessService, 'urn:uddi-org:api', 'BusinessService');
RemClassRegistry.RegisterXSInfo(TypeInfo(ServiceDetail), 'urn:uddi-org:api', 'ServiceDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(serviceDetail2), 'urn:uddi-org:api', 'serviceDetail2', 'serviceDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(BusinessServices), 'urn:uddi-org:api', 'BusinessServices');
RemClassRegistry.RegisterXSInfo(TypeInfo(IdentifierBag), 'urn:uddi-org:api', 'IdentifierBag');
RemClassRegistry.RegisterXSClass(BusinessEntity, 'urn:uddi-org:api', 'BusinessEntity');
RemClassRegistry.RegisterXSInfo(TypeInfo(BusinessDetail), 'urn:uddi-org:api', 'BusinessDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(businessDetail2), 'urn:uddi-org:api', 'businessDetail2', 'businessDetail');
RemClassRegistry.RegisterXSClass(BusinessEntityExt, 'urn:uddi-org:api', 'BusinessEntityExt');
RemClassRegistry.RegisterXSInfo(TypeInfo(BusinessDetailExt), 'urn:uddi-org:api', 'BusinessDetailExt');
RemClassRegistry.RegisterXSInfo(TypeInfo(businessDetailExt2), 'urn:uddi-org:api', 'businessDetailExt2', 'businessDetailExt');
RemClassRegistry.RegisterXSClass(ServiceInfo, 'urn:uddi-org:api', 'ServiceInfo');
RemClassRegistry.RegisterXSInfo(TypeInfo(ServiceInfos), 'urn:uddi-org:api', 'ServiceInfos');
RemClassRegistry.RegisterXSClass(BusinessInfo, 'urn:uddi-org:api', 'BusinessInfo');
RemClassRegistry.RegisterXSInfo(TypeInfo(BusinessInfos), 'urn:uddi-org:api', 'BusinessInfos');
RemClassRegistry.RegisterXSInfo(TypeInfo(FindQualifiers), 'urn:uddi-org:api', 'FindQualifiers');
RemClassRegistry.RegisterXSInfo(TypeInfo(TModelBag), 'urn:uddi-org:api', 'TModelBag');
RemClassRegistry.RegisterXSClass(TModelInfo, 'urn:uddi-org:api', 'TModelInfo');
RemClassRegistry.RegisterXSInfo(TypeInfo(TModelInfos), 'urn:uddi-org:api', 'TModelInfos');
RemClassRegistry.RegisterXSClass(TModel, 'urn:uddi-org:api', 'TModel');
RemClassRegistry.RegisterXSInfo(TypeInfo(TModelDetail), 'urn:uddi-org:api', 'TModelDetail');
RemClassRegistry.RegisterXSInfo(TypeInfo(tModelDetail2), 'urn:uddi-org:api', 'tModelDetail2', 'tModelDetail');
end.
 
我这里也可以呀,也是SP2
 
顶部