Das ist aber bekannt und aus dem Grund ruft man in einem Thread, der solche ComObj benutzt immer
CoInitialize
und
CoUninitialize
auf.
Prominentes Beispiel dafür sind die
ADO-Komponenten.
Delphi-Quellcode:
procedure TMyThread.Execute;
begin
inherited;
CoInitialize( nil );
try
DoExecute;
finally
CoUninitialize;
end;
end;
procedure TMyThread.DoExecute;
begin
while not Terminated do
begin
...
end;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)