XProfan

window 600,600
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
'
var File$="C:\1Test\Foto.JPG"
'
var Liste&=create("GridBox",%hwnd,"Name;0;250;Wert;0;250;",0,10,10,550,530)
'
var Image&=ocxCreate("WIA.ImageFile")
ocxMethod(Image&,"LoadFile",File$)
var Properties&=ocxGet(Image&,"Properties")
'
declare Info&

whileloop 1,ocxGet(Properties&,"Count")

    Info&=ocxGet(Properties&,"Item",&loop)
    addstring(Liste&,ocxGet(Info&,"Name")+"|"+ocxGet(Info&,"Value"))
    ocxRelease(Info&)

endwhile

'
ocxRelease(Properties&,Image&)
ocxDeInit()
waitkey