CHaT PRoGRaMı

Not : formunuza kesinlikle ClientSocket1 koymanız gerekiyor bu NMMsg1 deki
Portu bilgisayarda oluşturmak için gereklidir...

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;