Dim Buffer() As Byte
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position = i
Buffer=Cursor1.GetBlob("eimg")
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 2, Buffer.Length)
Dim ou As OutputStream
ou=File.OpenOutput(File.DirRootExternal,i& ".png",True)
File.Copy2(InputStream1,ou)
ou.Flush
ou.Close
Next
End If
Cursor1.Close