Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Клиент веб-чата на делфи. Как реализовать?

Rescator © (2006-08-18 23:43:00)
Посоветуйте, пожалуйста, как это сделать. Буду благодарен за любую ссылку и пример похожего приложения :)

Не могу авторизоваться в чате.. Отправляю серверу пост-запрос такой:

var
request, URL, content,
Header, Body: string;
begin
TcpClient1.RemoteHost:='psychology.net.ru';
TcpClient1.RemotePort:='80';
url:='/comcom/index.php';
content:='Login=&Password=&Room=1&Sex=%CC&Enter=+%C2%EE%E9%F2%E8+%E2+%F7%E0%F2';
request:='POST '+URL+' HTTP/1.0'+CRLF;
request:=request+'Accept: */*'+CRLF+
'Accept-Language: ru'+CRLF+
'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.3 (build 01218); .NET CLR 2.0.50215)'+CRLF+
'Content-Type: application/x-www-form-urlencoded'+CRLF+
'Proxy-Connection: Keep-Alive'+CRLF+
'Content-Length: '+inttostr(length(content))+CRLF;
TcpClient1.Open;
TcpClient1.Sendln(request+CRLF+content,'');
Header:=TcpClient1.Receiveln(CRLF+CRLF);
Body:=TcpClient1.Receiveln('');
TcpClient1.Close;
Memo1.Lines.Add(Header + CRLF + Body);

Пишет, что на сервере нет такой странички и отсылает на сайт хостинга этого чата. Помогите разобратся(

Ketmar (2006-08-18 23:54:00) [1]
http://elite-mythology.sourceforge.net/TAKChat/
вот тебе "любая" ссылка. %-)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »