Delphi + WebApi RestFul

15/02/2018

13

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.
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar