tcpserver - tcpclientler ilişkisi

[CemErgun]

merrhaba arkadaşlar gene ben, belki sıkmış olabilirim sizi ama neyapalım öğrenmeye çalışıyoruz..

arkadaşlar aradım taradım bulamadım.. bir tcpserverım birde tcpclientim var bu tcp clientten server a writeln ile komut yolluyorum serverda tekrar bana yolluyor fakat sadece bana yollamasını istemiyorum, servera bağlı herkese yollamasını istiyorum.. yardımcı olacak olan varsa şimdiden teşekkürler.

[Ertugrul]

Kullandigim bilgisayarda delphi yok fakat asagidakinin benzeri bir kod yardimci olur.

Kod: Tümünü seç

procedure TopluMesaj(s:string);
var
i:integer;
begin
  for i:=0 to TCPServer1.Connections.Count-1 do
    TCPServer1.Connections[i].Socket.Writeln(s);
end;

[Battosai]

http://delphi.about.com/od/networking/l/aa112602a.htm

[CemErgun]

procedure TopluMesaj(s:string);
var
i:integer;
begin
for i:=0 to TCPServer1.Connections.Count-1 do
TCPServer1.Connections.Socket.Writeln(s);
end;


bu çalısmıyor (indy tcp server ve client complarını kullanıyorum) connections diye birşey bulunamıyor..

diğeride internetteki tcpserver comp. ertugrul kardeşim senn verdiğini onlada denedim olmuyor

yinede yardımlar için teşekkürler..

yardımlarınızı bekliyorum..

isteğimi tekrar söyliyim > IDTCPSERVER'ıma bağlı olan bütün IDTCPCLIENT'lere, bir clientin gönderdiği mesajı göndermek istiyorum.

[CemErgun]

arkadaşlar, hocalarım.. lütfen yardımınıza ihtiyacım var hala yapamadım..

[CemErgun]

yok mu yardımcı olabilecek?

[subhan]

Bu kodu neden kendin yazarak hatanın nerde olduğunu bulmuyorsun. Hatanın nerde olduğunu ve ya kodu düzenlemeden kopyaladın öylemi. Şimdi ben bilgisayarda delphi yok ancak bunları dene istersen. Ben de kopya yapıyordum (şimdi de oluyor bazan ancak yapmayacağıma söz verdim. )

Koda bulunan Connections - yerlerine Connection yaz dene. Yine kod çalışmazsa TCPServer1. yaz " . " karakterinden sonra seçimeler gelir Connection kelmesi ile alaksı olan ve ya benzeyenleri tek-tek yokla. Yokla ki bilesin dimi.

Kod: Tümünü seç

procedure TopluMesaj(s:string);
var
i:integer;
begin
for i:=0 to TCPServer1.Connection.Count-1 do // 
TCPServer1.Connections[i].Socket.Writeln(s);
end;

[CemErgun]

yahu denemediğimi nerden biliyosun? sadece bu değil başka componentlerde denedim, ayrıca bunda sockets i bindings i falan herşeyi kullandım olmuyor yapamıyorum yapabilsem buraya sormazdım zaten merak etme ben öyle hazırcı birisi değilim uğraşırm yapamazsam sizlere sorarım