Вот Вам быстрый доступ к пикселам.
Пользуюсь давно. Работает быстро и замечательно.
К сожалению автор не известен

TMyClass
  private
    fDelta; integer;
    fStart: integer;
end;

...

function TMyClass.GetPixels(X, Y: integer): integer; assembler;
asm
  imul ecx,[eax].fDelta
  add ecx,[eax].fStart
  add ecx,edx
  movzx eax,WORD PTR [ecx+2*edx]
  bswap eax
  shr eax,8
  movzx ecx, BYTE PTR [ecx+2*edx+2]
  or eax,ecx
end;


procedure TMyClass.SetPixels(X, Y: integer; {color}const Value: integer); assembler;
asm
  imul ecx,[eax].fDelta
  add ecx,[eax].fStart
  lea edx,[edx+edx*2]
  mov eax,[ebp+8]  //Value
  bswap eax
  shr eax, 8
  mov [ecx+edx],ax
  shr eax, 16
  mov [ecx+edx+2],al
end;

procedure TMyClass.Mymethod;
begin
  if (bmp = nil) or bmp.Empty then Exit;
  bmp.PixelFormat := pf24bit;
  fStart := integer(bmp.Scanline[0]);
  fDelta := integer(bmp.Scanline[1]) - fStart;
  ...
end;

(читать всё…)

Написал программу передвижения человека по экрану, периодически меняя картинку, создавая эффект движения. Для всех трех картинок использовал компонент TImage. При однократном нажатии на клавишу d человек передвигается по экрану отлично т.е. все три картинки меняются в нужной последовательности! Но если её удерживать, появляются только две картинки из трех.

Man.zip (3.09 Мб)

(читать всё…)

Как сделать на Delphi чтобы персонаж обходил препятствия?

(читать всё…)

Какой самый оптимальный метод сравнения изображений?

Задача такая:
Есть два изображения. При этом низ одного дублирует верх другого. То есть, если небольшой «перехлест». И вот нужно найти количество строк этого перехлеста.

Пример… Ну допустим такой: вы сделали скриншот переписки в телеграме. Потом пролистали переписку вниз и сделали еще один скриншот. Так что получился небольшой перехлест.
И теперь надо склеить эти 2 скриншота в один.

(читать всё…)

Как сделать буквы или цифры или всё вместе на изображении толще или пожирнее ?

Изображение уже содержит буквы или цифры нужно как то обрабатывать.

(читать всё…)

У меня есть картинка, которая должна смещаться относительно координат х и у, в зависимости от угла поворота изображения. Я сделал следующие формулы подсчета передвижения: (читать всё…)

Armageddets

Добрый день, уважаемые эксперты. У меня стоит задача передать массив типа TBitmap в процедуру. В процедуре я пытаюсь его создать и загрузить в него картинки. Ошибок не происходит, но когда я пытаюсь нарисовать на форме картинки из этого массива, то ничего не происходит. Будто массив так и не создан.

Процедура у меня такая:

как сделать скриншот memo1 в delphi ? (читать всё…)

Если делать это через TMemoryStream, то рассчитывается размер изображения в памяти., а он там храниться в BMP. (читать всё…)

xRamzeSx

procedure TForm1.Button1Click(Sender: TObject);

var

bmp: TBitmap;

DC: HDC;

begin

bmp:=TBitmap.Create;
bmp.Width:=1024;

bmp.Height:=768;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,

DC, 0, 0, SRCCOPY);
bmp.SaveToFile(FormatDateTime('dd/mm/yy, hh-nn-ss', Now) + '.bmp');
ReleaseDC(0, DC);
bmp.Free;

end;

тема на форуме