| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

BMP->JPG [D3, D5, Win95/98]

WASYA ©   (2002-01-21 09:03:00) 

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

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

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

С уважением WASYA

---

Ghost.   (2002-01-29 08:58:00) [1]

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;
Вот можно так и заданием размеров получаемого файла

---

WASYA   (2002-01-29 08:40:00) [2]

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

---

aus   (2002-01-22 09:21:00) [3]

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

---

WASYA   (2002-01-22 09:07:00) [4]

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

---

Val   (2002-01-21 15:49:00) [5]

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

---

Наверх