写了以下代码来读取数据库中的文件
Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
Dim PartImage As OraBlob
Dim buffer As VariantSet OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("winy", "winy/winy", 0&)
Set OraDynaset = OraDatabase.CreateDynaset("select * from tabl_video_rm where file_name='winy'", 0&)
Set PartImage = OraDynaset.Fields("rm1").Value
amount_read = PartImage.Read(buffer)
FreeFileNumber = FreeFile
Open "c:\photo.jpg" For Binary Access Write As #FreeFileNumber
Put #FreeFileNumber, , buffer
Close #FreeFileNumber
Image1.Picture = LoadPicture("c:\photo.jpg")
现在问题是:C盘的这个图像在IMAGEA或PICTURE里不能显示“无效图片!”
可是我在ACDSEE里却能打开!这是为什么?