[Indy 10] Problem mit TThreadList und OnConnect

[richie]

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?

[richie]

*Push*

[SirThornberry]

ich kann dir nicht direkt helfen. Aber bei mir hat es eigentlich immer geklappt wenn ich mir eine eigene Klasse gebaut hab wo ich die informationen speichere (hab also nicht die Threadlist verwendet sonder etwas verwendet was meinen Bedürfnissen angepasst war)

[richie]

Hallo SirThornberry,

also würde vielleicht schon ein einfaches dynamisches Array reichen? Ich werde es dann mal ausprobieren!
Kannst du vielleicht noch ein Beispiel geben?

[SirThornberry]

genau, ein dynamisches array sollte auch genügen für den Anfang.

[DataCool]

Hi,

ich würde auf keinen Fall ein Array nehmen, denn das ganze sollte schon Thread-Safe sein,
gerade wenn Du viele Clients hast die sih schnell hintereinader connecten bzw. disconneten.

Wenn Du Probleme mit der TThreadList hast, was ich nicht verstehen kann(verwende ih wirklich sehr oft
in dem Zusammenhang) könntest Du die noch Deine eigene Listen-Klasse basteln, die on TList erbt und eine
TCriticalSection zum Schutz verwendet.

Greetz DataCool

[SirThornberry]

auch ein Array ist Threadsafe wenn man den Zugriff in CriticalSections packt.
Wobei ich persönlich auch für die Objectorientierte Variante bin. Aber zum schnellen Testen ist ein Array auch nicht verkehrt.