Estou a usar o delphi para leitura de um webservice de um companhia de seguros.
Acontece que o mesmo vem em formato XML em SOAP.
Faço o import do WSDL consigo obter os métodos.
Mas para me ligar ao Web Service tenho de mandar um token que não sei como se faz na documentação tem um exemplo com o wfc strom e funciona. Tenho de criar um msgheader do tipo string onde mando o token.
Depois nos parâmetros da query, envio apenas o bi e id da companhia e me retorna dados, antes tenho de ir na config e colocar o user,pass e domínio para me ligar ao web service pois está no IIS.
Código delphi que não esta a funcionar
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, WSClientes, StdCtrls,
InvokeRegistry, SOAPHTTPClient, opCOnvertOptions, XMLIntf, XSBuiltIns,
Soap.Rio;
type
TForm3 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
{ TSOAPCredentials }
procedure TForm3.Button1Click(Sender: TObject);
var
ws : WSClientes;
Rio : THTTPRIO;
begin
Rio := THttpRIO.Create(nil);
ws := WSClientes (false, '', Rio);
ws :=WSClientes.MlBase2.Create;
ws := WSClientes.GetIWSClientes();
Rio.HTTPWebNode.UserName := 'dominio/user0121';
Rio.HTTPWebNode.UserName := 'password';
Rio.SOAPHeaders.ToString := 'L9+zby7w1V5OZTVGUPLZ1x8rJYzCEHAnxovPUuyadZFdbv21elZ1qsvy';
Rio.SOAPHeaders.Send(Rio);
end;