Есть задача прочитать цвет пикселя из файла BMP
, который помещен в image1
. Надо использовать для чтения файла TMemoryStream
, так как воспользоваться image1.Canvas.Pixels[x,y]
нет возможности - "пипетка" отключается когда запущено DirectX
приложение, а оно запущено и из него это BMP
и берется в виде скриншота.
Дополнение!!!
Оказалось что - взятие цвета Bitmap.Pixels
начало работать раз через раз. В чем может быть проблема? В общем: компилирую приложение, запускаю от имена админа
- PostMessage
не работает, цвет возвращает нули. Закрываю приложение. Запускаю по новой - и то и то работает. И так все время. Раньше такое же поведение заметил в модуле TICQ
- раз через раз при запусках не хотело логиниться. Что это может быть? Как видно - я не редактирую код между запусками, и даже не компилирую. Просто перезапускаю и либо все работает либо все не работает. У меня Delphi XE3
и Win10
.
И так. Не всегда работают участки кода (Запускаю от имени админа
), но иногда работают при многократном перезапуске приложения:
procedure TForm1.F10Timer(Sender: TObject);
var wnd: HWND;
begin
wnd:=FindWindow(0, 'Lineage II'); //находим окно
if (wnd<>0) then //если найдено то выполняем код (находит всегда)
begin
PostMessage(wnd,WM_KEYDOWN, VK_f10,0); //нажимаем F10
label14.Caption:='F10'; //для себя пишем на форме что клавиша нажата
end;
end;
Таких процедур много, они идентичны, и все вместе либо работают либо нет. В них собственно посылается нажатие клавиш в окно игры (да, я пишу бота).
Далее - определение цвета. Работает только если работает отправка нажатий клавиш (имею ввиду вот этот баг, что описан мною выше):
procedure TForm2.Button5Click(Sender: TObject);
var GetSc:Dx.TImageCatcher;
begin
GetSc:=Dx.TImageCatcher.Create; //создаю экземпляр класса (Dx.pas)
GetSc.TargetHandle:=FindWindow(0, 'Lineage II'); //передаю заголовок игры
GetSc.CatchType:=ctDirectX; //установил способ съемки
GetSc.ActivateTarget; //активирую окно игры
GetSc.GetScreenShot; //это битмап, сюда грузим снимок
image1.Picture.Bitmap:=GetSc.Bitmap; //из битмапа передаем снимок в image1
image1.canvas.CopyRect(image1.ClientRect,image1.Canvas,rect(27,58,181,95)); //оставляю в image1 только интересующую меня область (шкала CP, HP, MP)
image1.Picture.bitmap.width:=155; //ровняем размеры
image1.Picture.bitmap.Height:=38; //ровняем размеры
image1.Picture.Bitmap.Dormant; //переводим image1 по совету из камментов
labelededit1.Text:=inttohex(image1.Picture.Bitmap.Canvas.Pixels[135,19],6); //пробуем узнать цвет
end;
Фактически тут весь пример, все остальное аналогичное. Есть мнение что либо компилятор грешит, либо WinAPI, понять не могу. Это все иногда шикарно работает, если уж начало работать, а результат вот он:
Ссылка на окно: https://drive.google.com/open?id=0B3g0HJYW_bzHcnNHWEtTMDVxdXc
Lineage II в списке окон. Окно "Lineage II" класс "L2UnrealWWindowsViewportWindow". Дочерних как видим нет.
Ссылка: https://drive.google.com/file/d/0B3g0HJYW_bzHNU1LX3lqWDlfZ2M/view?usp=sharing
DirectX
взятие цвета пикселя из точки экрана или изimage1
вышеописанным методом возвращает код цвета000000
вhex
.image1.Picture.Bitmap.Dormant
- это преобразует битмап в DIB, а после этого получить доступ черезimage1.Picture.Bitmap.Canvas.Pixels
. Работать с бинарным содержимым битмапа - неблагодарное занятие. Расположение байт конкретного пикселя зависит от разрядности битмапа и других факторов.image
:image1.Picture.Graphic:=GetSc.Bitmap;
Изображение показывается нормально.GetSc.Bitmap
это метод из юнита, которым я при помощиDirectX
вытаскиваю изображение изZ-буфера
игры. Сейчас попробую ваш совет и отпишусь! Спасибо!Dormant
выполняю, но вместо цвета в итоге000000
. Уже всю голову сломал, даже не могу представить что делать с этим и почему так.HP
я пытаюсь получить цвет точки. Эти два рисунка прилетают вimage1
иimage2
изDirectX
. Как видно вLabeledEdit
"Цвет HP" - вместо цвета нули. Закрываю игру и пробую скринить любое другое окно - цвет правильный.