TIdTCPServer : An Gruppe verbundener Clients senden

[Klaus01]

Hallo Dominik,

Delphi-Quellcode:

type
  PClient   = ^TClient;
  TClient   = record
    PeerIP        : string[15];            { Cleint IP address }
    HostName      : String[40];            { Hostname }
    Command       : String[100];
    WindowHandel  : HWND;                  {Window Handle der Applikation}
    WindowPosX,  WindowPosY,
    WindowWidth, WindowHeight : SmallInt;
    Connected     : TDateTime;             { Time of connect }
    //Thread        : Pointer;               { Pointer to thread }
    Thread        : TidContext;
  end;

Delphi-Quellcode:

var SelClient : PClient;
    i         : SmallInt;
begin
    try
      for I := 0 to Clients.LockList.Count - 1 do begin
        SelClient := PClient(Clients.LockList.Items[I]);
        SelClient.Thread.Connection.IOHandler.WriteLn('ShutDown');
      end;
    finally
      Clients.UnlockList;
    end;

wenn Du den Thread Typ auf TidContext änderst, knallst dann immer noch?

Grüße
Klaus