Guten Abend allerseits,
ich habe bei den Indys ein Problem mit dem OnConnect-Event und einer TThreadList. Um die Daten der einzelnen Clients zu sammeln, lege ich alles in der TThreadList ab. Wenn ich mit dem ersten Client connecte, läuft das Event ganz normal durch, es wird ein Element zur Liste hinzugefügt. Versuche ich mit dem zweiten Client zu verbinden, wird der Code normal ausgeführt, bricht dann aber ab, wenn die Daten des Clients zu der ThreadList hinzugefügt werden sollen.
Hier erst mal der relevante Code:
Delphi-Quellcode:
procedure TfrmMain.IdTCPServerConnect(AContext: TIdContext);
var
Client: PClient;
begin
GetMem(Client, SizeOf(TClient));
Client.UserName := AContext.Connection.IOHandler.ReadLn('', 1000);
Client.PeerIP := AContext.Binding.PeerIP;
Client.HostName := GStack.HostByAddress(Client.PeerIP);
Client.Port := AContext.Binding.PeerPort;
Client.Connected := Now;
Client.LastActionTime := Now;
Client.LastAction := LOGIN;
Client.Thread := AContext;
AContext.Data := TObject(Client);
try
NetJobs.Clients.LockList.Add(Client); // <-- hier, der rest darunter wird nicht mehr ausgeführt
finally
NetJobs.Clients.UnlockList;
end;
VisualJobs.DoLog(LOGIN + ': User "' + Client.UserName + '" at [' + Client.PeerIP + ':'
+ IntToStr(Client.Port) + '] logged on.');
AContext.Connection.IOHandler.WriteLn(WELCOME + #13
+ 'Welcome ' + Client.UserName + ' to ''' + NetJobs.ServerName + '''!'
+ #13);
VisualJobs.RefreshUserList;
NetJobs.DistributeUserList;
end;
Die ThreadList wird immer richtig über UnlockList geschlossen. Woran könnte es sonst noch liegen?