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

Вниз

PBitMap --> PJpeg   Найти похожие ветки 

 
Delpher_Gray ©   (2004-03-05 19:17) [0]

Есть один PBitMap с загруженным изолбражением, и PJpeg
Как перенести изображение из BitMap"а в Jpeg ?

Заранее благодарен !


 
puky   (2004-03-05 20:33) [1]


 jpg2 := NewJpeg;
 jpg2.Bitmap := NewDIBBitmap(1, 1, pf24bit);
 jpg2.Bitmap.Assign( loc_bmp );
 jpg2.CompressionQuality := Quality;
 jpg2.ProgressiveDisplay := true;
 jpg2.Compress;
 
 st := NewMemoryStream;
 jpg2.SaveToStream( st );
 curentFileSize := st.Position;//размер jpeg файла
end;


 
Dimaxx ©   (2004-03-05 22:03) [2]

2 puky: А curentFileSize := st.Size; не пробовал? :-)



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

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

Наверх




Память: 0.46 MB
Время: 0.023 c
1-1090494788
~ShamaN~
2004-07-22 15:13
2004.08.08
Quick Report


1-1090869200
ANT
2004-07-26 23:13
2004.08.08
Переменные


4-1088235176
Sormy
2004-06-26 11:32
2004.08.08
Как извлечь версию файла из произвольного файла?


1-1090922659
FS-DOS
2004-07-27 14:04
2004.08.08
rave


3-1089955641
Rater
2004-07-16 09:27
2004.08.08
dbf поле длинна 2 тип Numeric. В RunTime создать можно?