delphi 图片的存取 包含JPEG BMP等格式

Question

求源代码  详细的 谢谢

Answer 1

  B: TBitmap;
  J: TJpegImage;
  D: TRect;
  Str: String;  B := GetFormImage; //抓图
  
    Clipboard.Assign(B);
    Str:= 'D:\XyScreenShot_'+FormatDateTime('yymmddhhnnss',now);
    //保存为BMP
    Str:= 'D:\XyScreenShot_'+FormatDateTime('yymmddhhnnss',now)+'.BMP';
    B.SaveToFile(Str);
    //保存为JPG
    J:= TJpegImage.Create;
    J.Assign(B);
    J.CompressionQuality:= 100;
    J.SaveToFile(Str+'.Jpg');
    J.LoadFromFile(Str+'.Jpg');
    B.Assign(J);