Скачать: CL | DM;

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

← →
Rescator ©   (2006-08-18 23:43) [0]

Посоветуйте, пожалуйста, как это сделать. Буду благодарен за любую ссылку и пример похожего приложения :)

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

var
 request, URL, content,
 Header,  Body: string;
begin
       TcpClient1.RemoteHost:="psychology.net.ru";
       TcpClient1.RemotePort:="80";
       url:="/comcom/index.php";
       content:="Login=<hided>&Password=<hided>&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) [1]

http://elite-mythology.sourceforge.net/TAKChat/
вот тебе "любая" ссылка. %-)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c