Скачать: CL | DM;

BMP->JPG   Найти похожие ветки 

← →
WASYA   (2002-01-21 09:03) [0]

Зраствуйте Все.

Очень бы хотелось узнать ответы на два ВОПРОСА.

1.Как сохранить Canvas форми в BMP файл?
2.Как конвертнуть програмно BMP в GIF или JPG?

С уважением WASYA

---

← →
Val ©   (2002-01-21 15:49) [1]

TBitMap.Create, TCanvas.CopyRect, TJPEGImage.Assign, TJPEGImage.SaveToFile

---

← →
WASYA   (2002-01-22 09:07) [2]

Ну с этим Я разобрался НО КАК СОХРАНИТЬ Canvas? :-(

---

← →
aus ©   (2002-01-22 09:21) [3]

Form1.GetFormImage.SaveToFile(FileName) - попробуй.

---

← →
WASYA   (2002-01-29 08:40) [4]

Ну СПАСИБО!!!! >;-)

---

← →
Ghost. ©   (2002-01-29 08:58) [5]

var
bmp: TBitmap;
DC: HDC;
MyJpeg: TJpegImage;
scale: Double;
begin
bmp:=TBitmap.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
MyJpeg:= TJpegImage.Create;
MyJpeg.Assign(bmp);
try
if MyJpeg.Height>MyJpeg.Width then scale:=RxSpinEdit2.Value/MyJpeg.Height
else scale:=RxSpinEdit2.Value/MyJpeg.Width;
try
bmp.Width:=Round( MyJpeg.Width*scale );
bmp.Height:=Round( MyJpeg.Height*scale );
bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, MyJpeg);
Self.Canvas.Draw(100,10,bmp);
MyJpeg.Assign(bmp);
MyJpeg.SaveToFile(pic);
finally
bmp.free;
end;
finally
MyJpeg.free;
end;
end;
Вот можно так и заданием размеров получаемого файла

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c