Delphi 6 Cliente de WebService Dot.net

Delphi

15/10/2005

Oi para todos.

Meu problema e tenho uma aplicaçào delphi 6 que teria que consumir um webservice feito em dot.net ao importar me criou um codigo que não funciona e muito estranho.me criou 2 Units com tres interfaces para o mesmo metodo, e 4 classes que ele usou como tipo. Ai vai um trej do codigo.

Interfaces

SiteSoap = interface(IInvokable)
[´{7C41F3F7-BF54-4A3C-9BB8-C149025DB780}´]
procedure Socios(var parameters: Socios); stdcall;
end;
SiteHttpGet = interface(IInvokable)
[´{B750437C-1CD3-4D1D-8F49-B471F6E6A7E5}´]
procedure Socios(out Body: DataSet); stdcall;
end;
SiteHttpPost = interface(IInvokable)
[´{4769C392-2400-47A8-A694-125ABB6B4355}´]
procedure Socios(out Body: DataSet); stdcall;

Classes com tipo

type

Socios = class;
SociosResponse = class;
SociosResult = class;
DataSet = class;



{ Socios }

Socios = class(TRemotable)
end;

{ SociosResponse }

SociosResponse = class(TRemotable)
private
FSociosResult: SociosResult;
published
property SociosResult: SociosResult read FSociosResult write FSociosResult;
end;

{ SociosResult }

SociosResult = class(TRemotable)
private
Fschema: WideString;
published
property schema: WideString read Fschema write Fschema;
end;

{ DataSet }

DataSet = class(TRemotable)
private
Fschema: WideString;
published
property schema: WideString read Fschema write Fschema;
end;

Declaração do WebService no dot.net
<WebMethod()> Public Function Socios() As DataSet


Rogeriorock

Rogeriorock

Curtidas 0
POSTAR