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

Вниз

Нестандартное расширение битмапа   Найти похожие ветки 

 
Scote ©   (2003-09-14 20:55) [0]

Помогите кто-нибудь, мне для своей проги, где рисунки загружаются из отдельного файла (а не программного битового образа, когда Picture: TBitmap), нужно сделать "защиту от чайника", где графические файлы - обычные битмапы, но с другим расширением. Посредством компонента TImage методом LoadFromFile("битмап.другое_расширение") ничего не выходит, пишет об ошибке (в процессе прогона программы). Так же не надо меня за такой глупый вопрос ругать, я просто Delphi пользуюсь всего два месяца, причём это мой первый язык программирования.


 
Mihey ©   (2003-09-14 22:38) [1]

Ругать никого не буду, вопрос хороший. Дело в том, что при помощи TImage.LoadFromFile ты ничего не сделаешь, так как это по идее то же самое, что TImage.Picture.LoadFromFile, т.е. метод класса TPicture. Идея класса заключается в том, чтобы загружать самые различные виды графики, от bmp до ico. При этом надо же как-то определять, какого формата загруженные файлы. Это делается простым способом - опознаётся расширения файла. Следовательно, любое неопознаное расширение не проходит.

Но выход есть и как раз в использовании TBitmap. Его LoadFromFile не делает проверки на расширение и грузит из любого правильного bitmap-файла. То есть, ты создаёшь временный TBitmap, грузишь в него файл, присваиваешь это Bitmap свойству TImage.Picture.Bitmap, после чего удаляешь временный объект.


 
MBo ©   (2003-09-15 06:05) [2]

TPicture.RegisterFileFormat



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
1-37708
denimy
2003-12-25 18:54
2004.01.13
Последовательный запуск приложений


1-37781
Cash
2003-12-21 14:22
2004.01.13
Параметры в командной строке (*.exe -p1)


1-37788
Jiurafdfg
2003-12-31 12:26
2004.01.13
Активная дочерняя форма.


3-37530
Pako
2003-12-15 14:00
2004.01.13
SQL


1-37676
ГС ТОФ
2003-12-26 14:17
2004.01.13
Exel