Persistent error in storing JPG in general field VFP 9.0: OLE error code 0x80040011: Not able to convert object.

[dmusicant]

I've experienced same or similar errors in the past but lately had no problem except today. I use Irfanview 64 a free image program to view and edit (usually just crop and save) JPGs from my digital cameras including my Android phone.

I have viewed a saved file in Irfanview, copied it to the Windows 10 clipboard, gone to a general field in one of my VFP 9.0 tables, opened it and pasted the photo. I see it, but not its totality. Usually I close the memo field, and when I reopen it I see the entire photo, not just a portion of it. But now I close it, reopen it and get this error:

OLE error code 0x80040011: Not able to convert object.

Even accessing the record will cause this, not opening the general field. I couldn't see a memo field in the record without the error occurring. Only way to fix the snafu was to delete the record. Happens every time I try to embed that JPG in the general field. What could be afoot here? I'm not doing anything differently than I usually do.

 

[Chriss Miller]

It has been recommended to not use General fields for decades by now. If you google for it, image storage in a General field depends on MS Paint and more precisely either Paint.Picture or Package OLE classes. So the General field depends on OLE object, it does not store a clipboard object, therefore the conversion. I think whatever the file is you edit in Irfanview within the clipboard you have a picture representation as a BMP or even DIB (device independent bitmap). Anyway, that's what's converted.

I guess you could fix that by using a Shell Window in administrator mode and run this command:

ASSOC BMP=Paint.Picture

Otherwise alternatives to bring an image into a dbf are APPEND GENERAL FROM fileaname and then using an OleBound control for displaying it, also can be the basis for reports. But we have BLOB fields by now for storing the fie content read in from FILETOSTR() and PictureVal="Blobfieldname" for diplay in an image control, besides using an image control Picture property set to a filename. Especially the ability to view the image in a General field by double click on it demands an uncompressed DIB and that's bloat of the fpt file, do you really need to store your images in a DBF or its FPT? You don't need to answer this, the answer is no. Even in reports you can use a picture/olebound control and don't use the olebound to general field feature but point to an image file by using the default control source type image file name, instead of General field name.



To stress it once more: This is the default. The General field is dead. Don't use it.

 

[mjcmkrsr]

... and some demo code (pictures in a grid) to illustrate Chriss's advice

Public oForm

oForm = Createobject('myForm')
oForm.Show()

READ EVENTS

CLOSE ALL
CLEAR ALL

**********

DEFINE Class myForm As Form
  Height = 360
  Width = 840
  MinWidth = This.Width
  MaxWidth = This.Width
 
  Add Object myGrid As Grid With Height = 360, Width = 840, RecordSource = 'tblImageList'

  Procedure Load
    Local Array laImageList[1]
    Local lcPath
    
    lcPath = Home()+'Graphics\Bitmaps\Offctlbr\Large\Color'
    
    Create Cursor tblImageList (FileName M)
    
    For lix = 1 To Adir(laImageList, Addbs(m.lcPath) + '*.*')
      Insert Into tblImageList Values (Addbs(m.lcPath) ++ laImageList[lix,1])
    Endfor
 
*!*        For lix = 1 To Adir(laImageList, "*.jpg")
*!*          Insert Into tblImageList Values (laImageList[lix,1])
*!*        Endfor
    
    Go Top
  Endproc

  Procedure Init
    With This.myGrid
      .ColumnCount = 2
      .RowHeight = 24
      .Anchor = 15

      With .Columns(1)
        .AddObject('edtBox','EditBox')
        .CurrentControl = 'edtBox'
        .Width = 720
        .Sparse = .F.
        .edtBox.Visible = .T.
      Endwith

      With .Columns(2)
          .Header1.Caption = ""
        .AddObject('imgImage','myImage')
        .CurrentControl = 'imgImage'
        .Width = 24
        .Sparse = .F.
        .imgImage.ImageFilename = "tblImageList.FileName"
        .imgImage.Visible = .T.
      Endwith
    Endwith
  ENDPROC
 
  PROCEDURE Destroy()
      ThisForm.Release()
      CLEAR EVENTS()
  ENDPROC
 
ENDDEFINE

**********

DEFINE Class myImage as Image
   ImageFileName = ""
  
   PROCEDURE Backstyle_Access()
      This.Picture = Evaluate(this.ImageFileName)
      Return This.BackStyle
   ENDPROC
  
ENDDEFINE

***********

hth

MarK

 

[GriffMG]

Are you able to access the files from a machine with an earlier OS ?

 

[dmusicant]

The app I use to access the DBFs in my system was created using FPW 2.6a. I only use FPW to modify the screens of the app, which I only rarely do. I use VFP 9.0 when I use the app (which is a lot!), have made some modifications in the app so this works. The opening screen I use was FPW created. It blows up in VFP quite often and I have to restart the app. I created a VFP form to use instead of the FPW created one to start the app, but that blows up frequently too, but in a different way. There's something(s) wrong with it. I haven't chased it down, I'm just living with the fact that I have to restart it.

Anyway, I'm saying this to illustrate that I'm not doing anything fancy here, I just browse the tables, typically with a BROWSE LAST in the code. When I place a JPG in a general field I do it while browsing. Most of my tables don't have a general field, but several do. Usually there's no problem. I have no idea why VFP is choking on that JPG. I didn't do anything different.

 

[Chriss Miller]

As said, this depends on something outside of VFP. So there's nothing unusual about it failing once the outside changes. And it changes all the time through many things like Windows Updates, software installations and updates, etc.

Have you tried ASSOC BMP=Paint.Picture?

I can paste an image into a General field on Windows 10, but I also did the ASSOC command a while ago. There's an older thread about that, actually. It doesn't depend on that JPG or any file at all when you paste from the clipboard. All that matters is that an image on the clipboard can be converted to a Paint.Picture stored in the General field. Lacking that association you get such an error. You might still be able to APPEND GENERAL FROM a file, but I think it will require the same association. This is not a file associaiton, this is an association of which OLE class hosts the type of image, and in Windows clipboard that's always BMP, not anything else. Anything else could become important when you APPEND GENERAL FROM a file, but not from the clipboard.

 

[GriffMG]

Windows 10/11 have a different paint program and need a couple of regedits to use general fields...

 

[dmusicant]

As said, this depends on something outside of VFP. So there's nothing unusual about it failing once the outside changes. And it changes all the time through many things like Windows Updates, software installations and updates, etc.

Have you tried ASSOC BMP=Paint.Picture?

I can paste an image into a General field on Windows 10, but I also did the ASSOC command a while ago. There's an older thread about that, actually. It doesn't depend on that JPG or any file at all when you paste from the clipboard. All that matters is that an image on the clipboard can be converted to a Paint.Picture stored in the General field. Lacking that association you get such an error. You might still be able to APPEND GENERAL FROM a file, but I think it will require the same association. This is not a file associaiton, this is an association of which OLE class hosts the type of image, and in Windows clipboard that's always BMP, not anything else. Anything else could become important when you APPEND GENERAL FROM a file, but not from the clipboard.

So I'd put the command ASSOC BMP=Paint.Picture in a setup file when I start VFP? That would allow me to copy/paste a JPG into a general field? I've never used BLOB fields in my dbfs before. I just created one 1/2 hour ago and when I tried pasting in a JPG on my clipboard nothing happened. I'm not doing this stuff in code, I'm simply trying to copy/paste a JPG into a field in a dbf so I can view it later by double clicking on it or keyboard combo Crtl+PgUp.

I'd really prefer to be able to work with DBFs that will work with FPW 2.6a because the app was created with FPW 2.6a. Not that I use FPW for anything other than modifying screens of the app, but I'd prefer to be able to use FPW with the app and not have it blow when it uses DBFs. I created a little PRG that converts VFP compliant DBFs to FPW compliant DBFs that I have used on my tables.

 

[Chriss Miller]

So I'd put the command ASSOC BMP=Paint.Picture in a setup file when I start VFP?

No, you just start cmd.exe in administrator elevation and once run ASSOC BMP=Paint.Picture
Then this is settled until it stops working again.

I understand you're just using some legacy code within the VPF9 IDE and are not interested in upgrading anything to new UI etc. So just try that. If it does not help you'll be quite lost.

And regarding BLOB fields: Nobody said they can get images pasted into them. They're also not displaying images. The just can hold any type of binary content of any length up to 2GB and that can be used as data source for things like a report image control or a form image control. It works totally different. So if you want to get back to what you're used to your chances are with the ASSOC command, only. Or what Griff posted in more detail.

 

[dmusicant]

Windows 10/11 have a different paint program and need a couple of regedits to use general fields...

When I unzip and attempt to run the registry edit I get this message:

X Cannot import W:\Downloads-P1Gen3\BitmapImage\Paint.Picture.reg: Error opening the file. There may be a disk or file system error.

[ OK ]

The directory cited is off the directory on my NAS server where I send downloads made to this laptop (I do this to ensure I have backups of downloads and so my other machines can see the downloads I make). Conceivably it's a temporary network problem. I'll try to run it later.