Fórum Capturar img do Desktop e salvar como jpeg. #237011

uses
  DateUtils, JPEG;


procedure TForm1.Button1Click(Sender: TObject);
var nomeArq:string;
   ano, mes, dia, hor, min, seg, Mseg:word;
begin
   try
   Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Screen.Width,Screen.Height)));
   DecodeDateTime(Now,ano,mes,dia,hor,min,seg,mseg);
   nomeArq := IntToStr(ano)+FormatFloat(´00´,mes)+IntToStr(dia)+´-´+IntToStr(hor)+IntToStr(min)+IntToStr(seg);
   nomeArq := ´C:\Teste\´+nomeArq;
   BmpToJpg(image1.picture.Bitmap, nomeArq);
   except
   end;
end;

function CaptureScreenRect( ARect: TRect ): TBitmap;
var ScreenDC: HDC;
begin
   Result := TBitmap.Create;
   with Result, ARect do
      begin
      Width := Right - Left;
      Height := Bottom - Top;
      ScreenDC := GetDC( 0 );
      try
      BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC, Left, Top, SRCCOPY );
      finally
      ReleaseDC( 0, ScreenDC );
      end;
      end;
end;

function BmpToJpg(cImage: tbitmap; nomeJpg:string): Boolean;
var jp: TJpegImage;
begin
   jp := TJpegImage.Create;
   try
   with jp do
      begin
      Assign(cImage);
      SaveToFile(nomeJpg+´.jpg´)
      end;
   finally
   jp.Free;
   end;
end;

function CapturaTelaJpg: TJpegImage;
var
dc : hdc;
cv : TCanvas;
aux : TBitmap;
begin

Result := TJPEGImage.Create;

aux := TBitmap.Create;
aux.Height := Screen.Height;
aux.Width := Screen.Width;

dc := GetDC(0);
cv := TCanvas.Create;
cv.Handle := dc;

//--Define o tamanho da imagem
aux.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),cv,
Rect(0,0,Screen.Width,Screen.Height));
cv.Free;
ReleaseDC(0,dc);

//-- Compacta o BMP para JPEG
Result.Assign(aux);
Result.Compress;

end;


Use um timer
procedure TForm1.Timer1Timer(Sender: TObject);
var
s : string;
begin
S := ´F´+FormatDateTime(´yymmdd.hhnn´,now)+´.jpg´;
CapturaTelaJpg.SaveToFile(´C:\pastadeimagens\fotostela\´+S);
end;

function CapturaTela: TBitmap; 
var 
  dc:hdc; 
  cv:TCanvas; 
begin 
  result := TBitmap.Create; 
  result.Width := Screen.Width; 
  result.Height := Screen.Height; 
  dc := GetDc(0); 
  cv := TCanvas.Create; 
  cv.Handle := DC; 
  result.Canvas.CopyRect(Rect(0, 0,Screen.Width,Screen.Height), cv,Rect(0,0,Screen.Width, Screen.Height)); 
  cv.Free; 
  ReleaseDC (0, DC); 
end; 

procedure BmpToJpg(const Bitmap : TBitmap; var AStream: TMemoryStream);
var
  Jpg: TJpegImage;
begin
   Jpg := TJpegImage.Create;
   try
    Try jpg.PixelFormat := jf8Bit; Except End;
    Try jpg.CompressionQuality := 30; Except End;
    Try jpg.Compress; Except End;

//    Jpg.CompressionQuality := 30;
//    Jpg.PixelFormat := jf8Bit;
    Jpg.Assign(Bitmap);
    Jpg.SaveToStream(AStream);
   finally
    Jpg.Free
   end;
end; (* BMPtoJPG *)

          pic := TBitmap.Create;
          JpegStream := TMemoryStream.Create;//aqui estou usando Stream, mais vc pode substituir pelo nome de um arquivo..
          pic :=CapturaTela;
          BmpToJpg(pic, JpegStream);