| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ответ для браузера [D7]
asker © (2007-12-28 01:29:00)Подскажите, что написать для ответа браузеру. Объясняю:
Есть TServerSocket -> порт 80, запускаем. Потом в браузере открываем http://АЙПИ:80/и что в этот момент нужно Socket.SendText() чтобы браузер вывел скажем
<h1>Hello world</h1>
Вопрос наверно глупый, но всеже попрошу ответить. Спасибо.
maxistent (2008-01-06 17:53:00) [1]После коннекта 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;
это не совсем правильно, но работает вроде...
Свой (2008-01-06 17:11:00) [2]шли ему ответ, что пошлеш то он и получит
BillyJeans (2007-12-28 09:48:00) [3]мда...
Сергей М. (2007-12-28 08:29:00) [4]Описание http ты уже изучил ?
| |
