Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Office AddOn mit geladenem Form aus DLL und Threads (https://www.delphipraxis.net/30484-office-addon-mit-geladenem-form-aus-dll-und-threads.html)

ipworks 25. Sep 2004 14:06


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 15:08 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz