topic-42837

Board index FiveWin para Harbour/xHarbour error en tiempo de ejecución

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

error en tiempo de ejecución
Posted: Sat Feb 25, 2023 01:21 PM

Hola compañeros cuando corro un programa que tiene un error no detectado al compilar

Cuando se ejecuta no tira el error sino que directamente se cuelga el programa. No genera el archivo error.log

Me pasó con otras equivocaciones de programación y lo mismo

Lo probé con xharbour y harbour3.2 . Con windows 32 y 64.

Uso fwh 2017 y bcc70

Alguna idea del porque del problema

PD: encontré que había que anular unas lineas del errorsys, compilar el errorsys de fwh, etc pero sigue sin funcionar

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: error en tiempo de ejecución
Posted: Sat Feb 25, 2023 01:31 PM

Puedes mirar el archivo hb_out.log, ahi te dirá que es lo que está pasando....

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: error en tiempo de ejecución
Posted: Sat Feb 25, 2023 02:17 PM

surGom wrote: PD: encontré que había que anular unas lineas del errorsys, compilar el errorsys de fwh, etc pero sigue sin funcionar

No creo que sea buena idea quitar lineas del errorsys.prg usado para el análisis y gestión de errores para solucionar tu problema, simplemente lo estarás "enmascarando"

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: error en tiempo de ejecución
Posted: Sat Feb 25, 2023 11:24 PM

Hola no quite nada del errorsys uso el de fivewin, solo hice un intento para probar, en cuanto al hb_out.log directamente no lo crea. Les aclaro que hasta hace un tiempo funcionaba bien tanto en xharbour y en harbour.
Para que se den cuenta el error es muy simple

Code (fw): Select all Collapse

    IF aElectro:ldatonota
         FOR EACH z in (aElectro:adet - 1 )        // aquí esta el error
              IF !Empty( z[ 1 ] )
              IF yapar( oDatonota )

Directamente se cuelga el programa, hice otras pruebas y es lo mismo

Luis

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: error en tiempo de ejecución
Posted: Sun Feb 26, 2023 04:16 AM

Hola estoy usando para compilar el xedit, active el debug y copié en dónde esta el programa, fwdbg.dll de fwh y crea el hb_out.log. No abre el programa y da este error. La máquina tiene w10 64 bytes, la dll es la de 32

Code (fw): Select all Collapse

------------------------------------------------------------------------
Application Internal Error - K:\fivexhar\fivexhar.exe
Terminated at: 2023-02-26 00:54:58
Unrecoverable error 6005: Exception error:

    Exception Code:C0000005 ACCESS_VIOLATION
    Exception Address:00414524
    EAX:0019F478  EBX:00000000  ECX:00000003  EDX:02940884
    ESI:00000000  EDI:00000000  EBP:0019F4C4
    CS:EIP:0023:00414524  SS:ESP:002B:0019F3DC
    DS:002B  ES:002B  FS:0053  GS:002B
    Flags:00010246
    Exception Parameters: 00000000 0000000C
    CS:EIP: FF 73 0C E8 54 4D 1A 00 8B F0 85 F6 74 07 89 73
    SS:ESP: 0019F478 008412E1 00000000 00A0B2A0 00D90000 02EE0004 0401BC01 751911DC 75204954 FFBC16F2 FFFFFFFF 00001944 0401BC01 02E909A0 00000000 000016F2

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...
    00414524 0019F4C4   0019F4E0 0046AEF0 00000035 00000000 02944CE4 00000000 00000000
    0046AEF0 0019F4E0   0019F5F4 00464CFA 00000003 0090EF40 00000000 00A0B2A0 00A0B2A0 0019F530 0019F50C 00485D5D
    00464CFA 0019F5F4   0019F604 00454880 0084094B 0083E7F8
    00454880 0019F604   0019F620 0046AEF0 0000002F 00000000 02944CE4 00000000 0000031C
    0046AEF0 0019F620   0019F734 00464CFA 00000004 00A0B2A0 FFFFFFFF 028EBDD4 0019F64C 00482771 02EC6B74 00A0B2A0
    00464CFA 0019F734   0019F768 0046B269 0090EF35 0090A4A8 02940824 00000004 00190004 0046B1BC 0000002A 00000000
    0046B269 0019F768   0019F79C 00478DC7 00000004 00941CF0 00000000 00918F8C 0046B0AD 00A0B2A0 00000022 00000000
    00478DC7 0019F79C   0019F8B0 00464DB8 00000003 0093A273 00000000 00A0B2A0 028EBEB4 028EBF54 0019F7D4 0046C363
    00464DB8 0019F8B0   0019F8C0 0045FC80 00941C5C 0091771C
    0045FC80 0019F8C0   0019F8DC 0046AEF0 0000001D 00000000 02944FD4 00000000 000035E2
    0046AEF0 0019F8DC   0019F9F0 00464CFA 00000002 00A0B2A0 FFFFFFFF 028EBB94 00000000 028EBE34 0019F914 0046C363
    00464CFA 0019F9F0   0019FA24 0046B269 0093A26C 0091771C 029407E4 00000002 00190002 0046B1BC 0000001A 00000000
    0046B269 0019FA24   0019FA58 00478DC7 00000002 0082C0D8 00000000 00829B80 0046B0AD 00A0B2A0 0000000C 00000000
    00478DC7 0019FA58   0019FB6C 00464DB8 00000001 0082AE25 00000000 008295C0 00A0B2A0 76EC7252 76EC8D3B 274A2EAB
    00464DB8 0019FB6C   0019FB7C 00452ED0 0082BA47 00829570
    00452ED0 0019FB7C   0019FB9C 0046B0AD 00A0B2A0 00000003 00000000 0292BB1C 007F0004 00000133
    0046B0AD 0019FB9C   0019FCB0 00464DB8 00000000 0290BCEC 0290BB6C 00829570 00A0B604 00DD1580 0019FE00 76EF2C5C
    00464DB8 0019FCB0   0019FCC0 00452E88 0082ADD4 00829570
    00452E88 0019FCC0   0019FCE0 0046B00D 028F1C6C 00000001 00000000 00000000 00000000 00000059
    0046B00D 0019FCE0   0019FD00 004614C3 00000006 00000005 00000000 028F1C6C 00000000 02972504


Modules:
00400000 006FB000 K:\fivexhar\fivexhar.exe
76E80000 001A4000 C:\Windows\SYSTEM32\ntdll.dll
750A0000 000F0000 C:\Windows\System32\KERNEL32.DLL
75FD0000 0021C000 C:\Windows\System32\KERNELBASE.dll
75580000 0007B000 C:\Windows\System32\ADVAPI32.DLL
75600000 000BF000 C:\Windows\System32\msvcrt.dll
76260000 00076000 C:\Windows\System32\sechost.dll
75EB0000 000BE000 C:\Windows\System32\RPCRT4.dll
708B0000 00006000 C:\Windows\SYSTEM32\MSIMG32.DLL
75070000 00023000 C:\Windows\System32\GDI32.dll
75190000 00018000 C:\Windows\System32\win32u.dll
752F0000 000AF000 C:\Windows\System32\COMDLG32.DLL
751B0000 000E0000 C:\Windows\System32\gdi32full.dll
762E0000 00281000 C:\Windows\System32\combase.dll
74D40000 00120000 C:\Windows\System32\ucrtbase.dll
75870000 0007B000 C:\Windows\System32\msvcp_win.dll
74FE0000 00087000 C:\Windows\System32\shcore.dll
756C0000 0019D000 C:\Windows\System32\USER32.dll
75290000 00045000 C:\Windows\System32\SHLWAPI.dll
741A0000 00008000 C:\Windows\SYSTEM32\VERSION.DLL
758F0000 005B7000 C:\Windows\System32\SHELL32.dll
707A0000 00073000 C:\Windows\SYSTEM32\WINSPOOL.DRV
70B60000 00210000 C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.19041.1110_none_a8625c1886757984\COMCTL32.DLL
76D80000 000E3000 C:\Windows\System32\OLE32.DLL
74F40000 00096000 C:\Windows\System32\OLEAUT32.DLL
70E30000 00028000 C:\Windows\SYSTEM32\WINMM.DLL
70990000 00167000 C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.19041.2251_none_d9513b1fe1046fc7\GDIPLUS.DLL
6ABD0000 0002C000 C:\Windows\SYSTEM32\OLEDLG.DLL
76D30000 00026000 C:\Windows\System32\IMM32.DLL
029A0000 0009D000 K:\fivexhar\FWDbg.dll

Called from GDIP_FROMHBITMAP(0)
Called from WNDREADPALBMPEX(796) in .\source\function\IMGTXTIO.PRG
Called from (b)TWINDOW(544) in .\source\classes\WINDOW.PRG
Called from TXBROWSE:READPALBMPEX(0) in .\source\classes\WINDOW.PRG
Called from FNADDBITMAP(13794) in .\source\classes\XBROWSE.PRG
Called from (b)TXBRWCOLUMN(10812) in .\source\classes\XBROWSE.PRG
Called from TXBRWCOLUMN:ADDRESOURCE(0) in .\source\classes\XBROWSE.PRG
Called from TDBG:ACTIVATE(307) in .\source\classes\FWDBG.PRG
Called from __DBGENTRY(89) in .\source\classes\FWDBG.PRG
Called from RDDINIT$(4) in K:\fivexhar\Source\rddsys.prg
------------------------------------------------------------------------

Con la fwdbg64.dll tampoco entra al programa y crea correctamente el error.log diciendo esto

Code (fw): Select all Collapse

Application
===========
   Path and name: K:\fivexhar\fivexhar.exe (32 bits)
   Size: 7,230,464 bytes
   Compiler version: Harbour 3.2.0dev (r2004201301)
   FiveWin  version: FWH 17.09
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 02/26/23, 01:02:10
   Error description: Error FiveWin/3  Cannot create Dialog Box: 
                      Resource: DBGCONFIG

Stack Calls
===========
   Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 569 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 321 )
   Called from: .\source\classes\FOLDER.PRG => TFOLDER:ADDITEM( 560 )
   Called from: .\source\classes\FWDBG.PRG => SETUPBAR( 1040 )
   Called from: .\source\classes\FWDBG.PRG => (b)TDBG_ACTIVATE( 559 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 714 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 331 )
   Called from: .\source\classes\FWDBG.PRG => TDBG:ACTIVATE( 559 )
   Called from: .\source\classes\FWDBG.PRG => __DBGENTRY( 89 )
   Called from: K:\fivexhar\Source\rddsys.prg => RDDINIT$( 4 )

System
======
   CPU type: Intel(R) Core(TM) i5-10400 CPU @ 2.90GHz 2904 Mhz
   Hardware memory: 8022 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 5
      1 ,                                                                                                     
      2 , C:\Windows\System32\shcore.dll                                                                      
      3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.19041.1110_none_a8625c 
      4 , K:\fivexhar\fivexhar.exe                                                                            
      5 GDI+ Window (xEdit.exe), C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.19041.2251_none_d9513b1fe1046f 

Variables in use
================
   Procedure     Type   Value
   ==========================
   CREATEDLGERROR
     Param   1:    O    Class: ERROR
   TDIALOG:ACTIVATE
     Param   1:    O    Class: TDIALOG
     Local   1:    C    "DBGCONFIG"
     Local   2:    C    "                      "
   TFOLDER:ADDITEM
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .F.
     Param   5:    B    {|| ... }
     Param   6:    L    .F.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Local   1:    N    2557380
   SETUPBAR
     Param   1:    C    "&Config"
     Param   2:    C    "DBGCONFIG"
     Param   3:    B    {|| ... }
     Local   1:    U    
     Local   2:    O    Class: TDIALOG
     Local   3:    O    Class: TFOLDER
   (b)TDBG_ACTIVATE
     Param   1:    O    Class: TDBG
     Local   1:    N    0
   TDIALOG:INITIATE
     Param   1:    O    Class: TDIALOG
   TDIALOG:ACTIVATE
     Local   1:    U    
     Local   2:    U    
     Local   3:    L    .T.
     Local   4:    U    
     Local   5:    U    
     Local   6:    L    .F.
     Local   7:    U    
     Local   8:    U    
   TDBG:ACTIVATE
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .F.
     Param   5:    U    
     Param   6:    L    .F.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Local   1:    N    0
   __DBGENTRY
     Local   1:    O    Class: TDBG
     Local   2:    O    Class: TDBG
     Local   3:    A    Len:    1
     Local   4:    A    Len:    1
     Local   5:    A    Len:    1
     Local   6:    A    Len:    1
     Local   7:    A    Len:    1
     Local   8:    A    Len:    1
     Local   9:    A    Len:    1
     Local  10:    C    "01:02:10"
     Local  11:    N    0
     Local  12:    A    Len:   47
   RDDINIT$
     Param   1:    N    7
     Param   2:    P    0x28F7B5C
     Param   3:    N    1
     Param   4:    A    Len:    1
     Param   5:    A    Len:    1
     Param   6:    A    Len:    0
     Local   1:    N    4194304

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
   DBFNTX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TDBG
     5 TCURSOR
     6 TFONT
     7 TWINDOW
     8 TDIALOG
     9 TBRUSH
    10 TCONTROL
    11 TICON
    12 TXBROWSE
    13 TREG32
    14 TXBRWCOLUMN
    15 TFOLDER
    16 TSPLITTER
    17 TSCROLLBAR
    18 TBTNBMP
    19 TCLIPBOARD
    20 TINI
    21 TMENU
    22 TMENUITEM
    23 TBAR
    24 TRECT
    25 TSAY
    26 TSTRUCT

Memory Analysis
===============
      1375 Static variables

   Dynamic memory consume:
      Actual  Value:    2752512 bytes
      Highest Value:    2752512 bytes

En ambos casos los errores son al querer usar el exe, si quito el debug del xedit y genero de nuevo el programa funciona sin problemas hasta que encuentra un error y directamente se cuelga sin ninguna información.

Y lamentablemente que no funcione el manejo de errores en tiempo de ejecución, cuando lo manejan al programa los usuarios, es muy complicado solucionar los problemas rápidamente.

Luis

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: error en tiempo de ejecución
Posted: Sun Feb 26, 2023 08:38 AM

Estimado Luis,

Que tipo de valor contiene aElectro:adet ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: error en tiempo de ejecución
Posted: Sun Feb 26, 2023 01:00 PM

Antonio

AAdd( aElectro:adet,{ Space(150), 0, .T.} )

Pero generé otros errores para probar y no llega nunca a generar el error.log, el programa se congela y la única manera de salir es por el administrador de tareas de Windows.

Luis

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: error en tiempo de ejecución
Posted: Sun Feb 26, 2023 02:04 PM

Para mas información les envío los archivos con que compilo

Code (fw): Select all Collapse

<?xml version="1.0"?>
<Project>
   <Type Value="exe"/>
   <Description Value="fivexhar"/>
   <Output Value="fivexhar.exe"/>
   <Environment Value="fivehar"/>
   <MainModule Value="origen.prg"/>
   <MultipleInstances Value="Y"/>
   <XPManifest Value="Y"/>
   <Icon Value=""/>
   <Parameters Value=""/>
   <Version>
      <VersionInfo Value="N"/>
      <Version Value="1.0"/>
      <Release Value="0"/>
      <Build Value="0"/>
      <Company Value=""/>
      <CopyRight Value=""/>
      <TradeMarks Value=""/>
      <Comments Value=""/>
   </Version>
   <Directories>
      <SourceDir Value="Source"/>
      <IncludeDir Value="Include"/>
      <ResourceDir Value="Resource"/>
      <ObjDir Value="Obj"/>
   </Directories>
   <Options>
      <AutomaticMemvarDeclaration Value="N"/>
      <DebugInfo Value="N"/>
      <SuppressLineNumberInformation Value="N"/>
      <SuppressShortcutting Value="N"/>
      <WarnningLevel Value="1"/>
      <MoreOptions Value=""/>
      <MoreCOpt Value=""/>
      <MapFile Value="N"/>
      <ConsoleMode Value="N"/>
      <MoreLinkOpt Value=""/>
   </Options>
   <Export>
      <Dir Value=""/>
      <Source Value="Y"/>
      <Exe Value="N"/>
      <Bin Value="N"/>
      <Resource Value="Y"/>
      <ResourceAll Value="N"/>
      <ErrorLog Value="N"/>
      <Subprojects Value="Y"/>
   </Export>
   <Clean>
      <All Value="N"/>
   </Clean>
   <FinalExe>
      <FullCompile Value="N"/>
      <UpxCompress Value="Y"/>
      <CompressFlags Value=""/>
      <Installer Value="N"/>
      <InstallerFlags Value=""/>
      <TlbInfo Value="N"/>
   </FinalExe>
   <VCS>
      <Type Value="None"/>
   </VCS>
   <Files>
      <File Filename="origen.prg"/>
      etc,etc

      <File Filename="inforsimi.prg"/>
   </Files>
   <Libraries>
      <Library Filename="[project]LIB\wbrowse.lib"/>
      <Library Filename="[project]LIB\text32.lib"/>
      <Library Filename="[project]LIB\filexls.lib"/>
      <Library Filename="[project]LIB\barlib.lib"/>
      <Library Filename="K:\libharb\tpdf\tpdf.lib"/>
      <Library Filename="[user]FiveHC.lib"/>
      <Library Filename="[user]FiveH.lib"/>
      <Library Filename="[Harbour]hbextern.lib"/>
      <Library Filename="[Harbour]hbdebug.lib"/>
      <Library Filename="[Harbour]hbvm.lib"/>
      <Library Filename="[Harbour]hbrtl.lib"/>
      <Library Filename="[Harbour]hblang.lib"/>
      <Library Filename="[Harbour]hbcpage.lib"/>
      <Library Filename="[Harbour]gtcgi.lib" Link="N"/>
      <Library Filename="[Harbour]gtpca.lib" Link="N"/>
      <Library Filename="[Harbour]gtstd.lib" Link="N"/>
      <Library Filename="[Harbour]gtwin.lib" Link="N"/>
      <Library Filename="[Harbour]gtwvt.lib" Link="N"/>
      <Library Filename="[Harbour]gtgui.lib"/>
      <Library Filename="[Harbour]hbrdd.lib"/>
      <Library Filename="[Harbour]hbuddall.lib" Link="N"/>
      <Library Filename="[Harbour]hbusrrdd.lib"/>
      <Library Filename="[Harbour]rddntx.lib"/>
      <Library Filename="[harbour]hbct.lib"/>
      <Library Filename="[Harbour]rddcdx.lib"/>
      <Library Filename="[harbour]xhb.lib"/>
      <Library Filename="[Harbour]hbziparc.lib"/>
      <Library Filename="[Harbour]rddnsx.lib" Link="N"/>
      <Library Filename="[Harbour]rddfpt.lib"/>
      <Library Filename="[Harbour]rddads.lib" Link="N"/>
      <Library Filename="[harbour]png.lib"/>
      <Library Filename="[Harbour]ace32.lib" Link="N"/>
      <Library Filename="[Harbour]hbhsx.lib" Link="N"/>
      <Library Filename="[Harbour]hbsix.lib"/>
      <Library Filename="[Harbour]hbmacro.lib"/>
      <Library Filename="[Harbour]hbcplr.lib"/>
      <Library Filename="[Harbour]hbpp.lib"/>
      <Library Filename="[Harbour]hbcommon.lib"/>
      <Library Filename="[Harbour]hbmainwin.lib" Link="N"/>
      <Library Filename="[Harbour]hbmxml.lib"/>
      <Library Filename="[Harbour]mxml.lib"/>
      <Library Filename="[Harbour]hbpcre.lib"/>
      <Library Filename="[Harbour]hbwin.lib"/>
      <Library Filename="[Harbour]hbmzip.lib"/>
      <Library Filename="[Harbour]minizip.lib"/>
      <Library Filename="[Harbour]hbzlib.lib"/>
      <Library Filename="[bcc]c0w32.obj"/>
      <Library Filename="[bcc]psdk\odbc32.lib"/>
      <Library Filename="[bcc]psdk\msimg32.lib"/>
      <Library Filename="[bcc]cw32.lib"/>
      <Library Filename="[bcc]uuid.lib"/>
      <Library Filename="[bcc]PSDK\nddeapi.lib"/>
      <Library Filename="[bcc]ws2_32.lib"/>
      <Library Filename="[bcc]PSDK\iphlpapi.lib"/>
      <Library Filename="[bcc]import32.lib"/>
      <Library Filename="[bcc]PSDK\psapi.lib"/>
      <Library Filename="[bcc]PSDK\rassapi.lib"/>
      <Library Filename="[bcc]PSDK\GdiPlus.lib"/>
      <Library Filename="[bcc]PSDK\shell32.lib"/>
      <Library Filename="[bcc]wininet.lib" Link="N"/>
   </Libraries>
</Project>

Muchas Gracias

Luis

FiveTech Support Forums

Continue the discussion