[Bug 8391] EDWinXP 1.50 trial version aborts after splash screen (IPicture DISPID_PICT_RENDER support missing)

http://bugs.winehq.org/show_bug.cgi?id=8391

Anastasius Focht  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |[e-mail]
            Summary|EDWinXP 1.50 trial version  |EDWinXP 1.50 trial version
                   |aborts after splash screen  |aborts after splash screen
                   |                            |(IPicture
                   |                            |DISPID_PICT_RENDER support
                   |                            |missing)

--- Comment #10 from Anastasius Focht  2011-05-01 08:18:18 CDT ---
Hello,

the reason this Visual Basic 6 based app fails is that Wine OLE IPicture
doesn't implement DISPID_PICT_RENDER.

WINEDEBUG=+tid,+seh,+relay,+ole,+variant,+snoop wine ./EDWINXP.exe

--- snip ---
...
002b:CALL MSVBVM60.__vbaFpI4() ret=00762ddb
002b:RET  MSVBVM60.__vbaFpI4() retval=00000016 ret=00762ddb
002b:CALL MSVBVM60.__vbaLateIdCallLd() ret=00762df5
002b:trace:ole:OLEPictureImpl_Invoke DISPID_PICT_HEIGHT
002b:trace:ole:OLEPictureImpl_get_Height (0x254bc30)->(0x32f3ac): height is 582
002b:RET  MSVBVM60.__vbaLateIdCallLd() retval=0032f3a4 ret=00762df5
002b:CALL MSVBVM60.__vbaI4Var(0032f3a4) ret=00762dff
002b:RET  MSVBVM60.__vbaI4Var() retval=00000246 ret=00762dff
002b:CALL MSVBVM60.__vbaLateIdCallLd() ret=00762e16
002b:trace:ole:OLEPictureImpl_Invoke DISPID_PICT_WIDTH
002b:trace:ole:OLEPictureImpl_get_Width (0x254bc30)->(0x32f39c): width is 582
002b:RET  MSVBVM60.__vbaLateIdCallLd() retval=0032f394 ret=00762e16
002b:CALL MSVBVM60.__vbaI4Var(0032f394) ret=00762e20
002b:RET  MSVBVM60.__vbaI4Var() retval=00000246 ret=00762e20
002b:CALL MSVBVM60.__vbaLateIdCallLd() ret=00762e37
002b:trace:ole:OLEPictureImpl_Invoke DISPID_PICT_HEIGHT
002b:trace:ole:OLEPictureImpl_get_Height (0x254bc30)->(0x32f38c): height is 582
002b:RET  MSVBVM60.__vbaLateIdCallLd() retval=0032f384 ret=00762e37
002b:CALL MSVBVM60.__vbaI4Var(0032f384) ret=00762e41
002b:RET  MSVBVM60.__vbaI4Var() retval=00000246 ret=00762e41
002b:CALL MSVBVM60.__vbaLateIdCall() ret=00762f94
002b:err:ole:OLEPictureImpl_Invoke invalid dispid 0x6 or wFlags 0x1 
...
002b:Call KERNEL32.RaiseException(c000008f,00000001,00000002,0032f05c)
ret=660d0956
002b:trace:seh:raise_exception code=c000008f flags=1 addr=0x7b83821f
ip=7b83821f tid=002b
002b:trace:seh:raise_exception  info[0]=deadcafe
002b:trace:seh:raise_exception  info[1]=deadcafe
002b:trace:seh:raise_exception  eax=7b825665 ebx=7b88fff4 ecx=deadcafe
edx=0032ef74 esi=0032f05c edi=0032efd0
002b:trace:seh:raise_exception  ebp=0032efb8 esp=0032ef54 cs=0073 ds=007b
es=007b fs=0033 gs=003b flags=00000203
002b:trace:seh:call_vectored_handlers calling handler at 0x74a266fe
code=c000008f flags=1
002b:trace:seh:call_vectored_handlers handler at 0x74a266fe returned 0
002b:trace:seh:call_stack_handlers calling handler at 0x409a46 code=c000008f
flags=1 
...
002b:Call ole32.CreateErrorInfo(0032ea00) ret=660d8360
...
002b:trace:ole:ICreateErrorInfoImpl_SetGUID
(0x1d99978)->({00000000-0000-0000-0000-000000000000})
002b:trace:ole:ICreateErrorInfoImpl_SetSource (0x1d99978): L"EDWINXP"
002b:Call ntdll.RtlAllocateHeap(00110000,00000000,00000014) ret=6895cd97
002b:Ret  ntdll.RtlAllocateHeap() retval=0254c010 ret=6895cd97
002b:trace:ole:ICreateErrorInfoImpl_SetDescription (0x1d99978): L"Object
doesn't support this property or method"
...
--- snip ---

If you fix this, the app starts fine. No need for winetricks dcom braindamage
anymore.

I suspect various other VB related bugs (dupes) might like this ;-)

$ wine --version
wine-1.3.19

$ sha1sum EDWINXP190.ZIP 
1de82fee15531d5bdaab316f70763d274bbf9eb9  EDWINXP190.ZIP

Regards