Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.02.22;
Скачать: 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 вся ветка

Текущий архив: 2009.02.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
15-1229712539
DillerXX
2008-12-19 21:48
2009.02.22
Подскажите утилиту для массового реплейса в файлах


15-1229611134
Добежал
2008-12-18 17:38
2009.02.22
На что заменить критические секции в Vista?


3-1215423644
alles
2008-07-07 13:40
2009.02.22
Как работать с индексами таблицы dbf?


2-1231927823
smartleds
2009-01-14 13:10
2009.02.22
Уважаемый All, есть процедура FormCreate поясните как


2-1231486350
_N_
2009-01-09 10:32
2009.02.22
Как узнать об изменении положения курсора в TListView?