Fórum web services - poque naum consiguo importar esta funcao #240915

esta é o fucão com web module, com bancos de dados que vou exportar para uma aplicão cliente...´WSDL Importer´ mas naum estou conseguindo....

tem duas funcoes...se eu tirar uma funcao importa normalmente..por que acontece isto...????!!!!!


Unit Unit2;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, DBXpress,
SqlExpr, DB, DBClient, SOAPConn, Provider, FMTBcd, IBCustomDataSet;

type
Iws3dmodule = interface(IAppServerSOAP)
[´{FC84564B-8334-4ECC-A9F2-F270B4247B87}´]

function deleta3(codigo: integer): integer; stdcall;
function deleta4(codigo: integer): integer; stdcall;

end;

Tws3dmodule = class(TSoapDataModule, Iws3dmodule, IAppServerSOAP, IAppServer)
DataSetProvider1: TDataSetProvider;
SQLConnection1: TSQLConnection;
SQLTable1: TSQLTable;
SQLTable1COD_CLIENTE: TIntegerField;
SQLTable1RAZAO_SOCIAL: TStringField;
SQLTable1ENDERECO: TStringField;
SQLTable1CIDADE: TStringField;
SQLTable1ESTADO: TStringField;
SQLTable1CEP: TStringField;
SQLTable1EMAIL: TStringField;
private

function deleta4(codigo: integer): integer; stdcall;

public
function deleta3(codigo: integer): integer; stdcall;
end;

implementation


{$R *.DFM}

procedure Tws3dmoduleCreateInstance(out obj: TObject);
begin
obj := Tws3dmodule.Create(nil);
end;

{ Tws3dmodule }

function Tws3dmodule.deleta3(codigo: integer): integer;
begin
result := codigo;
end;

function Tws3dmodule.deleta4(codigo: integer): integer;
begin
result := codigo;
end;

initialization
InvRegistry.RegisterInvokableClass(Tws3dmodule, Tws3dmoduleCreateInstance);
InvRegistry.RegisterInterface(TypeInfo(Iws3dmodule));
end.