Hier wird der Thread beendet:
Delphi-Quellcode:
procedure TdmMain.Threadbeenden;
var I : Integer;
begin
(* Calendersync *)
if CalSyncThread = nil then Exit;
if CalSyncThread.Worker <> nil then begin
try
CalSyncThread.Worker.stopped := true;
CalSyncThread.Terminate;
except;
end;
end;
while Assigned(CalSyncThread) do begin
Application.ProcessMessages;
if FAbbrechen then Break;
end;
end;
Ich bin ein bisschen weiter gekommen und weiß jetzt es liegt an IBObjects. Bin aber noch nicht dahintergekommen was die Meldung zu bedeuten hat. Werder mal den Support von IBObjects konsultieren.