找回密码
 立即注册

QQ登录

只需一步,快速开始

juniqian

注册会员

3

主题

6

帖子

21

积分

注册会员

积分
21
最新发帖
juniqian
注册会员   /  发表于:2016-6-8 10:36  /   查看:4515  /  回复:4
使用以下代码,把TIF文件保存到BMP文件时出现失真,如何解决?谢谢!

  1. Public Function Save(ByRef pszName As String, ByRef iFormat As Integer, ByRef iBitsPerPixel As Integer, ByRef iQuality As Integer, ByRef iModify As Integer) As Integer

  2.         Dim wModify As CodecsSavePageMode



  3.         Try

  4.             If iQuality = 1 Then

  5.                 iQuality = 2

  6.             End If



  7.             Dim Codecs As New RasterCodecs

  8.             Select Case iModify

  9.                 Case SaveModifyConstants.SAVE_OVERWRITE

  10.                     wModify = CodecsSavePageMode.Overwrite

  11.                 Case SaveModifyConstants.SAVE_APPEND

  12.                     wModify = CodecsSavePageMode.Append

  13.                 Case SaveModifyConstants.SAVE_REPLACE

  14.                     wModify = CodecsSavePageMode.Replace

  15.                 Case SaveModifyConstants.SAVE_INSERT

  16.                     wModify = CodecsSavePageMode.Insert

  17.             End Select



  18.             Codecs.Options.Jpeg.Save.QualityFactor = iQuality

  19.             Codecs.Options.Jpeg.Save.CmpQualityFactorPredefined = iQuality


  20. If mBaseImage Is Nothing Then

  21.                 mBaseImage = RasterImage.Create(emptyFil_width, emptyFil_height, iBitsPerPixel, 0, Leadtools.RasterColor.FromArgb(emptyFil_backcolor.ToArgb))

  22.             End If

  23. Codecs.Save(mBaseImage, pszName, iFormat, iBitsPerPixel, 1, 1, 1, wModify)

  24.             Save = 0

  25.         Catch ex As Exception

  26.             Save = 20000

  27.             If mEnableMethodErrors Then

  28.                 Throw ex

  29.             End If

  30.         End Try

  31.     End Function
复制代码


4 个回复

倒序浏览
AvoCaDolol活字格认证 Wyn认证
社区贡献组   /  发表于:2016-6-8 14:12:09
沙发
请问你的LEADTOOLS版本是多少?
另外失真指的是质量下降吗?还是其他?
你给的这段代码在设置JPEG的保存质量,并没有看到BMP相关。
另外,没有上下文的代码实在无法找到问题。能否将整个工程上传?
回复 使用道具 举报
juniqian
注册会员   /  发表于:2016-6-8 15:04:13
板凳
LEADTOOLS的版本是17
失真是指转换后的图像里面各个位置的一些线没有,如一条线其中的一部分没了。
52.Codecs.Save(mBaseImage, pszName, iFormat, iBitsPerPixel, 1, 1, 1, wModify)
pszName:BMP文件的绝对路径
iFormat:BMP文件类型 6

转换BMP文件的话需要其他设定吗?

回复 使用道具 举报
juniqian
注册会员   /  发表于:2016-6-8 15:19:28
地板
本帖最后由 juniqian 于 2016-6-8 15:20 编辑

TIFF文件和BMP文件
差不多中间位置比较明显,有些线没有了。


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 使用道具 举报
AvoCaDolol活字格认证 Wyn认证
社区贡献组   /  发表于:2016-6-15 17:30:37
5#
juniqian 发表于 2016-6-8 15:19
TIFF文件和BMP文件
差不多中间位置比较明显,有些线没有了。

能否将原始Tiff文件上传,我做个测试。
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部