kamakama писал(а):
Схему почему то не смог вставить. https://cloud.mail.ru/public/DMva/CgwX9b3YDНу да) Этот поиск работает гораздо быстрее чем у Vadimluk1 но все же очень медленный.
Есть возможность прикрутить AutoItx3.dll так как Delphi умеет использовать сторонние dll.
Даже делал небольшие эксперименты - работает..
Подключаем dll Autoit к Delphi пользуемся
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses ComObj; //Import Source\Rtl\Common\ComObj.pas
procedure TForm1.Button1Click(Sender: TObject);
var
A: Variant;
X,Y: Integer;
begin
A:= CreateOleObject('AutoItX3.Control');
A.PixelSearch(0, 0, 1280, 1024, 16711680, 5, 2);
A.MouseMove(155, 93, 20);
A.MouseClick('left', 156, 92, 2);
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses ComObj; //Import Source\Rtl\Common\ComObj.pas
procedure TForm1.Button1Click(Sender: TObject);
var
A: Variant;
X,Y: Integer;
begin
A:= CreateOleObject('AutoItX3.Control');
A.PixelSearch(0, 0, 1280, 1024, 16711680, 5, 2);
A.MouseMove(155, 93, 20);
A.MouseClick('left', 156, 92, 2);
end;
end.
Если бы удалось создать IC с прикрученным к нему AutoItX3.dll Чтобы на вход подавать команды , а на выходе иметь действия , это был бы адский комбайн.. Жаль с библиотекой Владимира Кладова не знаком вообще...
--- Добавлено в 2017-05-26 18:14:58
Vadimluk1 писал(а):
Красный нашёл быстро, а жёлтый 10-20~ секунд искал.Дело в том что этот поиск ищет по всем пикселям изображения проверяя каждый по отдельности, а это очень долгий процесс, гораздо быстрее бы справился IC со ScanLine , но в данный момент не хватает познаний..
--- Добавлено в 2017-05-26 18:20:40
Что вы имеете в виду под словом ? Уточните.
kamakama писал(а):
какая то галиматья.Пиксель в окне игы.. Там все очень быстро движется , исчезает, появляется... Нужно найти этот пиксель за сотые доли секунды. Вот и вся задачка.
На языке Autoit она решена результат - Время поиска от 0.0001 до 0.09
Очень нужно решение на HiAsm-е