unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms,  Graphics,  httpsend,ssl_openssl,DateUtils,cHash,StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
   
  HTTPSend1:THTTPSend;
   key, secret:string;
   url,sign:string;
   HTTP:THttpSend;
   list:TStringList;
   nonce:string;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
key:='';
secret:='';
nonce:=inttostr(DateTimeToUnix(now));

url:='https://bittrex.com/api/v1.1/account/getbalance?apikey='+key+'&nonce='+nonce+'&currency=USD';
//url:='https://bittrex.com/api/v1.1/market/selllimit?apikey='+key+'&nonce='+nonce+'&market=BTC-TUBE&quantity=100&rate=0.00000109';
//url:='https://api.bittrex.com/api/v1.1/account/getbalance?apikey=API_KEY&currency=BTC
sign:=SHA512DigestToHex(CalcHMAC_SHA512(secret, url));

HTTP:=THttpSend.Create;
HTTP.Headers.Add('apisign:'+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;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Memo1Change(Sender: TObject);
begin

end;

end. 

unit HiAsmUnit;

interface

uses kol,Share,Debug,DateUtils;

type
 THiAsmClass = class(TDebug)
   private

   public
      Event:THI_Event;

        procedure doConvert(var Data:TData; index:word);
 end;

implementation
 procedure THiAsmClass.doConvert;
    var 
    s:string;
begin
   s:=Int2Str(DateTimeToUnix(now));
     //s:=inttostr(DateTimeToUnix(now));
     //s:='ww';
   _hi_OnEvent(Event,s);
 
End;

end.