Работа с API биржи yobit

var key, secret:string;
   url,sign:string;
   HTTP:THttpSend;
   list:TStringList;
   nonce:string;
begin
key:='///;
secret:='///';
nonce:=inttostr(DateTimeToUnix(now));
 
url:='https://yobit.net/tapi/';
sign:=SHA512DigestToHex(CalcHMAC_SHA512(secret, nonce));
 
HTTP:=THttpSend.Create;
HTTP.Headers.Add('key:'+key);
HTTP.Headers.Add('sign:'+sign);
HTTP.HTTPMethod('GET',url);
list:=TStringList.Create;
list.LoadFromStream(HTTP.Document);
memo1.Lines.Add(inttostr(HTTP.ResultCode)+#13#10+list.Text);
list.Free;
HTTP.Free;
 
 
end;

HTTP.Headers.Add('key:'+key);
HTTP.Headers.Add('sign:'+sign);

key:='';
secret:='';
 
nonce := FormatDateTime('yyyymmddhhnnsszzz',now);
url:='https://yobit.net/tapi/?';
 
 
IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
post := TStringStream.Create;
post.WriteString('getInfo&'+ nonce);
sign:=SHA512DigestToHex(CalcHMAC_SHA512(secret, post.DataString));
IdHttp1.Request.CustomHeaders.FoldLines := false;
idhttp1.Request.CustomHeaders.Values['Content-Type']:='application/x-www-form-urlencoded';
idhttp1.Request.CustomHeaders.Values['Key']:=Key;
idhttp1.Request.CustomHeaders.Values['Sign']:=sign;
 
Memo1.Text:= idhttp1.POST(URL, post);

uses idglobal, IdHMACSHA1, Winapi.Windows, Winapi.Messages, System.SysUtils,
  System.Variants,
  System.Classes,
  IdBaseComponent, IdComponent, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdTCPConnection, IdTCPClient, IdHTTP,
  System.json;

Par := 'method=getInfo&nonse=' + IntToStr(Nonce);

.....
uses
  SysUtils, Classes, DBXJSON, IdSSLOpenSSL, IdHTTP, DateUtils, IdGlobal,
  IdHMACSHA1, Dialogs;
.....
const
  YoKey = 'ваш ключ';
  YoSecret = 'ваш ключ-секрет';
.....
var
  JSON: TJSONObject;
.....

function GetJSON(URL: string; RequestBody: TStringList): boolean;
var
  ResponseBody: string;
  HTTP: TIdHTTP;
  SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := false;
  try
    HTTP := TIdHTTP.Create;
    SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
    try
      HTTP.HandleRedirects := True;
      HTTP.Request.Accept := 'application/json';
      HTTP.Request.ContentType := 'application/json';
      HTTP.Request.ContentEncoding := 'utf-8';
      HTTP.IOHandler := SSLIOHandler;
      HTTP.Request.UserAgent :=
        'Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0; MAAU)';
      ResponseBody := HTTP.Post(URL, RequestBody);
      JSON := nil;
      JSON := TJSONObject.ParseJSONValue(ResponseBody) as TJSONObject;
      if Assigned(JSON) then
        Result := True;
    finally
      SSLIOHandler.Free;
      HTTP.Free;
    end;
  except
    on E: Exception do;
  end;
end;

function GetHMACSha1(Input, MyKey: string): String;
var
  B: TIdBytes;
  Sha: TIdHMACSHA512;
  AText: string;
begin
  IdSSLOpenSSL.LoadOpenSSLLibrary;
  Sha := TIdHMACSHA512.Create;
  try
    Sha.key := ToBytes(MyKey);
    B := Sha.HashValue(ToBytes(Input));
    AText := tohex(B);
    Result := LowerCase(AText);
  finally
    Sha.Free;
  end;
  // IdSSLOpenSSL.UnLoadOpenSSLLibrary;
end;
 
function GetAPIMethod(RequestBody: TStringList): boolean;
var
  ResponseBody, sign, param: string;
  HTTP: TIdHTTP;
  SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
  i: integer;
begin
  Result := false;
  sleep(1100);
  try
    HTTP := TIdHTTP.Create;
    SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
    RequestBody.Add('nonce=' + IntToStr(DateTimeToUnix(now)));
    param := '';
    for i := 0 to RequestBody.Count - 2 do
      param := param + RequestBody[i] + '&';
    param := param + RequestBody[RequestBody.Count - 1];
    sign := GetHMACSha1(param, YoSecret);
    try
      HTTP.Request.CustomHeaders.FoldLines := false;
      HTTP.IOHandler := SSLIOHandler;
      HTTP.Request.UserAgent :=
        'Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0; MAAU)';
      HTTP.Request.CustomHeaders.Values['Key'] := YoKey;
      HTTP.Request.CustomHeaders.Values['Sign'] := sign;
      HTTP.Request.ContentLength := length(param);
      HTTP.HandleRedirects := True;
      ResponseBody := HTTP.Post('https://yobit.net/tapi/', RequestBody);
      JSON := nil;
      JSON := TJSONObject.ParseJSONValue(ResponseBody) as TJSONObject;
      if Assigned(JSON) then
        Result := True;
    finally
      SSLIOHandler.Free;
      HTTP.Free;
    end;
  except
    on E: Exception do;
  end;
end;

.....
const
  YoKey = 'Ваш ключ';
  YoSecret = 'Ваш ключ-секрет';
.....

GetJSON('https://yobit.net/api/3/info', TStringList.Create())

param := TStringList.Create();
param.Add('method=getInfo');
GetAPIMethod(param);

Params := TStringList.Create;
 
  Params.Add('method=getInfo');
  Params.Add('nonce=' + nonce);
 
par:='';
 
for i := 0 to Params.Count - 2 do
    par := par + Params[i] + '&';
  par := par + Params[Params.Count - 1];
 
   par := 'method=getInfo&nonce=' + nonce;
  sign := GetHMACSha1(par, sek);
 
  IdHTTP1.Request.CustomHeaders.FoldLines := false;
  IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
  IdHTTP1.Request.CustomHeaders.Values['Content-Type']:='application/x-www-form-urlencoded';
  IdHTTP1.Request.CustomHeaders.Values['Key'] := key;
  IdHTTP1.Request.CustomHeaders.Values['Sign'] := sign;
  IdHTTP1.Request.ContentLength := length(par);
  IdHTTP1.HandleRedirects := true;
  try
    result := IdHTTP1.Post('https://yobit.net/tapi/', Params);
  Memo1.lines.add(Result);
 
  except
    exit;
  end;