Текущий архив: 2005.12.18;
Скачать: CL | DM;
Вниз
Свой браузер-чат Найти похожие ветки
← →
Дмитрий_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]А как быть если у меня прокся ?
← →
Piter © (2005-08-22 13:33) [7]геспер (22.08.05 11:18) [6]
[4]
← →
lehich (2005-08-22 13:46) [8]
> ХЗ на чём этот чат. Толи на CGI толи на PHP
сам движок чата кроватка написан на Си...
← →
Дмитрий_05 (2005-09-06 01:54) [9]А ктонибудь пробовал похожее создать?
Страницы: 1 вся ветка
Текущий архив: 2005.12.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.013 c
