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