Главная страница
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.057 c
7-1082126058
Xerx
2004-04-16 18:34
2004.05.30
работа с модемом


1-1084682121
Янис
2004-05-16 08:35
2004.05.30
народ подскажите я хочу сделать тест и мне нужно что бы при нажат


1-1085036635
stelius
2004-05-20 11:03
2004.05.30
Границы печати в Excel


3-1084201056
Exe
2004-05-10 18:57
2004.05.30
ПРограмно добавить псевдоним к BDE


7-1083049444
luka
2004-04-27 11:04
2004.05.30
запись cd