Api kullanmayı ilk defa öğreniyorum. Arkadaşlarımızdan biri bana nasıl kullanacağımı göstermek adına sağolsun şöyle bir kod paylaştı.
Kod: Tümünü seç
var
HTTP: TIdHTTP;
Parameters: TStringList;
Rsp: String;
begin
HTTP := TIdHTTP.Create;
Parameters := TStringList.Create;
try
HTTP.Request.CustomHeaders.Values['Key'] := 'ECE75WZB-C1CSXXXX-H07XXXXX-QNXXXXXX';
HTTP.Request.CustomHeaders.Values['Sign'] := '8148114a3923cf6241a101ef24bd942e01318487d93ec53b18550350eeaa15';
Parameters.Add('nonce=1');
Parameters.Add('command=returnBalances');
Rsp := HTTP.Post('https://poloniex.com/tradingApi', Parameters);
finally
HTTP.Free;
Parameters.Free;
end;
Farklı bir çözüm olarak TNetHttpClient kullanın dediler. Bende aşağıdaki şekilde denedim. Bu seferde gönderdiğim api keyin geçersiz olduğu iletisini aldım. Kontrol ettiğimde api keyin doğru olduğunu görüyorum fakat Siteden dönen hata {"error":"Invalid API key\/secret pair."}
Acaba siteye login olmadan denediğim için mi bu hatayı alıyorum ? Nasıl yapmalıyım yol gösterirmisiniz , bu işin mantığı nedir ?
Api destek sayfası https://poloniex.com/support/api/
Kod: Tümünü seç
var
Parameters: TStringList;
Rsp: String;
begin
Parameters := TStringList.Create;
try
NetHTTPClient1.CustomHeaders['Key'] := 'xxxxxxxx';
NetHTTPClient1.CustomHeaders['Sign'] := 'xxx';
Parameters.Add('nonce=1');
Parameters.Add('command=returnBalances');
Rsp := NetHTTPClient1.Post('https://poloniex.com/tradingApi', Parameters).ContentAsString;
finally
NetHTTPClient1.Free;
Parameters.Free;
Memo1.Text:=Rsp;
end;
end;