Здравствуйте, не могу извлечь API с Binance. С других бирж без проблем все извлекается
Пример API Binance
https://api.binance.com/api/v1/ticke...?symbol=BNBBTC
Помогите, пожалуйста, з советом
Код:
var
url: string;
s: String;
Resp_Json: string;
Req_Json:TStream;
begin
url := 'https://api.binance.com/api/v3/ticker/price?symbol=BNBBTC';
// url := 'https://api.exmo.com/v1/currency/';
s:='state=1';
s:=s+'&kind=0';
s:=s+'&tblid=0';
Req_Json:=TstringStream.Create(s);
Req_Json.Position:=0;
IdHTTP1.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create;
TIdSSLIOHandlerSocketOpenSSL(IdHTTP1.IOHandler).SSLOptions.Method := sslvTLSv1_2;
try
IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/61.0.3163.100 Safari/537.36';
IdHTTP1.Request.Accept := 'application/json, text/javascript, */*; q=0.01';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded; charset=UTF-8';
IdHTTP1.Request.CharSet:='utf-8';
Resp_Json:=IdHTTP1.Post(url, Req_Json);
finally
Req_Json.Free;
end;
memo1.Lines.Add(IdHTTP1.ResponseText);
memo1.Lines.Add(Resp_Json);
end;