Uso muchos y muy variados en mis aplicaciones, pero he simplificado un ejemplo con el Shell.Explorer.
Este ejemplo muestra el diálogo y al cerrar el diálogo genera un error sin llegar a mostrar el msginfo
test.prg
- Code: Select all Expand view
- #include 'fivewin.ch'
Function Main()
Local oActiveX
DEFINE DIALOG oDlg RESOURCE 'PRUEBA'
oActiveX := TActiveX():Redefine( 4001, oDlg, "Shell.Explorer" )
ACTIVATE DIALOG oDlg CENTERED ON INIT oActiveX:Do( 'Navigate', 'https://www.google.com' )
Msginfo( 'fin' )
REturn( 0 )
test.rc
- Code: Select all Expand view
#include <windows.h>
PRUEBA DIALOG DISCARDABLE 18, 15, 459, 285
STYLE WS_POPUP|WS_CAPTION|WS_VISIBLE
CAPTION "grafico"
FONT 8, "Segoe UI"
{
CONTROL "ActiveX Control", 4001, "TActiveX", 0x00000000, 45, 0, 324, 276
}
Parte del error:
- Code: Select all Expand view
- Unrecoverable error 6005: Exception error:
Exception Code:C0000005 ACCESS_VIOLATION
Exception Address:02E00428
EAX:0091E9AC EBX:692E3340 ECX:02E00428 EDX:02E1D1D8
ESI:02E00428 EDI:00BDE8DC EBP:00BDE900
CS:EIP:0023:02E00428 SS:ESP:002B:00BDE8D4
DS:002B ES:002B FS:0053 GS:002B
Flags:00010206
Exception Parameters: 00000008 02E00428
CS:EIP: 00 00 00 00 69 00 00 00 A4 E9 91 00 A4 E9 91 00
SS:ESP: 692E1CA8 02E1D1D8 692E1770 00F91BE4 04823F68 03B99784 76C64DBD 00000000 02E1D1D8 00000016 00F914CC 00BDEB58 692DFE55 00F91B60 692574C0 69257440
.
.
.
Called from DIALOGBOX(0) in .\source\classes\dialog.prg
Called from TDIALOG:ACTIVATE(309) in .\source\classes\dialog.prg
Called from MAIN(11) in test.prg
Para compilar :
fichero .bat
- Code: Select all Expand view
- set bcc=bcc77
SET PATH=c:\si\nlen\%bcc%\bin;C:\si\nlen\harbour-bcc77\bin\win\bcc
set HB_USER_CFLAGS=-Ic:\si\nlen\%bcc%\include\windows\crtl -Ic:\si\nlen\%bcc%\include\windows\sdk -Lc:\si\nlen\%bcc%\lib
set HB_USER_LDFLAGS=-Lc:\si\nlen\%bcc%\lib; -Lc:\si\nlen\%bcc%\lib\psdk
c:\si\nlen\harbour-bcc77\bin\win\bcc\hbmk2.exe test.hbp -comp=bcc
fichero .hbp
- Code: Select all Expand view
- -gui
test.prg
test.rc
-optim-
-ldflag+=-aa
-Ic:\si\nlen\fwh2407\include
-Lc:\si\nlen\fwh2407\lib
-lFiveh
-lFivehc
-luxtheme
hbct.hbc
xhb.hbc
hbziparc.hbc
Este mismo ejemplo con la versión 19.06 que estoy usando hasta la fecha funciona a la perfección.
¿Alguna sugerencia?
