从TIF文件保存到BMP文件出现失真问题

收藏

使用以下代码，把TIF文件保存到BMP文件时出现失真，如何解决？谢谢！

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
Dim wModify As CodecsSavePageMode
Try
If iQuality = 1 Then
iQuality = 2
End If
Dim Codecs As New RasterCodecs
Select Case iModify
Case SaveModifyConstants.SAVE_OVERWRITE
wModify = CodecsSavePageMode.Overwrite
Case SaveModifyConstants.SAVE_APPEND
wModify = CodecsSavePageMode.Append
Case SaveModifyConstants.SAVE_REPLACE
wModify = CodecsSavePageMode.Replace
Case SaveModifyConstants.SAVE_INSERT
wModify = CodecsSavePageMode.Insert
End Select
Codecs.Options.Jpeg.Save.QualityFactor = iQuality
Codecs.Options.Jpeg.Save.CmpQualityFactorPredefined = iQuality
If mBaseImage Is Nothing Then
mBaseImage = RasterImage.Create(emptyFil_width, emptyFil_height, iBitsPerPixel, 0, Leadtools.RasterColor.FromArgb(emptyFil_backcolor.ToArgb))
End If
Codecs.Save(mBaseImage, pszName, iFormat, iBitsPerPixel, 1, 1, 1, wModify)
Save = 0
Catch ex As Exception
Save = 20000
If mEnableMethodErrors Then
Throw ex
End If
End Try
End Function

复制代码

AvoCaDolol · AvoCaDolol

请问你的LEADTOOLS版本是多少？
另外失真指的是质量下降吗？还是其他？
你给的这段代码在设置JPEG的保存质量，并没有看到BMP相关。
另外，没有上下文的代码实在无法找到问题。能否将整个工程上传？

juniqian · juniqian

LEADTOOLS的版本是17
失真是指转换后的图像里面各个位置的一些线没有，如一条线其中的一部分没了。
52.Codecs.Save(mBaseImage, pszName, iFormat, iBitsPerPixel, 1, 1, 1, wModify)
pszName：BMP文件的绝对路径
iFormat：BMP文件类型 6

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

juniqian · juniqian

本帖最后由 juniqian 于 2016-6-8 15:20 编辑

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

AvoCaDolol · AvoCaDolol

juniqian 发表于 2016-6-8 15:19
TIFF文件和BMP文件
差不多中间位置比较明显，有些线没有了。

能否将原始Tiff文件上传，我做个测试。

		自动登录	找回密码
密码			立即注册

[已处理] 从TIF文件保存到BMP文件出现失真问题

4 个回复

本帖子中包含更多资源

活字格认证

Wyn高级认证