SİTEME HOŞ GELDİNİZ

 

 

                                                                           

                        

                                                                                                           

                                                                                                         

                                                                                                                

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; end. { Code by Adnan ATMACa - adnandost@yahoo.com }