Большой объем файла после создания скриншота. Как уменьшить?

[artemavd]

Есть программка в наличии, с помощью которой делается скриншот экрана и сохраняется в папку с прогой. Проблема в том, что сделанный имеет слишком большой размер независимо от расширения, будь то BMP, либо JPEG. Размер одного файла = ~5Mb. Вот процедура создания скриншота:

procedure GetRS(RS:TBitmap; Path: string);
var
 c: TCanvas;
 r: TRect;
begin
 c:=TCanvas.Create;
 c.Handle:=getWindowDC(GetDesktopWindow);
 try
  r:=Rect(0,0,screen.Width,screen.Height);
  RS.Width:=screen.Width;
  RS.Height:=screen.Height;
  RS.Canvas.CopyRect(r,c,r);
  RS.SaveToFile(Path);
 finally
  ReleaseDC(0,c.Handle);
  c.Free;
 end;
end;

А вот ее вызов:

procedure TForm1.BtnInsertImageClick(Sender: TObject);
var
 b: TBitMap;
begin
 b:=TBitMap.Create;
 GetRS(b,ExtractFilePath(Application.ExeName) + IntToStr(i) + '.bmp');
 b.Free;
 Inc(i);
end;

Вопрос: как уменьшить объем созданного файла?

[DIgorevich]

Ты независимо от расширения получаешь битмап, т.е бмп файл, а надо еще пережать его в jpg. вот исправил твоё (добавь в uses jpeg):

procedure GetRS(RS:TBitmap; Path: string);
var
 c: TCanvas;
 r: TRect;
 jpgImg: TJPEGImage;
begin
 c:=TCanvas.Create;
 c.Handle:=getWindowDC(GetDesktopWindow);
 try
  r:=Rect(0,0,screen.Width,screen.Height);
  RS.Width:=screen.Width;
  RS.Height:=screen.Height;
  RS.Canvas.CopyRect(r,c,r);
  RS.SaveToFile(Path);
  jpgImg := TJPEGImage.Create;
  jpgImg.Assign(RS);
  jpgImg.SaveToFile(Path)
 finally
  ReleaseDC(0,c.Handle);
  c.Free;
  jpgImg.Free;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 b: TBitMap;
begin
 b:=TBitMap.Create;
 GetRS(b,ExtractFilePath(Application.ExeName) + IntToStr(i) + '.jpg');
 b.Free;
 Inc(i);
end;

[artemavd]

Хм...внес изменения, а при запуске программы получается, что она как бы становится неактивной, т.е. я не могу нажать ни на одну кнопку и т.д...

[DIgorevich]

код в студию! или сразу проект... Т.к. у меня всё работает.

[artemavd]

Да в проекте ничего нет, кроме того кода, что я выложил. У меня почему-то кнопки и ComboBox не работают. А Edit работает . ХЗ)

[DIgorevich]

может глюк какой? мой проект целиком вот:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,jpeg, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure GetRS(RS:TBitmap; Path: string);
var
 c: TCanvas;
 r: TRect;
 jpgImg: TJPEGImage;
begin
 c:=TCanvas.Create;
 c.Handle:=getWindowDC(GetDesktopWindow);
 try
  r:=Rect(0,0,screen.Width,screen.Height);
  RS.Width:=screen.Width;
  RS.Height:=screen.Height;
  RS.Canvas.CopyRect(r,c,r);
  RS.SaveToFile(Path);
  jpgImg := TJPEGImage.Create;
  jpgImg.Assign(RS);
  jpgImg.SaveToFile(Path)
 finally
  ReleaseDC(0,c.Handle);
  c.Free;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 b: TBitMap;
begin
 b:=TBitMap.Create;
 GetRS(b,ExtractFilePath(Application.ExeName) + '.jpg');
 b.Free;
end;

end.

[Пепел Феникса]

утечка памяти детектед

[DIgorevich]

Сообщение от Пепел Феникса

утечка памяти детектед

А ну да.... забыл дописать после finally
jpgImg.Free;

Спасибо!