Chat Programı Yapma

[Acem0x0]

Merhabalar internette biraz araştırma sonuncu bir kaç kod buldum ve en yararlısı geldi ama bu kodu nasıl kullanacaığımı bilmiyorum nmsg bileşenleri delphi 7 de olmadığı için kafam karıştı yardımcı olursanız çok sevinirim yane yapmak istediğim bir chat programı yapmak işe yarar önerileriniz ve kodlarınız varsa lütfen paylaşınız tekrar teşekkürler .

Kod: Tümünü seç

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, NMMSG, Psock;
 
type
  TForm1 = class(TForm)
    NMMSGServ1: TNMMSGServ;
    NMMsg1: TNMMsg;
    Edit1: TEdit;
    memo1: TMemo;
    ClientSocket1: TClientSocket;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure NMMSGServ1ClientContact(Sender: TObject);
    procedure NMMSGServ1MSG(Sender: TComponent; const sFrom, sMsg: String);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.NMMSGServ1ClientContact(Sender: TObject);
begin
        NMMSGServ1.ReportLevel := Status_Basic; // burada rapor düzeyi varsayılan olarak ayarlanıyor
        NMMSGServ1.TimeOut := 90000; // burada mesaj denetleme süresi ayarlanıyor(milisaniye olarak)
end;
 
procedure TForm1.NMMSGServ1MSG(Sender: TComponent; const sFrom,
  sMsg: String);
begin
        memo1.Lines.Add(sFrom + ' : ' + sMsg); // alınan mesajlar memo1 öğesine yazılıyor
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
        if key = #13 then // burası enter tuşuna basılmışa manasına geliyor
        begin
                NMMsg1.Host := edit3.Text; // gönderilecek adres edit3 bileşeninden alınıyor
                NMMsg1.Port := StrToInt(edit2.Text); // gönderileceği port edit2 bilşeninden alınıyor
                NMMsg1.FromName := edit4.Text; // gönderenin adı edit4 bileşeninden alınıyor
                NMMsg1.PostIt(edit1.Text); // edit1 bileşenindeki yazı gönderiliyor...
        end;
end;
 
end.

[SimaWB]

Delphi ile birlikte gelen Indy bileşen seti içerisinde Chat demo'su vardı. Linkini şuanda bulamadım ama buraya bakabilirsiniz.
Ayrıca bir örnek de burada var.