Биржевые API

[PTyTb32]

Привет, не так давно мучился над созданием разных ботов для разных бирж и часто сталкивался с проблемой что везде есть примеры на разных языках в число которых Delphi не входил, в общем я решил это поправить и выложу сюда несколько модулей для работы с разными биржами, начнем с Poloniex и YoBit.
Модули поддерживают 2 режима работы Only Public и Private and Public

Для работы любого из них файл кладется в папку с проектом и не забываем в uses добавить имя файла.

Пример использования Private and Public:

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TYoBit;
begin
  p.Create('API_Key','Sign');
  Memo1.Text := p.getinfo;
end;

Пример использования Only Public:

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TYoBit;
begin
  p.Create();
  Memo1.Text := p.returnTicker;
end;

В случае вызова приватной функции методом Only Public, в Memo вернется "NOT PRVAT API"

В случае успешного выполнения вернет ответ сервера в формате JSON.

Надеюсь кому то еще пригодится))
PoloniexAPI.rar
YoBitAPI.rar

[Gotrim]

При выполнении вашего кода и выходит такая ситуация
На форме кнопка и мемо, вызываю модуль, ответ приходит, появляется в мемо, но при движение мышки с поля мемо на поле формы вылетает Access violations, причем если посылаю запрос без параметров, р.Create();, пишет что нет приватных ключей и ошибка не выскакивает, не выскакивает и при запросе по публичному апи

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, YobitAPI;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  YA: TYobit;
begin
  YA.Create('werre','werer');
  Memo1.Text :=YA.getInfo();
end;

end.





unit YobitAPI;

interface

uses IdHTTP, System.Hash, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  System.Classes, IdSSL, System.SysUtils, IdSSLOpenSSL, DateUtils;

type
  TYobit = class(TObject)
    constructor Create(sAPI_Key: string = ''; sSecret: string = '');
  public
    function getinfo(): string;
  private
    H: THashSHA2;
    API_Key: string;
    Secret: string;
    PublicApi: boolean;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    function returnPrivateData(method: string; params: string = ''): string;

  end;

implementation

constructor TYoBit.Create(sAPI_Key, sSecret: string);
begin
  if (sAPI_Key = '') or (sSecret = '') then
  begin
    PublicApi := true;
  end
  else
  begin
    PublicApi := false;
    API_key := sAPI_Key;
    Secret := sSecret;
    H.Create(SHA512);
  end;
  IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  IdHTTP1 := TIdHTTP.Create(nil);
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.method := sslvSSLv23;
  IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
end;

function TYoBit.returnPrivateData(method: string; params: string = ''): string;
var
  nonce, ms: string;
  post: TStringStream;
begin
  if PublicApi then
  begin
    result := 'NO PRIVATE API KEY';
    exit;
  end;
  nonce := IntToStr(DateTimeToUnix(Now));
  post := TStringStream.Create;
  post.WriteString('method=' + method + '&nonce=' + nonce + params);
  ms := H.GetHMAC(post.DataString, secret, SHA512);
  IdHTTP1.Request.CustomHeaders.FoldLines := false;
  IdHTTP1.Request.CustomHeaders.Values['Key'] := API_key;
  IdHTTP1.Request.CustomHeaders.Values['Sign'] := ms;
  result := IdHTTP1.post('https://yobit.net/tapi/', post);
  post.Free;
end;

function TYoBit.getinfo: string;
begin
  result := returnPrivateData('getInfo');
end;


end.

Пожалуйста, оформляйте Ваш код согласно правилам.