Работа с 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);

IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
post := TStringStream.Create;
//post.WriteString('Key':=key+'Sign':=sign);
 
sign:=SHA512DigestToHex(CalcHMAC_SHA512(secret, 'method=TradeHistory&pair=ltc_btc&nonce='));
 
//Memo1.Text:= idhttp1.Post('https://yobit.net/tapi/?method=TradeHistory&pair=ltc_btc&nonce'+nonce);
   parameters:= 'method=getInfo&nonce' + nonce;
 IdHttp1.Request.URL:= 'https://yobit.net/tapi/' ;
  IdHttp1.Request.Method:='POST';
    IdHttp1.Request.ContentType:='application/x-www-form-urlencoded';
     idhttp1.Request.CustomHeaders.Addvalue('Key',key);
idhttp1.Request.CustomHeaders.AddValue('Sign', sign);
 idhttp1.Request.ContentLength:=parameters.length;
 
 
 
 
 
//Memo1.Text:= idhttp1.Post('https://yobit.net/tapi/?method=TradeHistory&pair=ltc_btc&nonce'+nonce);

procedure TForm1.Button4Click(Sender: TObject);
var
  params: TStringList;
  Response: TStringStream;
  key, secret:string;
   url,sign,nonce:string;
begin
  try
    params := TStringList.Create;
    Response := TStringStream.Create('');
 
    IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
     key:='8E415CE2CEEBF65FBF9EBA9588EC8A54';
     secret:='881d751985ba0aa3c2600d4120709649';
 
nonce := FormatDateTime('yyyymmddhhnnsszzz',now);
url:='https://yobit.net/tapi/';
params.Add('&nonce='+nonce);
    sign:=SHA512DigestToHex(CalcHMAC_SHA512(secret, url));
  idhttp1.Request.ContentType:='application/x-www-form-urlencoded';
idhttp1.Request.CustomHeaders.Addvalue('Key',key);
idhttp1.Request.CustomHeaders.AddValue('Sign', sign);
    IdHTTP1.Post(url,params,response);
    Showmessage(Response.DataString);
  finally
    begin
      Response.Free;
      params.Free;
    end;
  end;
end;

function TForm1.api_query(api_opt: TStringList): AnsiString;
var
  param, nonce: String;
  sign: AnsiString;
  http_req: TIdHTTP;
  i: Integer;
begin
  result := '';
  if api_opt.Count > 0 then
  begin
    param := api_opt[0];
 
    if api_opt.Count > 1 then
      for i := 1 to api_opt.Count - 1 do
        param := param + '&' + api_opt[i];
 
    nonce := 'nonce=' + IntToStr(DateTimeToUnix(Now));
    api_opt.add(nonce);
 
    sign := SHA512DigestToHex(CalcHMAC_SHA512(api_sec, param + '&' + nonce));
 
    http_req := TIdHTTP.Create(self);
    http_req.ReadTimeout := 7000;
    http_req.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
    http_req.Request.CustomHeaders.AddValue('Key', api_key);
    http_req.Request.CustomHeaders.AddValue('Sign', sign);
 
    try
      result := http_req.post(url_tapi, api_opt);
      if CheckBox4.Checked then
        Memo1.Lines.Insert(0, ' -> RES: ' + result);
    except
      on pe: EIdHTTPProtocolException do
        Memo1.Lines.Insert(0, ' -> api error : ' + TimeToStr(Time) + ' ' + pe.Message);
      on e: Exception do
        Memo1.Lines.Insert(0, ' -> api error : ' + TimeToStr(Time) + ' ' + e.Message);
    end;
    http_req.Free;
  end;
end;

var
  tr: TStringList;
begin
  tr := TStringList.Create;
  // tr.Add('method=getInfo');
  tr.add('method=Trade');
  tr.add('pair=btc_usd');
  tr.add('type=sell');
  tr.add('rate=5000');
  tr.add('amount=0.002');
  api_query(tr);
  tr.Free;
end;

function TYoBitTradeAPI.GetAPIMethod(key, sicretkey: string;
  parametrs: tstringlist): string;
var
  param, sign: string;
  postpar: tstringlist;
  i: integer;
begin
  param := '';
  for i := 0 to parametrs.Count - 2 do
    param := param + parametrs[i] + '&';
  param := param + parametrs[parametrs.Count - 1];
  // postpar := tstringlist.create;
  // param := 'method=' + method + '&nonce=' + inttostr(nonce);
  sign := GetHMACSha1(param, sicretkey);
  // postpar.Add('key='+key);
  // postpar.Add('sign='+sign);
  http.Request.CustomHeaders.FoldLines := false;
  // http.Request.CustomHeaders.Values['Content-Type']:='application/x-www-form-urlencoded';
  http.Request.CustomHeaders.Values['Key'] := key;
  http.Request.CustomHeaders.Values['Sign'] := sign;
  http.Request.ContentLength := length(param);
  http.HandleRedirects := true;
  try
    result := http.Post('https://yobit.net/tapi/', parametrs);
  except
    exit;
  end;
end;
 
function TYoBitTradeAPI.GetHMACSha1(Input, MyKey: string): String;
var
  B: TIdBytes;
  Sha: TIdHMACSHA512;
  AText: string;
begin
  Sha := TIdHMACSHA512.create;
  try
    Sha.key := ToBytes(MyKey);
    B := Sha.HashValue(ToBytes(Input));
    AText := tohex(B);
    result := LowerCase(AText);
  finally
    Sha.Free;
  end;
end;