Consumir um WebService ASPX com Autenticação SOAP via Delphi
Pessoal, alguém sabe como configurar um acesso via Delphi para consumir um WebService ASPX com Autenticação SOAP? Não consigo enviar as informações de Usuário e Senha para o WebService, abaixo segue o código:
procedure TfrmPrincipal.btnTabelaRXClick(Sender: TObject);
var
autenticacao: AuthHeader;
vServidor: WebService01;
resultado: String;
begin
autenticacao := AuthHeader.Create;
autenticacao.Username := edtUsuario.Text;
autenticacao.Password := edtSenha.Text;
try
vServidor.TabelaRX(edtUsuario.Text);
except
on E: Exception do
ShowMessage(E.Message);
end;
end;
procedure TfrmPrincipal.btnTabelaRXClick(Sender: TObject);
var
autenticacao: AuthHeader;
vServidor: WebService01;
resultado: String;
begin
autenticacao := AuthHeader.Create;
autenticacao.Username := edtUsuario.Text;
autenticacao.Password := edtSenha.Text;
try
vServidor.TabelaRX(edtUsuario.Text);
except
on E: Exception do
ShowMessage(E.Message);
end;
end;
Wolfwave76
Curtidas 0
Respostas
Wolfwave76
08/11/2013
Consegui autenticar o problema agora é que o WebService retorna um TRemotable e não estou conseguindo importar para um DBGrid, alguém pode dar um HELP?
GOSTEI 0
Leonardo Centenaro
08/11/2013
Opa,
Cara, como você resolveu o problema de autenticação? Acredito que estou utilizando o mesmo Webservice que você, também tem a função TabelaRX e o AuthHeader.
Sobre o segundo problema acredito que tenha conseguido resolver pela data do seu post rsrs. Mas caso nao tenha conseguido, detalha ele um pouco mais que posso tentar ajudar?
Cara, como você resolveu o problema de autenticação? Acredito que estou utilizando o mesmo Webservice que você, também tem a função TabelaRX e o AuthHeader.
Sobre o segundo problema acredito que tenha conseguido resolver pela data do seu post rsrs. Mas caso nao tenha conseguido, detalha ele um pouco mais que posso tentar ajudar?
GOSTEI 0
Leonardo Centenaro
08/11/2013
Consegui realizar a autenticação no cabeçalho SOAP. Pra quem precisar segue o exemplo:
AAuthHeader := AuthHeader.Create;
ARio := THTTPRIO.Create(nil);
AAuthHeader.Username := usuario;
AAuthHeader.Password := senha;
ARio.SOAPHeaders.Send(AAuthHeader);
AAuthHeader := AuthHeader.Create;
ARio := THTTPRIO.Create(nil);
AAuthHeader.Username := usuario;
AAuthHeader.Password := senha;
ARio.SOAPHeaders.Send(AAuthHeader);
GOSTEI 0