Ответ для браузера

← →
asker (2007-12-28 01:29) [0]

Подскажите, что написать для ответа браузеру. Объясняю:
Есть TServerSocket -> порт 80, запускаем. Потом в браузере открываем http://АЙПИ:80/ и что в этот момент нужно Socket.SendText() чтобы браузер вывел скажем
<h1>Hello world</h1>
Вопрос наверно глупый, но всеже попрошу ответить. Спасибо.

← →
Сергей М. © (2007-12-28 08:29) [1]

Описание http ты уже изучил ?

← →
BillyJeans (2007-12-28 09:48) [2]

мда...

← →
Свой (2008-01-06 17:11) [3]

шли ему ответ, что пошлеш то он и получит

После коннекта ServerSocket получит "текст" от браузера. потом можно чо-нить ответить:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var s:string; begin s:= "HTTP/1.1 200 OK"+#13#10+ "Date: Sun, 06 Jan 2008 14:33:18 GMT"+#13#10+ "Server: Apache"+#13#10+ "X-Powered-By: PHP/5.2.5-pl0-gentoo"+#13#10+ "Content-Length: 1198"+#13#10+ "Keep-Alive: timeout=15, max=100"+#13#10+ "Connection: Keep-Alive"+#13#10+ "Content-Type: text/html"+#13#10#13#10+ "<HTML> <TITLE> Заголовок </TITLE> TEKCT </HTML>"; ServerSocket1.Socket.Connections[0].SendText(s); sleep(1000); ServerSocket1.Active:=false; end;

это не совсем правильно, но работает вроде...

Ответ для браузера Найти похожие ветки