COM Objekt Funktion beenden

[Baeuerle]

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.

[shmia]

Funktionsaufrufe an ein COM-Objekt sind i.d.R. immer blockierend.
Dein COM-Objekt sollte über ein Callback oder ein Event jede gefundene Datei
an den Aufrufer berichten.

Delphi-Quellcode:

IFileSearchCallback = interface(IDispatch)
    ['{0638FB04-3788-4BD9-AD65-73D7734C3105}']
    procedure Callback(const Filename: WideString; var Abort: WordBool); safecall;
  end;

Obiges Interface muss von deinem Thread implementiert werden.

[Baeuerle]

Stehe etwas auf dem Schlauch; Wie kann ich das genauer umsetzten???