Die im Code aufgerufene Funktion ImageSearch() kommt aus der "ImageSearchDLL.dll", die im Anhang ist.
function ImageSearch(aLeft: Integer; aTop: Integer; aRight: Integer; aBottom: Integer; aImageFile: PChar): PChar; stdcall; external 'ImageSearchDLL.dll';

Daher denke ich, dass TCanvas hier kein Problem sein dürfte. Die Mausbewegung könnte ja auch außerhalb des Thread ausgeführt werden, sobald der Thread durch gelaufen ist.

Hier habe ich nochmal mit "Pseudo"-Code markiert, wie ich mir erhoffe, dass es funktioniert.

zusammenfalten · markieren

Delphi-Quellcode:

function _ImageSearch(findImage: string; tolerance: Integer; delay: Integer): Boolean;
var
  ergebnis : PChar;
  ergebnis2 : TStringList;
  oldPos : TPoint;
begin

  if (tolerance > 0) then findImage := '*' + inttostr(tolerance) + ' ' + findImage;

  [THREADSTART]
  ergebnis := ImageSearch(0,0,Screen.Width ,Screen.Height ,PCHAR(findImage));
  [THREADENDE]

  [WENN THREAD DURCHGELAUFEN ANFANG]
  if (ergebnis[0] = '1') then
  begin
    ergebnis2 := split(ergebnis, '|', true);
    sleep(delay);
    x := StrToInt(ergebnis2[1]) + round(StrToInt(ergebnis2[3])/2);
    y := StrToInt(ergebnis2[2]) + round(StrToInt(ergebnis2[4])/2);

    oldPos := mouse.CursorPos;

    mouse.CursorPos := point(x+Zufallszahl(-5,5),y+Zufallszahl(-5,5));
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

    mouse.CursorPos := oldPos;

    //showmessage('found' + inttostr(x) + ' ' + inttostr(y));
    result := true
  end
  else
  begin
    result := false
  end;
  [WENN THREAD DURCHGELAUFEN ENDE]

end;

markieren

Delphi-Quellcode:

function _ImageSearch(findImage: string; tolerance: Integer; delay: Integer): Boolean;
begin
  [THREADSTART]
  [THREADENDE]

  [WENN THREAD DURCHGELAUFEN ANFANG]
  [WENN THREAD DURCHGELAUFEN ENDE]
end;

Wenn deine Programmlogik keinen parallelen Ablauf zulässt, was soll dann der Thread für einen Vorteil bringen?

Im Prinzip währe dieser Ablauf geeignet:

markieren

Code:

Hauptthread                                       Workerthread

Ereignis1 -> Thread Starten
Ereignis2 -> Was anderes tun                      arbeitet
Ereignis3 -> Was anderes tun                      löst Ereignis5 aus
Ereignis4 -> Was anderes tun                      beendet
Ereignis5 -> Auf Ergebnis des Thread reagieren

Zitat von Fredyy:

Die im Code aufgerufene Funktion ImageSearch() kommt aus der "ImageSearchDLL.dll", die im Anhang ist.
function ImageSearch(aLeft: Integer; aTop: Integer; aRight: Integer; aBottom: Integer; aImageFile: PChar): PChar; stdcall; external 'ImageSearchDLL.dll'; Daher denke ich, dass TCanvas hier kein Problem sein dürfte. Die Mausbewegung könnte ja auch außerhalb des Thread ausgeführt werden, sobald der Thread durch gelaufen ist.

Also:

* die DLL Funktion (die natürlich multithreading sicher ist ) soll mehrfach aufgerufen werden, jeweils für eine andere Datei / mit anderen Parametern) -> kein Problem

* die GUI soll nach Beenden des Threads etwas tun

Damit die GUI-Aktivität nichts durcheinanderbringt, kann im Thread synchronize verwendet werden. Der Thread führt den synchronized-Code dann im Kontext des Hauptthreads aus (die anderen Threads laufen weiter, es sei denn sie erreichen ebenfalls den synchronized-Punkt)

Pseudo-Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure MyThread.Execute
begin
  - rufe die DLL Funktion auf
  - speichere das Ergebnis in einer property des Thread-Objekts
  MyResult := ImageSearch(0,0,Screen.Width ,Screen.Height ,PCHAR(findImage));
  - rufe synchronized eine Thread-Methode auf, die dann eine Methode des Hauptthreads aufruft
  synchronize(MyResultMethod);
end;

procedure MyThread.MyResultMethod;
begin
  // wird im MAIN Thread ausgeführt
  MainForm.ShowResult(MyResult);
end;

in ShowResult kann dann der in deinem Beispiel enthaltene Code verwendet werden. Die Threads werden ihn nicht gleichzeitig ausführen, sondern in Reihenfolge ihrer Fertigestellung.