Simple Chat

Здравей те.

Въпроса ми е как да си направя чат с делфи 7 или ако знаете някой сайт
с примери ще ви бъда много благодарен .

Seriozna chat programa se prawi dosta trudno - za elementaren primer kojto prosto demonstrira polzwaneto na TCP/PI mojesh da se razrowish iz instalacionniq disk na delfito tam maj imashe..

------------------------------
I got a COMPILER, and I'm not afraid to use it!

виж дали нямаш една такава директория:
..\Delphi7\Demos\Internet\NetChat

това трябва да е примерчето което търсиш

--------------------------------------
Започва Път от моят праг...

Az sym pravil - kakvo te interesyva

ako ti triabva gotov komponent - INDY ima IRC client samo sharish forma
ako iskash da pishesh ot nula - TCPclient....

ti na TCPclient ot nula li mu wiaksh? :) uses winsock; i chesno da ti kaja po-dobre e da se izbqgwa TTCPClient/server - az pone imam mnogo negativni nabludeniq - nakar i dosta stari...

------------------------------
I got a COMPILER, and I'm not afraid to use it!

TClientSocket TServerSocket - i s tova stava - pravil sym go - tyrsia kyde sym zabil sorsa ama posle e poveche pisane za obrabotka na komandite
Po dobre da si vzeme INDYto i da si shari formata

eto ti primer za konekciq (Form, buton i memo)

unit UnitCHAT;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, WSocket;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
procedure onDataAvailable(Sender: TObject; Error: Word);
procedure onConnected(Sender: TObject; Error: Word);
public
IRC: TWSocket;
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.onDataAvailable(Sender: TObject; Error: Word);
var
Response: string;
begin
Response := IRC.ReceiveStr;
memo1.Lines.Add(Response);
// tuk izvyrshvash Tokenize i obrabotka na komandite na IRC
end;

procedure TForm1.onConnected(Sender: TObject; Error: Word);
begin
IRC.SendStr('NICK Nick_Name' + #13#10);
IRC.SendStr('USER User_Name "Local_Host_Name" "irc.top.bg" :Real_Name' + #13#10);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IRC := TWSocket.Create(Self);
IRC.OnDataAvailable := onDataAvailable;
IRC.OnSessionConnected := onConnected;
IRC.Addr := 'irc.top.bg';
IRC.Port := '6667';
IRC.Connect;
end;

end.