Как БЫСТРО проверить, чист ли Canvas?

← →
oleg_SYS © (2003-06-28 21:46) [0]

У меня такая проблема: мне нужно проверить большое число BitMap`ов, среди которых может оказаться простое одноцветное избражение. Я сделал неплохой цикл, который проверяет изображение попиксельно. Причём, цикл остановится на том моменте, когда заметит "посторонний" пиксел.
for b:=1 to bm.height do begin for a:=1 to bm.Width do begin if bm.Canvas.Pixels[0,0]<>bm.Canvas.Pixels[a-1,b-1] then begin d:=True; Exit; end; end; end;
Т.е., если d=False, то изображение однотонное.
Но это медленный способ. Никто не знает что-то побыстрее? (кроме assembler`а :)
Спасибо...

← →
Fenik © (2003-06-28 22:00) [1]

Вот побыстрее.
Если возвращает True, то рисунок одноцветный.

function OneColorOnBitmap(Bitmap: TBitmap): Boolean;
type
TRGB = record
B, G, R: Byte;
end;
pRGB = ^TRGB;
var x, y: Integer;
Dest: pRGB;
C: TRGB;
begin
Result := True;
C.R := Lo(Bitmap.Canvas.Pixels[0, 0]);
C.G := Lo(Bitmap.Canvas.Pixels[0, 0] shr 8);
C.B := Lo((Lo(Bitmap.Canvas.Pixels[0, 0]); shr 8) shr 8);
for y := 0 to Bitmap.Height - 1 do begin
Dest := Bitmap.ScanLine[y];
for x := 0 to Bitmap.Width - 1 do begin
with Dest^ do
if (B <> C.B) or (G <> C.G) or (R <> C.R) then begin
Result := False;
Break;
end;
Inc(Dest);
end;
end;
end;

← →
oleg_SYS © (2003-06-28 22:15) [2]

Спасибо! ScanLine работает намного быстрее. Может, существует ещё какой-то способ?

← →
Fenik © (2003-06-28 22:19) [3]

Читай здес:
http://www.delphimaster.ru/articles/pixels/index.html

← →
oleg_SYS © (2003-06-28 23:01) [4]

Fenik, у меня почему-то твоя функция не работает. Она всегда возвращает значение False :(

← →
Fenik © (2003-06-29 00:24) [5]

Вставь
Bitmap.PixelFormat := pf24Bit;

Fenik, всё-равно не работает :(

Да, моя ошибка.

Вот. Исправь условие на это:

if (B <> C.B) and (G <> C.G) and (R <> C.R) then begin
Result := False;
Exit;
end;

Fenik, теперь работает. Спасибо! Скорость меня устраивает :)

Как БЫСТРО проверить, чист ли Canvas? Найти похожие ветки