Чтоб лишний раз не флудить
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var s:string;
begin
s:='<html>'+TimeToStr(now)+'</html>';
Memo1.Lines.add(ClientSocket.Receiveln()+' ('+TimeToStr(now)+') ('+s+')');
ClientSocket.Sendln(s);
end;
Запускаю, в Опере захожу на "http://127.0.0.1:123/", возвращается время естественно. НО. работает через раз, через 2. т.е.обновляю страницу, то пустая, пустая, то время.. в IE7 вообще не работает. Что еще дописать?
Заметил, запрос с Ie "GET / HTTP/1.1", а опера это раз 5 за один запрос.
|