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.
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?
Peter