Как узнать что рисунок имеет белый фон

← →
__yur__ (2004-03-23 19:45) [0]

Мастера подскажите,
у меня есть к примеру 10 рисунков (jpg)
несколько из них пустые(просто белый фон)
как мне программно определить их и удалить

← →
yur © (2004-03-24 18:29) [1]

Мастера помогите плизз
очень надо

← →
zeqfreed © (2004-03-24 22:01) [2]

Проходишься в цикле... если цвет не белый инкрементируешь переменную (или в true ставишь, если 100% белый надо)... Потом сравниваешь, доаустим > 90% белого => Удаляем...

← →
yur © (2004-03-24 22:41) [3]

а в коде можно
так наглядней получается:))

← →
yur © (2004-03-25 15:58) [4]

вот типа прохожу в цикле

with image1.Picture.Bitmap do
for x:=0 to Width do
for y:=0 to Height do
t:=Canvas.Pixels[x,y];
если цвет не белый инкрементируешь переменную (или в true ставишь, если 100% белый надо)... Потом сравниваешь, доаустим > 90% белого => Удаляем...
а как это записать все?????

← →
yur © (2004-03-25 16:00) [5]

плиз помогите

← →
Dmyk (2004-03-25 21:35) [6]

Просто. Что-то вроде такого:
// ... var // ... Whites, X, Y: Cardinal; // ... begin // ... with image1.Picture.Bitmap do begin for X := 0 to Width-1 {!} do for Y := 0 to Height-1 {!} do if Canvas.Pixels[x,y] = clWhite then Inc(Whites); if (100 * Whites) / (Width * Height) >= 90 then Result := true; //ну или что тебе там надо end; // ... end;

← →
__yur___ (2004-03-26 14:43) [7]

Пасибо большое!!!

if image1.picture.bitmap.canvas.pixel(1,1).color=clwhite then .....................

Как узнать что рисунок имеет белый фон Найти похожие ветки