Главная страница
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.146 c
14-1090322145
<DeL.>
2004-07-20 15:15
2004.08.08
Счетчик скачиваний на ПХП


1-1090510591
glGLU
2004-07-22 19:36
2004.08.08
Timer


1-1090577903
VHS
2004-07-23 14:18
2004.08.08
Проблема вызова функции при событии FormActivate


3-1089655610
Forelli
2004-07-12 22:06
2004.08.08
Работа СУБД без InterBase и Delphi.


4-1088609549
Андрюшенька
2004-06-30 19:32
2004.08.08
Помогите!!! Windows