0

No código abaixo a variável lRetorno deve conter uma string com um xml retornado do web service, mas o valor retornado por lRetorno:= ws.WS_Eleg_Portador(ws_aux); está sendo a mensagem 'object reference not set to an instance of an object'. A comunicação com web service está ok, pois em outra função consegui capturar os dados normalmente. Estou desenvolvendo no Lazarus para o Linux, a linguagem é Free Pascal, alguém sabe o que poderia ser?

procedure TPharmaLink.Pac_Eleg_Portador(const pAutorizacao: String; var pTransacao: RTransacaoPBM);
var
 ws      : ConcentradorSoap;
 ws_aux  : WS_Eleg_Portador_Type;
 lRetorno: WS_Eleg_PortadorResponse;
 lCartao : String;
 lCPF    : String;
 lTimeStm: String;
 begin
 inherited;

 FPC_RegisterHTTP_Transport(); //InvRegistry.RegisterInvokeOptions(TypeInfo(concentradorSoap), ioDocument);

 lCartao := '';
 lCPF    := '0';
 lTimeStm:= DateTimeToStr(Now);
 lTimeStm:= StringReplace(lTimeStm,'/','',[rfReplaceAll]);
 lTimeStm:= StringReplace(lTimeStm,':','',[rfReplaceAll]);
 lTimeStm:= StringReplace(lTimeStm,' ','',[rfReplaceAll]);

 if Length(pAutorizacao) = 16
 then lCartao:= pAutorizacao
 else lCPF   := pAutorizacao;

 pTransacao.Erro:= '';

 // Instanciando os objetos
 ws_aux   := WS_Eleg_Portador_Type.Create();
 //lRetorno:= ws.WS_Eleg_Portador(Trim(GetIdentificacao), FProjeto, lTimeStm, lCartao, StrToInt64(lCpf), '' );
 ws_aux.cIdentifica :=Trim(GetIdentificacao);
 ws_aux.cProjeto    :='SAN001';
 ws_aux.cTimestamp  :=lTimeStm;
 ws_aux.cCartao     :=lCartao;
 ws_aux.nCPF        :=StrToInt64(lCpf);
 ws_aux.cCanal      :='';

 ws := wst_CreateInstance_ConcentradorSoap();

 try
     lRetorno:= ws.WS_Eleg_Portador(ws_aux);
 except
     on E: Exception do
        pTransacao.Erro:= E.Message;
 end;

 [continua...]

1 Resposta 1

0

Consegui encontrar o problema no meu código: Mudei de ws_aux.cCanal := ''; para ws_aux.cCanal := ' ';. Não sei o motivo, mas o Lazarus não reconheu '' como vazio no web service, por isso o problema.

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .