PB取图片类型

string ls_filetype
 
if long(BlobMid(ab_FileNameblob,1,4))   = 944130375  Then   
	ls_filetype = 'gif' 
ElseIf   long(BlobMid(ab_FileNameblob,7,4)) = 1179207242 Then   
	ls_filetype = 'jpg' 
ElseIf   integer(BlobMid(ab_FileNameblob,1,4))   =  19778 Then   
	ls_filetype = 'bmp'
ElseIf   long(BlobMid(ab_FileNameblob,1,4))   =  1196314761 and  long(BlobMid(ab_FileNameblob,5,4))   =  169478669   Then   
	ls_filetype = 'png' 
end if 
return ls_filetype