Thread für einen Funktionsaufruf erstellen

**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.

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;

Thread für einen Funktionsaufruf erstellen

AW: Thread für einen Funktionsaufruf erstellen

Forumregeln