Ajuda Com Webservice

[Sérgio Assunção]

Boa tarde amigos...

Estou tendo a necessidade de criar um pequeno aplicativo que irá fazer algumas consultas através de um webservice e estou tendo algumas dúvidas.

Já fiz a importação pelo wsdl importer, gravei a unit e já estou interagindo com ela em meu projeto.

A dificuldade é que os retornos das funções são em array e não sei como tratar ou converter esse resultado. Vejam:

function  Clientes(const login: WideString; const senha: WideString): ArrayOfCliente; stdcall;

Alguém pode me dar um help ?

 

Em anexo a unit gerada pela importação.

 

Obrigado.

 

Sérgio

FeixeWeb.pas

[datilas]

vc ja tentou usando um 

for i:= 0 to Registro.Count -1 do
Begin
variavel1 := Registro[i].FEstabelecimento;
variavel2 := Registro[i].FAmbiente;
variavel3 := Registro[i].FDataEHora;

continua sua rotina


End;

[Sérgio Assunção]

Bom dia ... não obtive sucesso

Acho que tem algo errado, pois veja como veio as variaveis na unit importada pelo Wsdl:

FRaz_oSocial: WideString;
FLocaliza__o: WideString;

 

... os caras acentuaram os a variáveis no WS e na importação esta vindo dessa forma.

Já atualizei o meu WSDL Importer (D7) e o problema continua.

 

Alguem pode dar um help ?

 

Muito obrigado.

 

Sérgio

[EMBarbosa]

Você poderia anexar um projeto completo que faça o teste do webservice? Ficaria mais fácil para tentar lhe ajudar.

[Sérgio Assunção]

Em anexo.

 

Agradeço.

 

Sérgio

Project1.rar

[datilas]

Em anexo.

 

Agradeço.

 

Sérgio

para buscar o retorno eu faço assim:

procedure TForm1.Button1Click(Sender: TObject);
var
WS: FeixeWebSoap;
clie : Cliente;
begin
Memo1.Lines.Clear;
WS := GetFeixeWebSoap();


   try
   WS.Clientes(edit1.Text,edit2.Text) ;


     Memo1.Lines.Add(clie.CNPJ);
     Memo1.Lines.Add(clie.Raz_oSocial);
     Memo1.Lines.Add(clie.NomeFantasia);


   except
   on E : exception do
      Memo1.Lines.Add(E.message);
   end;
end;

o problema esta sendo com a conexão que sempre retorna este erro:

Server was unable to process request. ---> String reference not set to an instance of a String.

Parameter name: s

[Sérgio Assunção]

 

para buscar o retorno eu faço assim:

procedure TForm1.Button1Click(Sender: TObject);
var
WS: FeixeWebSoap;
clie : Cliente;
begin
Memo1.Lines.Clear;
WS := GetFeixeWebSoap();


   try
   WS.Clientes(edit1.Text,edit2.Text) ;


     Memo1.Lines.Add(clie.CNPJ);
     Memo1.Lines.Add(clie.Raz_oSocial);
     Memo1.Lines.Add(clie.NomeFantasia);


   except
   on E : exception do
      Memo1.Lines.Add(E.message);
   end;
end;

o problema esta sendo com a conexão que sempre retorna este erro:

Server was unable to process request. ---> String reference not set to an instance of a String.

Parameter name: s

 

É o mesmo erro que retorna aqui.

Não seria algo errado com a unit importada ? Ou mesmo a acentuação que foi usada no WS ?

Recebi um exemplo em C# e funciona certinho.

 

Sérgio

[datilas]

É o mesmo erro que retorna aqui.

Não seria algo errado com a unit importada ? Ou mesmo a acentuação que foi usada no WS ?

Recebi um exemplo em C# e funciona certinho.

 

Sérgio

eu acho que deve ser alguma coisa com o tipo de parametro (WideString)

[Sérgio Assunção]

Ainda continuo sem progressos por aqui...

Posso remunerar caso alguém consiga desenvolver algo.

 

Agradeço.

 

Sérgio

[André Ferreira de Moraes]

Este usuário e senha são válidos?

[Sérgio Assunção]

André ... A empresa excluiu o "teste", "teste" ... posso lhe passar em PVT ?

 

Obrigado.

 

Sérgio

[André Ferreira de Moraes]

Sim, eu testei e estou recebendo o erro "Login e/ou senha inválidos."

[André Ferreira de Moraes]

Com o projeto abaixo consegui realizar a consulta de cliente com sucesso. Estou usando delphi 7.

 

FeixeWeb.rar