[Semreg]

Вот кусок кода:

PHP код:

procedure TForm1.FormActivate(Sender: TObject);
begin
  IdTCPClient1.Host := '***.***.***.***';
  IdTCPClient1.Port := *****;
  IdTCPClient1.Connect;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  otvet: System.Text;
  temp: String;
begin
  IdTCPClient1.WriteFile('vopros.dat');
  AssignFile(otvet, 'otvet.dat');
  Rewrite(otvet);
    temp := IdTCPClient1.ReadLn();
    WriteLn(otvet, temp);
    Memo1.Lines.Add(temp);
  CloseFile(otvet);
end; 


Сервер - не мой.
При нажатии на кнопку Memo1 - пустое, файл otvet.dat - пустой.
Снифер показывает, что пакет от клиента отправлен и показывает пакет, который приходит от сервера. Дельфи пакет приходящий от сервера не видит, переменная temp пустая...

В снифере видно, про приходящий пакет состоит из 78 бит...

В чем проблема? Прошу помочь советом

[NumLock]

а ответ текстовый?

В снифере видно, про приходящий пакет состоит из 78 бит...

байт?

[Semreg]

байт?

да байт.

а ответ текстовый?

нет, не текстовый. ответ набором кракозябр приходит.
Пару раз из 200 запусков непонятно каким образом у меня коректно файл otvet.dat создался.
Сравнил в HEXредакторе файл otvet.dat с ответом в снифере.
Вывод - идентичны.
Остальные 198 запусков файл otvet.dat создается 2-х байтный пустой.

[NumLock]

ну так может байты меньше #32, поэтому и строка не пустая. скриншот ответа сниффера покажи...

[Semreg]

Вверху красным - мой отправленный пакет.
Ответ всегда почти одинаковый. Различия в несколько байт.

[NumLock]

ну вот видишь: большинство "нечитаемых" символов. поэтому и получаешь только +; на символе #0 строка обрезается. читай данные в массив байт.

[Semreg]

Амиго, научи пожалуйста дурака такого, как это правильно сделать?

[NumLock]

вместо ReadLn() использовать ReadBuffer().