Скачать: CL | DM;
Ответ для браузера Найти похожие ветки
← →
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]шли ему ответ, что пошлеш то он и получит
← →
maxistent © (2008-01-06 17:53) [4]После коннекта 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;
это не совсем правильно, но работает вроде...
Страницы: 1 вся ветка
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.007 c
Программер
2009-01-12 13:52
2009.02.22
Как выделить item в listbox?
15-1230290011
GEN++
2008-12-26 14:13
2009.02.22
Есть вакансия программиста С для микроконтроллеров ATMEL
15-1230243543
Германн
2008-12-26 01:19
2009.02.22
Ох уж эти...
15-1229522731
@!!ex
2008-12-17 17:05
2009.02.22
Релиз VirtualBox с поддержкой 3D!
2-1231431032
Johnnnn
2009-01-08 19:10
2009.02.22
Как грамотно вынести процедуру в отдельный модуль?