Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.30;
Скачать: 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 вся ветка

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.029 c
14-1084050627
Petr V. Abramov
2004-05-09 01:10
2004.05.30
Про семафоры


1-1084741869
Mishenka
2004-05-17 01:11
2004.05.30
Удаление списка?


1-1084558995
ИМХО
2004-05-14 22:23
2004.05.30
OLE-автоматизация Outlook а


1-1084363991
dim-
2004-05-12 16:13
2004.05.30
tree и Data


14-1084270653
Klerk
2004-05-11 14:17
2004.05.30
Проблеммы с Excel