Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Свой браузер-чат [D7, WinXP]


Дмитрий_05 ©   (2005-06-02 20:35:00) 

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


Дмитрий_05   (2005-09-06 01:54:00) [1]

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


lehich   (2005-08-22 13:46:00) [2]


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

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


Piter   (2005-08-22 13:33:00) [3]

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

[4]


геспер   (2005-08-22 11:18:00) [4]

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


-=S.S=-   (2005-06-02 22:10:00) [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;


Eraser   (2005-06-02 21:42:00) [6]

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

TidHTTP


Дмитрий_05   (2005-06-02 21:36:00) [7]

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


Eraser   (2005-06-02 21:36:00) [8]

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


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


-=S.S=-   (2005-06-02 21:09:00) [9]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо