I have a small table in a system which contains a field with images in bmp
format in a foxpro2.6 database. I want to save these images from an OLE
container to file using the following procedure
******************************************************
Private Sub Command1_Click()
Dim FileNum As Integer
' Get file number.
FileNum = FreeFile
' Open file to be saved.
Open "c:\tmp\testfile.bmp" For Binary As #FileNum
' Save the file.
org_logo.SaveToFile FileNum
' Close the file.
Close #FileNum
End Sub
******************************************************
The file is saved but not recognizable as a bmp file. Can someone tell me
what I'm doing wrong.
Tia
Best regards,