Indy 10 - 1 Server 2 Clients

[generic]

ungefair so:

Delphi-Quellcode:

  
var 
  i: integer;
  Thread: TIdPeerThread;
  clientliste: TList;
begin
  clientliste:=server.Threads.LockList;
  try
        for i:=0 to Count-1 do
        begin
          Thread:= items[i];
          Thread.Connection.WriteBuffer(CB, sizeof(CB));
        end;
  finally
    server.Threads.UnlockList;
  end;
end;

du kannst du buffer durch die gegend schieben.
abhängig von der indy version gehen auch strings.


ach ja: willkommen in der DP