Главная страница
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.044 c
14-1083809091
Думкин
2004-05-06 06:04
2004.05.23
С днем рождения! 6 мая


1-1084286042
TUser
2004-05-11 18:34
2004.05.23
var in dll


3-1083066585
strelok-47
2004-04-27 15:49
2004.05.23
Работа с MS SQL через OLE, ошибка подсоеденения


1-1084181710
LAnd
2004-05-10 13:35
2004.05.23
Как найти мантису и экспоненту числа?


9-1074623507
Black Fury
2004-01-20 21:31
2004.05.23
Как создать новую поверхность?