Hep Soru Soruyorum Ama Sora Sora Oğreniyorum
.
Okulda Hocamız basit bi chat Haberleşme progamı yapın dedi
(TServerSocket ve TClientSocket ) bunları arastırın dedi
Bende arastırdım bi kac bişey buldum ama nedir nasıl kullanılır cozemedim
Buldugum dokumanlardan kopyala yapıstır metodu ile bişiler yaptım Fakat
Anlamadım nasıl kullanıcam bunu ..(Yaptıgım program ve Dokumanları yazının sonuna koydum).. Arkadaslar bana cok basit olarak bu chat programımı dır ne haltsa bana Bİ anlatsanız Yada bana Deyinki şu yaptıgını
Şoyle calıstır şurda calıstır veya yaptıgım pro olmamışsa nasıl yapacagımı Anlatsanız
Yanlıs Anlamayın Sizden hazır bir şey istemiyorum bana bunu Oğretmenizi istiyorum
Rica ediyorum
Biliyorum cok şey istiyorum ama Kafam cok karıstı ...
buda indirmek istemeyenler icin bunu nasıl işte neyse yukarda yazdım
Bu Client tarafıymış
PHP Code:
var
Form1: TForm1;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
if ClientSocket1.Active then //Eğer soketimiz aktif ise
ClientSocket1.Socket.SendText(Edit1.Text); //Edit ın iceriğini gonderiyoruz
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ClientSocket1.Active := false; //Soketimizi pasif yaptık
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Port := 23;
ClientSocket1.Host := '10.9.5.1'; //Bolgesel TCP/IP server adresi
ClientSocket1.Active := true; //Soketimizi aktif yaptık
end;
end.
Buda server tarafı
PHP Code:
var
Form1: TForm1;
implementation
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ServerSocket1.Active := false; //Aktifliğini iptal ediyoruz.
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port := 23; //port numaramız
ServerSocket1.Active := True; //soketimizi aktif yaptık
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;
end.
Kopyala yapıstır metodu kullanarak yaptıgım pro := http://rapidshare.com/files/215520504/Chat.rar.html
Buda Buldugum dokumanlar:=http://rapidshare.com/files/215527942/Dokuman.rar.html
__________________