Затемнение изображения JPG

[artemavd]

Добрый день!
Создается скриншот формы таким кодом:

var
 ScreenDC:HDC;
 Canvas:TCanvas;
 myjpg:  TJPEGImage;
 Image: TImage;
 i, j: integer;
begin
 Image:=TImage.Create(nil);
 myjpg:= TJPEGImage.Create;
 ScreenDC := GetDC(0);
 Canvas:=TCanvas.Create();
 Canvas.Handle:=ScreenDC;
 Image.Width := Form_Main.Width;
 Image.Height := Form_Main.Height;
 Image.Canvas.CopyRect(Rect(0, 0, Image.Width, Image.Height), Canvas,
                                 Rect(0, 0, Form_Main.Width, Form_Main.Height));
 ReleaseDC(0,ScreenDC);
 myjpg.Assign(Image.Picture.Bitmap);
 myjpg.compressionquality:=75;
 myjpg.compress;
 myjpg.SaveToFile(ExtractFilePath(ParamStr(0)) + '_.jpg');
 Image.Free;
 Canvas.Free;

Потом мне надо его загрузить и затемнить. Использую такой код:

 for i:=0 to Form_Main.sImage2.Width do
 for j:=0 to Form_Main.sImage2.Height do
  Form_Main.sImage2.Canvas.Pixels[i,j]:=
                        ChangeColor(Form_Main.sImage2.Canvas.Pixels[i,j],false);

Код срабатывает, но только если в sImage2 загружен BMP файл. А его не могу использовать, т.к. сохраненный скрин BMP файла получается 8мб и из-за этого процесс затемнения не быстро идет.
Как можно сделать затемнение если загружен JPG файл?
Функция:

function ChangeColor(InputColor: TColor; Lighten: Boolean): TColor;
const
 col=60;
 var
   r,g,b: extended;
 begin
   r := GetRValue(InputColor);
   g := GetGValue(InputColor);
   b := GetBValue(InputColor);
  if Lighten = True then
   begin
     r := r+col; g := g+col; b := b+col;
   end else
   begin
     r := r-col; g := g-col; b := b-col;
   end;
  if r > 255 then r := 255;    if r < 0 then r := 0;
   if g > 255 then g := 255;   if g < 0 then g := 0;
   if b > 255 then b := 255;   if b < 0 then b := 0;
  Result := RGB(byte(Round(r)),byte(Round(g)),byte(Round(b)));
 end;

[newerow1989]

Уточняющий вопрос:
Почему именно такой код?

r := GetRValue(InputColor);
g := GetGValue(InputColor);
b := GetBValue(InputColor);
***
r := r+col; g := g+col; b := b+col;
***
if r > 255 then r := 255;    if r < 0 then r := 0;
if g > 255 then g := 255;   if g < 0 then g := 0;
if b > 255 then b := 255;   if b < 0 then b := 0;

Я обычно использую:

col:=Canvas.Pixels[i,j];
r:=GetRValue(col);
g:=GetGValue(col);
b:=GetBValue(col);
r:=Round(r+(255-r)*prozr);
g:=Round(g+(255-g)*prozr);
b:=Round(b+(255-b)*prozr);
Canvas.Pixels[i,j]:=RGB(r,g,b);

r:=Round(r-r*prozr);
g:=Round(g-g*prozr);
b:=Round(b-b*prozr);

если загружен JPG файл

Это бесполезно. Я даже пробовал линию прочертить (MoveTo/LineTo) - выдает ошибку

[artemavd]

А как тогда уменьшит размер bmp файла скриншота?

[newerow1989]

Я думаю ввести пропорцию:

Canvas.Pixels[x,y]:=Canvas.Pixels[Round(i*Width1/Width2),Round(j*Height1/Height2)];

Примерно как-то так

[artemavd]

Сообщение от newerow1989

Я думаю ввести пропорцию:

Canvas.Pixels[x,y]:=Canvas.Pixels[Round(i*Width1/Width2),Round(j*Height1/Height2)];

Примерно как-то так

В какое место?

[newerow1989]

После загрузки картинки в sImage2.
Про размерность у компонента есть свойства Proportional, Stretch.

Если каждый пиксел картинки изменять, то этот процесс будет долгим. Лучше будет, если размер поменьше сделать (если возможно)

[artemavd]

Сообщение от newerow1989

После загрузки картинки в sImage2.
Про размерность у компонента есть свойства Proportional, Stretch.

Если каждый пиксел картинки изменять, то этот процесс будет долгим. Лучше будет, если размер поменьше сделать (если возможно)

Так вот я и спрашиваю: каким образом можно уменьшить размер конечного файла?

[BDA]

А так быстрее не станет?

procedure TForm1.Button1Click(Sender: TObject);
const
  col = 60;
var
  bmp: tbitmap;
  i, j, dx: integer;
  t: tdatetime;
  Pixels: PByteArray;
begin
  bmp := GetFormImage;
  bmp.PixelFormat := pf24bit;
  t := now;
  dx := DWord(bmp.ScanLine[1]) - DWord(bmp.ScanLine[0]);
  Pixels := bmp.ScanLine[0];
  for i := 0 to bmp.Height - 1 do
  begin
    for j := 0 to bmp.Width - 1 do
    begin
      Pixels[j * 3] := max(0, Pixels[j * 3] - col); // blue
      Pixels[j * 3 + 1] := max(0, Pixels[j * 3 + 1] - col); // green
      Pixels[j * 3 + 2] := max(0, Pixels[j * 3 + 2] - col); // red
    end;
    inc(DWord(Pixels), dx);
  end;
  caption := FormatDateTime('s.zzz', now - t);
  bmp.SaveToFile(ExtractFilePath(ParamStr(0)) + '1.bmp');
  bmp.Free;
end;

[artemavd]

Спасибо, BDA, я попробую потом твой код. Я тут в одной из своих старых тем нашел, что в свое время мне надо было уменьшить файл. Мне там написали решение в виде создания сначала BMP файла, а потом его перегонки в JPG и сохранение в BMP файл. Это делает вот такая функция:

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,Form_Main.Width,Form_Main.Height);
  RS.Width:=Form_Main.Width;
  RS.Height:=Form_Main.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;

Теперь сохраненный BMP файл получается около 200КБ. Меня это конечно устраивает.
Использую я эту функцию так:

var
 b: TBitMap;
 i,j: integer;
begin
 b:=TBitMap.Create;
 GetRS(b,ExtractFilePath(ParamStr(0)) + '_.bmp');
 b.Free;
 Form_Main.sImage2.Picture.Bitmap.LoadFromFile(ExtractFilePath(ParamStr(0)) + '_.bmp');
end;

Но теперь я не могу его загрузить в Image. Выдается ошибка "Bitmap is not valid image". Что надо исправить?

[BDA]

Потому что в файле находится изображение в формате jpeg, а не bmp.