Проблема при загрузке на форму прозрачного gif изображения!

[Yazon2006]

При загрузке gif картинки на форму получаеться отображение только чёрного квадрата. Все gif грузяться нормально, за исключением тех, у которых прозрачный фон. Прозрачность заменяеться чёрным цветом, и т.к. картинка у меня состоит из чёрного цвета и прозрачного фона, то всё отображаеться чёрным Получилось октрыть на форме только с помощью компонента из библиотеки Jedi название кажеться JvGifAnimate, но это совсем не то, что мне надо, поскольку мне надо работать с канвой, например в TGif компоненте, что в GifImg в Delphi 2010.
Вариант открыть в фотошопе, сделать белый фон и дальше работать не проходит, т.к. весь процесс должен быть автоматизирован по причине обработки тысячи картинок...
Может кто сталкивался с такой проблемой, или просто знает в чём дело. Поиск юзал, не нашёл
Спасибо!

[volod3000]

Попробуйте вот этот компонент. Отлично поддерживает прозрачность.
На Delphi XE отлично работает, наверное и на Delphi 2010 подойдет.

[Yazon2006]

Отлично! Спасибо, прозрачность отображаеться как надо. Но с канвой всё равно работать не могу. Например, превратить изображение в двумерный масив 0 и 1, вот так:

for i := 1 to 40 do
 begin
 for j := 1 to 80 do
  begin
   c:=image1.Picture.Bitmap.Canvas.Pixels[i,j];
   memo1.Text:=memo1.Text+inttostr(c);
  end;
  memo1.Text:=memo1.Text+#10#13;
 end;

не получилось, вывело всё -1, это как я понимаю ошибка. Что я не так делаю?

Вот кстати картинка, что бы попробовать:
http://www.newrpg.ru/diz/img_dob.php...975&1308868799

[volod3000]

А если так :

c:=image1.Picture.Bitmap.Pixels[i,j];

[Yazon2006]

Нет, ругается, что после Bitmap должно быть ещё что-то. Может есть какой то более изощрённый метод, т.е. не обязательно его в виде текста делать, может как то иначе. В конечном результате мне надо узнать есть ли на рисунке определённый символ путём сравнение с эталоном.

[volod3000]

Вроде так :

for i := 1 to Image1.Picture.Graphic.Width do
 begin
 for j := 1 to Image1.Picture.Graphic.Height do
  begin
   c:=image1.Picture.Bitmap.Canvas.Pixels[i-1,j-1];
   memo1.Lines.Add(inttostr(c));
  end;

 end;

А дальше разбираться надо. Вот для инф.
http://www.sql.ru/forum/actualthread...=20&tid=818970

[Yazon2006]

Ок, буду дальше разбираться, спасибо за помощь!!!

[Yazon2006]

Покопался, нашёл, в чём особенность данных картинок. Они в 8 битном формате, в режиме индексированных цветов, при чём в таблице цветов есть чёрный цвет №1, чёрный цвет №2, белый цвет, и прозрачный цвет. Ни единого белого пикселя я не нашёл на картинке, зато с чёрными оказалось приятное обстоятельство, что в конечном итоге, мне удалось получить изображение очищенное от шума и пыли с помощью фотошопа.

Вопрос 1: как это сделать програмно? (изменить таблицу цветов)
Вопрос 2: как работать с такими изображениями? (как определить цвет(индекс) пикселя с координатами i,j)

В конце концов мне надо определить с некоторой точностью есть ли на изображении эталон. Т.е. распознать символы сравнив с эталоном.

[Yazon2006]

Всё, сделал. Если кому интересно:

FOR j := 0 TO gif.bitmap.Height-1 DO
     BEGIN
       Row := pByteArray(gif.Bitmap.Scanline[j]);
       FOR i := 0 TO gif.Bitmap.Width DO
       BEGIN
         memo1.Text:=memo1.Text+inttostr(Row[i]);
       END;
       memo1.Text:=memo1.Text+#13#10;
     END;

Получил следующее:



Как видим чёрный цвет №3 представлен здесь 2, и дальше легко можно работь с образами чистых цифр.