![]() |
Office AddOn mit geladenem Form aus DLL und Threads
Hallo.
Ich habe folgendes gemacht. Ich habe eine Office-AddOn-DLL, die lädt auf einer anderen DLL eine Form (ansich sind es 3 Forms) mit. In diesem Form werden die VCL-Komponenten dynamisch erzeugt. Alles soweit paletti. Läuft auch. :cheers: Nun aber mein Problem. Ich führen im Internet abfragen auf entfernten Server mittels Threads durch. Funzt auch.....nur....und jetzt kommt's: Ich spreche eine Thread-procedure mit Synchronize an (vorher mit Checksynchronize() und WakeUpMainThread gearbeitet). Das Ergebnis wird auch dargestellt (und stimmt). Aber nur wenn ich zwischen dem bzw. den Thread.Create(s) noch ein ShowMessage einfüge. Wenn das ShowMessage nicht das ist, dann wird der Thread nur ausgeführt, wenn ich einen weiteren Thread ausführen, den ich natürlich nicht brauche. Application.ProcessMessages funzt nicht. Weiss ein schlauer Kopf warum ich dieses ShowMessage (was ich nicht haben will) brauche oder einen Ersatz. Hier ein kurzer Auszug:
Delphi-Quellcode:
...
while CurrentItem <> nil do begin try xtitle:=CurrentItem.Caption; mylistview:=TListView(FindComponent(cprefix+smc(xtitle))); mylistview.Clear; PopThread:=TCheckpopThread.Create(CurrentItem.Subitems[0], GetAccountPassword(CurrentItem.Caption), CurrentItem.Subitems[1], CurrentItem.Subitems[2], CurrentItem.Index, tpNormal, mylistview, .......); CheckSynchronize(); ShowMessage(''); // <--- will ich nicht haben, aber ohne geht nicht except on E:Exception do CurrentItem.Subitems[5]:=E.Message; end; NextItem := ListView2.GetNextItem(CurrentItem, SdAll, [IsSelected]); CurrentItem := NextItem; end; end; ... Noch ein Nachtrag: Wenn ich im Thread Synchronize(procedure.name) entferne und die procedure direkt aufrufe funkioniert es. Aber warum? :angel2: Peter |
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:08 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz