Показать сообщение отдельно
  #4  
Старый 03.08.2017, 16:39
AntiMag1991 AntiMag1991 вне форума
Прохожий
 
Регистрация: 27.12.2012
Сообщения: 14
Репутация: 10
По умолчанию

Проверил как идут пакет в моем клиенте и в клиенте разработчика.

как я заметил то правильно будет посылать все в таком формате

Код:
procedure TMainForm1.Button4Click(Sender: TObject);
var
  datat: string;
  js: string;
begin
  IdTCPClient1.Disconnect;
  IdTCPClient1.Host := '192.168.20.175';
  IdTCPClient1.Port := 3333;
  IdTCPClient1.Connect;
  IdTCPClient1.Socket.Open;
  js:='{"id":0,"jsonrpc":"2.0","method":"miner_getstat1"}';
  IdTCPClient1.Socket.WriteLn(js);      // <------(1)
  Memo1.Lines.Add('JSON отправлен');
  Memo1.Lines.Add(IdTCPClient1.Socket.ReadLn);
end;

Но при отладке сервер толи закрывает соединение или еще какая то ошибка получается на этапе (1). Пакет от сервера отправляется но когда доходит дело до считывания выдает ошибку Connecntion Closed Gracefulls.
При этом сервер отправил данные но почему все так происходит пока понять не могу.