Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

IMAGE 


kay   (2002-03-17 10:33) [0]

Народ, как сделать, чтоб IMAGE распознавала не только *.bmp, но и *. jpg?



MBo   (2002-03-17 10:38) [1]

uses Jpeg;



MK   (2002-03-17 14:01) [2]

Вопрос в догонку... Как к загруженной таким образом jpg картинке обраться как к bmp?



Zool   (2002-03-17 15:08) [3]

>>MK
Точнее



Song   (2002-03-17 16:22) [4]

Картинка загружена в TImage следовательно чтобы получить BitMap нужно такую иеархию: Image1.Picture.BitMap



MK   (2002-03-17 21:08) [5]

>> Song
Попробуй теперь записать в файл через SaveToFile... Картинка bmp формата, то все ОК, если jpg - файл пустой. Если Записать в файл jpg через Image1.Picture.SaveToFile(somefile), то формат картинки, понятное дело, будет jpg. Если jpg записать через Image1.Picture.BitMap.SaveToFile(somefile), то файл пустой. Как записать jpg как bmp?



Song   (2002-03-17 22:07) [6]

... // Создаём TBitMap;


With BitMap Do
Begin
Assign(jpeg_картинка);
SaveToFile("1.bmp");
End;

... // Очищаем TBitMap;



MK   (2002-03-17 23:32) [7]

>> Song
Извините, а у jpeg_картинка какой тип данных:
Image1.Picture, Image1.Picture.Graphic или какой? При исполнении возникает ошибка и до SaveToFile не доходит...



Song   (2002-03-18 08:41) [8]

TJpeg соответственно. Возьми да посмотри исходники Unit jpeg



Serghei   (2002-03-18 09:17) [9]

Вот обратная процедура (из D3)

var
MyJpeg: TJpegImage;
Image1: TImage;
begin
Image1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
Image1.LoadFromFile("TestImage.BMP"); // Чтение изображения из файла
MyJpeg.Assign(Image1.Picture.Bitmap); // Назначание изображения объекту MyJpeg
MyJpeg.SaveToFile("MyJPEGImage.JPG"); // Сохранение на диске изображения в формате JPEG
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
3-90764           chik_                 2002-03-01 10:29  2002.03.28  
SQL+BDE+DELPHI


7-91084           WarChilD              2001-12-20 20:43  2002.03.28  
Смена яркости на Рабочем столе


14-91059          J_S (A)               2002-02-13 16:19  2002.03.28  
ICQ 2001a


4-91125           OGR                   2002-01-23 13:24  2002.03.28  
Как сделать скриншот без вывода на экран?


3-90733           weak                  2002-02-28 16:09  2002.03.28  
Надо переменную вставить UPDATE-ом в поле data_p.