Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

чем загрузить на TImage картинку TIF?   Найти похожие ветки 

 
КомофОнСамый   (2004-03-10 11:51) [0]

-


 
Карелин Артем ©   (2004-03-10 11:52) [1]

На торри выбери по вкусу.


 
Amoeba ©   (2004-03-10 11:56) [2]

Библиотека (бесплатно и с исходниками) GraphicEx поможет решить задачу.
http://www.delphi-gems.com/Graphics.php
Чтобы работать со сжатыми TIF"ами в INC файле нужно найти и закомментировать одну директиву условной компиляции.
Использовать библиотеку очень просто. Добавляешь в Uses модуль GraphicEx и после этого в обычный TImage можно зугрузить не только TIF, но и массу других форматов.


 
КомофОнСамый   (2004-03-10 11:59) [3]

чето там вылезло 27 страниц. какой попроще - типа как у RxLib - модуль для GIF?


 
КомофОнСамый   (2004-03-10 12:04) [4]

2Amoeba ©
не увидел вашего поста.
а какую директиву?


 
КомофОнСамый   (2004-03-10 14:15) [5]

не получается загрузить все равно.
грит что неподдерживаемый формат


 
Amoeba ©   (2004-03-10 14:15) [6]

Точнее надо, наоборот, раскомментировать в файле graphicconfiguration.inc(убрав точку перед $), чтобы стало так:

{$define UseLZW} // if this is not defined (default) then neither the GIF format nor the
                 // LZW compression decoder (e.g. for TIFF LZW compression) is available


 
КомофОнСамый   (2004-03-10 14:40) [7]

уже пробывал.
теперь возникает ошибка AccessVioletion

в модуле GraphicEx строка

{2812}   GetMem(EncodedData, ByteCounts[CurrentStrip]);


что делал? у ся в проекте ничего не менял - добавил только в секцию uses GraphicEx;

а процедура загрузки картинки как было так и осталось:
 imgMain.Picture.LoadFromFile(FileName);

мож что еще нужно?


 
КомофОнСамый   (2004-03-10 19:59) [8]

up



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
3-1083064833
}|{yk
2004-04-27 15:20
2004.05.23
Функции...Оракл


8-1077811729
miek
2004-02-26 19:08
2004.05.23
GDIsurface


3-1082983490
Stupid
2004-04-26 16:44
2004.05.23
Как получить текст сообщения об ошибке при Query.ExecSQL?


4-1081075528
Kme
2004-04-04 14:45
2004.05.23
Навигация в консоли


1-1083908296
Sla
2004-05-07 09:38
2004.05.23
Режим доступа к ТЕКСТОВОМУ файлу