[РЕШЕНО][Delphi] Перестал работать POST запрос

[Neznayka2016]

Код успешно работал
Код:

...
const
PublicKey:= ****;
SecretKey:= ****;
UrlAPI:= 'http://api.exmo.me/v1/';
...
var
LastNonce:= DateTimeToUnix(Now);


function GetNonce: string;
begin
  LastNonce:= LastNonce + 1;
  Result:= IntToStr(LastNonce);
end;

function Signature(AData: string): string;
begin
  Result := SHA512DigestToHexA(CalcHMAC_SHA512(SecretKey, AData));
end;

function SendQuery(AData, AMethod: string): TDispatchResult;
var
  PostData: TStringStream;
begin
    try
      AData:= AData + 'nonce=' + GetNonce;
      FidHTTP.Request.CustomHeaders.Clear;
      FidHTTP.Request.CustomHeaders.Add ('Content-Type: application/x-www-form-Urlencoded');
      FidHTTP.Request.CustomHeaders.Add('Key: ' + PublicKey);
      FidHTTP.Request.CustomHeaders.Add('Sign: ' + Signature(AData));
      PostData:= TStringStream.Create(AData);
      StartTime:= GetCurrentTime;
      Result.Data:= FidHTTP.Post(UrlAPI + AMethod, PostData);
    finally
      PostData.Free;
      FidHTTP.Disconnect;
    end;
end;

function GetUserInfo: TApiResult;
begin
    FDispatch:= SendQuery('', 'user_info');
    Result.Data:= FDispatch.Data;
end;

после тех работ на сервисе, стал выдавать такой ответ
'{"result":false,"error":"40007: Incorrect format parameter ''nonce''"}'#$A

______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[ADSoft]

так может посмотреть что там изменилось, при чем тут клиентский код... если изменения после техработ на сервисе произошли?
... вообще у меня на територи РФ показывает что заблокирован сайт
а через прокси- что проблемы с сертификатом

[Neznayka2016]

если не доступен com, можно попробовать через me.Некоторые утверждают что уних все работает. Я не силен в запросах, возможно просто с пт мы друг друга и не можем понять.

[Neznayka2016]

Задача больше не актуальна

[Вадим Мошев]

Neznayka2016, Если вы решили проблему, то расскажите о том, как вы это сделали. Это будет полезно остальным.

[Neznayka2016]

Сообщение от Вадим Мошев

Neznayka2016, Если вы решили проблему, то расскажите о том, как вы это сделали. Это будет полезно остальным.

В принципе никакого секрета здесь нет, строка

FidHTTP.Request.CustomHeaders.Add ('Content-Type: application/x-www-form-Urlencoded');

теперь выглядит так

FidHTTP.Request.CustomHeaders.Add ('Content-Type: application/x-www-form-urlencoded; charset=utf-8');

. Так что готовый шаблон для работы с API криптобиржи есть, модифицируйте, пользуйтесь, зарабатывайте.