Свой браузер-чат

← →
Дмитрий_05 (2005-06-02 20:35) [0]

Я хотел бы попробовать написать браузер-чат, для общения в чатах... Например под krovatka.ru. Что-то наподобие программы Capellan, только получше, он мне не нравится... Идея хорошая, а реализовано не очень как-то... Я так понимаю нужно писать HTML-Parser, он у меня есть! Как мне сделать чтобы все сообщения добавлялись например в RitchEdit?

← →
-=S.S=- © (2005-06-02 21:09) [1]

ХЗ на чём этот чат. Толи на CGI толи на PHP. Но это впринципе не важно ;).
Для того чтобы добавлять это всё в RitchEdit необходимо постоянно запрашивать страницу с сервера. Её парсить и добавлять в RitchEdit.

Всё понятно ?
PS : Скоро PHP и CGI чаты умрут. Так как они живут за счёт рефреша. И соответсвенно жрут много трафика.

← →
Дмитрий_05 (2005-06-02 21:36) [2]

Это я и сам знаю... вот как мне ее запрашивать страницу? Иными словами как мне получать HTML-код страницы?

← →
Eraser © (2005-06-02 21:36) [3]

-=S.S=- © (02.06.05 21:09) [1]
Скоро PHP и CGI чаты умрут. Так как они живут за счёт рефреша. И соответсвенно жрут много трафика.

Умрут то умрут, но не из-заа трафика, т.к. на западе и в Москве сейчас уже в основном анлим везде и на трафик всем накласть.

← →
Eraser © (2005-06-02 21:42) [4]

Дмитрий_05 (02.06.05 21:36) [2]

TidHTTP

← →
-=S.S=- © (2005-06-02 22:10) [5]

Хотишь поиграться ... поиграйся... Лично я не знаю точно как запросить страницу с корня сайта. Та и разбираться некогда.
procedure TForm1.ClientSocket1Write(Sender: TObject; Socket: TCustomWinSocket); begin Socket.SendText("GET "+"HTTP/1.0"#10#10); end; procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); Var S:String; begin S:= Socket.ReceiveText; If S="" then ClientSocket1.Close; FText := FText + S; end; procedure TForm1.ClientSocket1Connecting(Sender: TObject; Socket: TCustomWinSocket); begin FText := ""; end; procedure TForm1.ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket); begin Memo1.Lines.Add(FText); end; procedure TForm1.Button1Click(Sender: TObject); begin Clientsocket1.Host := "znak.krovatka.ru"; ClientSocket1.Port := 80; ClientSocket1.Open; end; procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin Memo1.Clear; end;

← →
геспер (2005-08-22 11:18) [6]

А как быть если у меня прокся ?

геспер (22.08.05 11:18) [6]

[4]

← →
lehich (2005-08-22 13:46) [8]

> ХЗ на чём этот чат. Толи на CGI толи на PHP

сам движок чата кроватка написан на Си...

← →
Дмитрий_05 (2005-09-06 01:54) [9]

А ктонибудь пробовал похожее создать?

Свой браузер-чат Найти похожие ветки