Отправляет email-рассылки с помощью сервиса Sendsay

Советы по Delphi

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июль 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.545 подписчиков
-22 за неделю
←   Все выпуски   →

Советы по Delphi


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

Ускорение работы с графикой

Здравствуйте, уважаемые подписчики! Сегодня поговорим о том, как можно ускорить работу с графикой.

Одной из причин замедления работы с графикой является слишком большое количество вызовов каких-либо функций. Например, если Вы хотите произвести какую-то операцию над изображением 1000x1000 по точкам, то Вы должны 2 миллиона раз обратиться к свойству Pixels. А каждый вызов свойства Pixels - это вызов метода SetPixle или GetPixel, а эти функции вызывают соответствующие функции WinAPI, да и делают немало лишнего (советую взглянуть на исходный код модуля Graphics). Было бы очень удобно поместить изображение в доступную из программы память и работать с ним уже без каких-либо посредников. Для этого у Bitmap существует свойство ScanLine. При помощи него в память можно выложить одну строку изображения. Это может ускорить работу с графикой в несколько десятков раз. В этом примере на форму выводится изображение, сгенерированное по точкам. При нажатии на Button1 используется свойство Pixels, а при нажатии на Button2 - ScanLine. В заголовок окна выводится время в миллисекундах, за которое было создано изображение. 

procedure TForm1.Button1Click(Sender: TObject);
var
  t: cardinal;
  x, y: integer;
  bm: TBitmap;
begin
  bm := TBitmap.Create;
  bm.PixelFormat := pf24bit;
  bm.Width := Form1.ClientWidth;
  bm.Height := Form1.ClientHeight;
  t := GetTickCount;
  for y := 0 to bm.Height - 1 do
    for x := 0 to bm.Width - 1 do
      bm.Canvas.Pixels[x,y] := RGB(x+y, x-y, y-x);
  Form1.Caption := IntToStr(GetTickCount - t);
  Form1.Canvas.Draw(0, 0, bm);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  t: cardinal;
  x, y: integer;
  bm: TBitmap;
  p: PByteArray;
begin
  bm := TBitmap.Create;
  bm.PixelFormat := pf24bit;
  bm.Width := Form1.ClientWidth;
  bm.Height := Form1.ClientHeight;
  t := GetTickCount;
  for y := 0 to bm.Height - 1 do begin
    p := bm.ScanLine[y];
    for x := 0 to bm.Width - 1 do begin
      p^[x*3] := x+y;
      p^[x*3+1] := x-y;
      p^[x*3+2] := y-x;
    end;
  end;
  Form1.Caption := IntToStr(GetTickCount - t);
  Form1.Canvas.Draw(0, 0, bm);
end;


Снова жду ваших идей,
Даниил Карапетян.

На сайте http://delphi4all.narod.ru Вы найдете еще более 100 советов по Delphi.
Email: delphi4all@narod.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться Рейтингуется SpyLog
В избранное