Hallo zusammen,
wie kann eine Funktion die in einem
COM Objekt ausgelagert ist abgebrochen werden? Das
COM Objekt wird in einem Thread erzeugt. Wenn dieser Terminiert wird sollte auch die Funktion in dem
COM Objekt beendet werden.
Delphi-Quellcode:
procedure TThread.Execute;
var S: ISearch;
begin
OleInitialize(nil);
try
s:=CoSearchObj.Create;
// Aufruf der Funktion die sehr lange dauert
s.FindFiles;
finally
OleUninitialize;
end;
end;
Wird die Anwendunug beendet, erhalten alle Instanten von TThread ein Terminate und es wird mit WaitFor gewartet bis dieser beendet wird. Um das ganze zu beschleunigen sollte die Funktion
s.FindFiles abgebrochen werden nur wie?
Soll ich in FindFiles evtl. auf das vorhandensein einer Datei prüfen und dadurch abbrechen?
Bin auf Eure Antwort gespannt.