Главная страница
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.031 c
8-1079206208
novi
2004-03-13 22:30
2004.05.30
процедура реагирующая на положение указателя мыши


1-1084775194
Sergo
2004-05-17 10:26
2004.05.30
TreeView


14-1084540198
Denis_ada
2004-05-14 17:09
2004.05.30
Клиент-серверн. приложение по работе с папками и файлами


3-1083650137
TankMan
2004-05-04 09:55
2004.05.30
Что делать со скроллингом в DBGrid


3-1083933115
kot
2004-05-07 16:31
2004.05.30
Помогите с MySQL