VB如何判断一个文件是否是JPG文件

显示全部楼层 · 2008-5-30 12:32:38

做了一个系统，里面把图片用二进制存在数据库。
但是其他文件改后缀为.jpg也能存进去。但是不显示图片。
有没有方法判断是否是jpg文件。
只要jpg,其他bmp,ico,png等等都不要。
0871love你知道怎么用文件头来判断吗？

lxz1969 如果把 bmp 后缀改成 jpg 就不会报错

千问 · 2008-5-30 12:32:38

'测试图片文件是否为JPG或JPEG文件(与文件扩展名无关)'参数说明：Filename 要测试的图片文件名,返回值为逻辑型'调用举例：if TestJpgFile("c:\1.jpg")=True then msgbox "是JPG文件"Function TestJpgFile(Filename As String) As BooleanDim i As Integer, S As String, bb() As ByteIf Dir(Filename) = "" Or Filename = "" Then Exit Functioni = FreeFileReDim bb(9)Open Filename For Bi

千问 · 2008-5-30 12:32:38

private command1_click()on error goto errpicture1.picture=loadpicture("D:\1.jpg")exit suberr:msgbox "D:\1.jpg不是合法的图片！"end sub

千问 · 2008-5-30 12:32:38

没去实现过我的思路：先读取这个文件并生成一个具体的文件再打开这个文件，获取文件头，根据这个文件头来判断是否为JPG文件，如果是，则显示

千问 · 2008-5-30 12:32:38

Private Function IsJPGFile(ByVal FileName As String) As BooleanConst STR1 As String = "FFD8FFE0????????4946"Dim ByteD() As Byte, FileL As Long, I As LongDim STR2 As Str