[delphi-br] Erro WebService com PROCEDURE TIPADA

Tue, 23 Sep 2008 13:06:14 -0700 

Em um WSDL a seguite PROCEDURE esta declarada:
   procedure Z_RFC_WS_SILOS_EST(const IDCAB: IDCAB; out MSG_TEXT: 
MSG_TEXT; out SUBRC: SUBRC); stdcall;

porém ao tentar compilar o código:

var 
   SolicitacaoServico : Z_RFC_WS_SILOS_ESTPortType;
   msg : MSG_TEXT;
   vIdCab : IDCAB;
   vSUBRC : SUBRC;
begin
  inherited;
  vIdCab := '7957261';

  SolicitacaoServico := HTTPRIO1 as Z_RFC_WS_SILOS_ESTPortType;

  sMsg := SolicitacaoServico.Z_RFC_WS_SILOS_EST(vIdCab, msg, vSUBRC);

a seguite mensagem de erro é apresentada:
  [Error] uFrmCancelaNF.pas(181): Incompatible types: 'Integer' 
and 'procedure, untyped pointer or untyped parameter'

Alguem tem alguma dica?

Responder a