source: trunk/OdorikApi.pas

unit OdorikApi;

interface

uses
  System.SysUtils, System.Types, System.Classes;

type
  TOdorikApi = class
  private
  public
    UserName: string;
    Password: string;
    ServerUrl: string;
    function GetCredit: Double;
    function SendGet(Path, Parameters: string): string;
  end;

implementation

function TOdorikApi.SendGet(Path: string; Parameters: string = ''): string;
var
  Url: string;
begin
  if (ServerUrl <> '') and (UserName <> '') and (Password <> '') then begin
    Url := ServerUrl + Path + '?user=' + UserName + '&password=' + Password;
    if Parameters <> '' then Url := Url + '&' + Parameters;
    Result := IdHTTP1.Get(Url);
  end else Result := '';
end;

function TOdorikApi.GetCredit: Double;
var
  Response: string;
  Value: Extended;
begin
  Response := SendGet('/balance');
  if Response <> '' then begin
    Response := StringReplace(Response, '.', FormatSettings.DecimalSeparator, [rfReplaceAll]);
    if TryStrToFloat(Response, Value) then
      Result := Value
      else Result := 0;
  end else Result := 0;
end;



end.