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

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

Как уменьшить размер графического файла? [D7, Win2k]

BenderLog ©   (2004-03-21 10:57:00) 

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

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:00) [1]

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

---

Наверх