Скачать: 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 вся ветка

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



Память: 0.47 MB
Время: 0.043 c