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

Вниз

StretchDraw()   Найти похожие ветки 

 
freeloader   (2003-05-22 16:59) [0]

Ничего не получается :(( Хочу из большого bmp сделать уменьшенный по размерам jpg. Помогите, где ошибка?

bmp:=NewDIBBitmap(1024,768,pf16bit);
tmp:=NewDIBBitmap(185,138,pf16bit);
Jpg:=NewJpeg;

jpg.Performance:=jpBestSpeed;
jpg.CompressionQuality:=30;

//skip: каптюрю экран в bmp

Tmp.StretchDraw(bmp.handle,MakeRect(0,0,185,138));
( "c:\444.bmp") Ничего не получается :(( Хочу из большого bmp сделать уменьшенный по размерам jpg. Помогите, где ошибка?

bmp:=NewDIBBitmap(1024,768,pf16bit);
tmp:=NewDIBBitmap(185,138,pf16bit);
Jpg:=NewJpeg;

jpg.Performance:=jpBestSpeed;
jpg.CompressionQuality:=30;

//skip: каптюрю экран в bmp

Tmp.StretchDraw(bmp.handle,MakeRect(0,0,185,138));
tmp.SaveToFile("c:\444.bmp");

И уже вот тут у меня чёрный квадрат......
Огромное спасибо за потраченное время.


 
mdw ©   (2003-05-22 21:54) [1]

Рисовать нужно все же на DC:HDC, а не на HBITMAP
Попробуй:
Tmp.StretchDraw(bmp. Canvas.handle,MakeRect(0,0,185,138));



 
mdw ©   (2003-05-22 22:00) [2]

И вобще, тогда уж:
Bmp.StretchDraw( Tmp.Canvas.handle,MakeRect(0,0,185,138));



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
1-16426
WED
2004-01-20 10:14
2004.02.06
Почему не работает следующий код...


7-16763
pirat
2003-11-14 22:53
2004.02.06
как узнать что вставили новый CD


14-16640
RealRascal
2004-01-14 16:21
2004.02.06
Abstract Error


1-16510
Serge
2004-01-27 09:46
2004.02.06
SelAttributes - где что находится ???


1-16386
Serginio666
2004-01-23 16:35
2004.02.06
Delphi 8 strict