Tweet
Hallo, ich habe folgendes szenario:
Die hauptunit erzeugt im initialization die TThreadList (Create).
Mehrere threads (dynamisch erzeugt), die daten empfangen und in eine selbst definierte klasse schreiben. Die klasse wird im jeweiligen thread erzeugt (Create) und nachdem sie der TThreadList (ThreadList.LockList.Add(Klasse) uebergeben wurde. Gebe ich die klasse frei (FreeAndNil) und unlocke die ThreadList.
Nun sended dieser thread eine message an die hauptunit (MainForm) dass ein neuer eintrag in der ThreadList vorhanden ist.
Die durch die message aufgerufene funktion soll nun damit was machen. Also versuche ich einen definierten string der klasse (sie ist in der hauptunit nochmal definiert) auszulesen
S := TMyClass(ThreadList.LockList.Item[X]).MyString;
Hier stoppt das programm. Es nutzt keine rechenzeit der CPU mehr. mit try except passiert nix. Keine fehlermeldungen. Nix im debugger.
Leider kann ich keinen dieser ausdruecke ueberwachen, da delphi (Delphi 2006) abschmiert, wenn ich den ausdruck hinzufuege.
Bitte um hilfe!
Die hauptunit erzeugt im initialization die TThreadList (Create).
Mehrere threads (dynamisch erzeugt), die daten empfangen und in eine selbst definierte klasse schreiben. Die klasse wird im jeweiligen thread erzeugt (Create) und nachdem sie der TThreadList (ThreadList.LockList.Add(Klasse) uebergeben wurde. Gebe ich die klasse frei (FreeAndNil) und unlocke die ThreadList.
Nun sended dieser thread eine message an die hauptunit (MainForm) dass ein neuer eintrag in der ThreadList vorhanden ist.
Die durch die message aufgerufene funktion soll nun damit was machen. Also versuche ich einen definierten string der klasse (sie ist in der hauptunit nochmal definiert) auszulesen
S := TMyClass(ThreadList.LockList.Item[X]).MyString;
Hier stoppt das programm. Es nutzt keine rechenzeit der CPU mehr. mit try except passiert nix. Keine fehlermeldungen. Nix im debugger.
Leider kann ich keinen dieser ausdruecke ueberwachen, da delphi (Delphi 2006) abschmiert, wenn ich den ausdruck hinzufuege.
Bitte um hilfe!