以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么判断二进制图片是否损坏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71141)
--  作者：zwjfx
--  发布时间：2015/7/6 10:40:00
--  [求助]怎么判断二进制图片是否损坏
研究几天了，也没个结果，看哪位大神能提供个思路，数据库有点大，两百多万条数据，要更新二进制图片，部分插入不成功，或者会损坏，怎么来判断这个二进制列是否有数据和图片数据是否能正确显示呢
--  作者：大红袍
--  发布时间：2015/7/6 10:56:00
--  

 比如有一个文件，然后判断

 

try
    Dim bit As New bitmap("d:\\test.jpg")
    If bit Is Nothing Then
        msgbox("图片损坏")
    End If
    bit.Dispose
catch ex As Exception
    msgbox("图片损坏")
End try
--  作者：zwjfx
--  发布时间：2015/7/6 11:09:00
--  
也对，二进制的，完善一下
Dim g As Integer = 25115
Dim b As DataRow = DataTables("tsxx").sqlfind("[_Identify] = \'"& g &"\'")
    If b IsNot Nothing Then
        Output.show(g)
        Dim p As String =  ProjectPath &  "te" & ".jpg"
        If b.SQLLoadFile("tu",p) Then
            try 
                Dim bit As New bitmap(p)
                If bit Is Nothing Then
                    msgbox("图片损坏")
                Else
                    msgbox(p)
                End If
                bit.Dispose
                catch ex As Exception
                msgbox("图片损坏")
            End try
        Else
            Output.show(9)
        End If
    End If