Вот кусок кода:
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 бит...
В чем проблема? Прошу помочь советом
