Delphi + WebApi RestFul

15/02/2018

Bom dia Pessoa,

Estou buscando v�rios exemplos na internet mas n�o consigo fazer funcionar a minha comunica��o com um servidor que tenho que integrar. o �ltimo erro que tenho obtido � failure handshake. O projeto � vazio e estou tentando fazer uma comunica��o como exemplo

Segue c�digo

unit untAdfunc;

interface



const urlBase = 'https://api.hgfpay.com.br/v1/';

function getToken() : string;


implementation

uses
 Classes, superobject, IdHTTP, Contnrs, StdCtrls;

function getToken() : string;
var
  strUsuario, strSenha : string;
  http : TIdHTTP;
  jsonToSend : TStringList;
  Memo1 : TMemo;
begin
  strUsuario := 'admin';
  strSenha := 'a1234s545s454';

  http := TiDHttp.Create(nil);
  http.HandleRedirects := true;
  http.Request.BasicAuthentication := true;
  http.ReadTimeout := 5000;
  jsonToSend:=TStringList.Create;
  jsonToSend.Add('');
  Memo1.Lines.Text:=http.Post(urlBase + '/getToken', jsonToSend);
  jsonToSend.Destroy;
  http.Destroy;
end;

end.

Vinicius Redorat

Curtir t�pico + 0

Responder