Форум: "Media";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];
ВнизСнимок экрана Найти похожие ветки
← →
Nic2 (2004-05-20 22:06) [0]Мастера подскажите, как уменьшить количество цетов в выходном файле, сейчас копирует 24b.
Пишу:
----------------------------------------------
var
DC: HDC;
Canva: TCanvas;
B: TBitmap;
jpg: TJPEGImage;
begin
Canva := TCanvas.Create;
JPG := TJPEGImage.Create;
B := TBitmap.Create;
DC := GetDC(0);
try
Canva.Handle := DC;
with Screen do
begin
B.Width := Width;
B.Height := Height;
B.Canvas.CopyRect(Rect(0, 0, Width, Height), Canva, Rect(0, 0, Width, Height));
end;
if not b.Empty then
begin
jpg.Performance:=jpBestspeed;
jpg.PixelFormat:=jf8Bit;
jpg.CompressionQuality:=50;
jpg.Compress;
jpg.Assign(b);
jpg.SaveToFile("c:\01.jpg");
end;
finally
b.Free;
canva.Free;
jpg.Free;
end;
---------------------------------------------
← →
MicroMozg (2004-05-21 22:00) [1]Попробуй так:
Bitmap := TBitmap.Create;
Bitmap.Width := Screen.Width;
Bitmap.Height := Screen.Height;
Bitmap.PixelFormat := pf1bit; {или pf2/4/8/16/24/32bit}
DC := GetDC(0);
BitBlt(Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height,
DC, 0, 0,SRCCOPY);
ReleaseDC(0, DC);
Bitmap.SaveToFile("D:\Test.bmp");
Bitmap.Free;
У меня вроде всё работает.
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.037 c