Главная страница
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.037 c
3-1089955641
Rater
2004-07-16 09:27
2004.08.08
dbf поле длинна 2 тип Numeric. В RunTime создать можно?


1-1090805019
NumDer32Ok
2004-07-26 05:23
2004.08.08
Base64 алгоритм


3-1089868401
DelphiNew
2004-07-15 09:13
2004.08.08
Cannot tranliterate character.......


3-1089794019
CAMCOH
2004-07-14 12:33
2004.08.08
Реакция программы на ошибку соединения


9-1082976295
Dentist
2004-04-26 14:44
2004.08.08
Хочу написать чит для CS