QJH

图片类型转换

function BmpToJpeg(mBitmap: TBitmap; mJPEGImage: TJPEGImage;
  mCompressionQuality: Integer = 75): Boolean;
begin
  Result := True;
  try
    mJPEGImage.Assign(mBitmap);
    mJPEGImage.CompressionQuality := mCompressionQuality;
    mJPEGImage.Compress;
  except
    Result := False;
  end;
end; { BmpToJpeg }

function JpegToBmp(mJPEGImage: TJPEGImage; mBitmap: TBitmap): Boolean;
begin
  Result := True;
  try
    mBitmap.Assign(mJPEGImage);
  except
    Result := False;
  end;
end; { JpegToBmp }

阅读更多
文章标签: function integer
个人分类: Delphi
上一篇存储过程分页
下一篇读取Ini文件
想对作者说点什么? 我来说一句

图片压缩工具

2014年04月24日 15.24MB 下载

图片转换工具

2007年11月01日 511KB 下载

advanced batch converter3.8.20

2009年06月14日 1.29MB 下载

js类型转换js类型转换

2010年06月03日 2KB 下载

没有更多推荐了,返回首页

关闭
关闭