İki PC Arasında Chat Prog.

[alixyas]

Arkadaşlar Yerel Bir Ağda PC Ler arası bir chat prog. gibi bişey
yapmak istiyorum. yani ben bi metin yazıp o prog. kayıtlı ip lerden birine göndermek istiyorum. bunu nasıl yapabilirim hangi bileşenleri kullanmalıyım. fikir babaları aranıyor... Teşekkürler..[/b]

[athena]

Kullandığınız delphi versionunu yazmamışsınız.
Delphi 7 de indy componentleri ondan öncede smtp componentleri olan palette bir yer vardı oradan kullanabilirsiniz.
Hatta delphi demosu olarakda ornek bir chat programı vardı.

Selamlar.

[Viper]

Ben Delphi 7 ye gecmedim dolayısıyla Client.socket ve server.socket kullanıyorum.

Socket.ReceiveText; ile mesajları alabilir ,

ServerSocket1.Socket.Connections[0].SendText(Edit3.Text);
bunun gibi bir komutlada gonderebilirsiniz.

tabiki ip ve port bilgilerini gireceginiz edit kutuları da gerekir.
Edit1.Text := '192.168.1.1';
Edit2.Text := '999'; gibi degerleri belirtebilirsiniz ancak bundan once ip portunu
Edit1.Text := ServerSocket1.Socket.LocalHost; seklinde ayarlayın. Bunlar server socket bulunan program icin birde client socket icin yine bir kac komut yeterli . Bunun icin baglan seklinde bir buton koyun.

ClientSocket1.Host:=Edit1.Text;
ClientSocket1.Port:=StrToInt(Edit2.Text);
ClientSocket1.Active:=True;
gibi komutları kullanabilirsiniz

ClientSocket1.Socket.SendText(Edit1.Text); seklindede mesaj gonderebilirsiniz.

Bunda mesaj alma islemini client socketin read olayına yazmalısınız
Edit2.Text:=(Socket.ReceiveText);


Kolay Gelsin....

[alixyas]

Verdiğiniz Bilgiler için Öncelikle size teşekkür etmek istiyorum....
Fakat delphi 7 de serversocket veya clientsocketin işini hangi komponent görüyo indy sekmesinde bi sürü bileşen var ama ne işe yarar bilemem. Biraz daha yardim Lütfen...

[mussimsek]

Merhaba,

Indy demoları içinde örnek program bulabilirsin. http://www.indyproject.org .

clientsocket için : viewtopic.php?t=1677

Kolay gelsin.