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

Как уменьшить размер графического файла?   Найти похожие ветки 

← →
BenderLog ©   (2004-03-21 10:57) [0]

Я делаю снимок экрана:

procedure TForm1.Button1Click(Sender: TObject);
 var
   DC: HDC;
   Canva: TCanvas;
   B: TBitmap;
 begin
   Canva := TCanvas.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));
       B.SaveToFile("c:\screen.bmp");
                    end
   finally
     ReleaseDC(0, DC);
     B.Free;
     Canva.Free
   end
 end;
 
Проблема в том, что файл c:\screen.bmp имеет размер 3 Mb. Что нужно добавить в код, чтобы уменьшить размер файла???

Заранее Спасибо!

---

← →
Kerk ©   (2004-03-21 15:43) [1]

Или уменьшить размер рисунка или сохранить его в jpg-формате :)

---

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

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



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