Mi ejecutable da error con XBrowse en un pc y en otro no

[jfafive]

Hola de nuevo.

Tengo una duda muy extraña y quisiera saber si alguien puede ayudarme con esto.
Se trata de una aplicación que hace una consulta de datos por XBrowse.

Code: Select all

REDEFINE XBROWSE oXbr ;
   RECSET oRs ID ID_BRW OF oDlg AUTOSORT ;

oXbr:nColDividerStyle     := LINESTYLE_LIGHTGRAY
oXbr:nRowDividerStyle    := LINESTYLE_LIGHTGRAY

oXbr:nMarqueeStyle         := MARQSTYLE_HIGHLROW
oXbr:bClrSelFocus            := { || { CLR_CYAN, CLR_SALMON } }
oXbr:lColDividerComplete := .f.
oXbr:lAllowRowSizing       := .f.
oXbr:lAllowColSwapping   := .t.
oXbr:lAllowColHiding       := .f.
oXbr:lHScroll                   := .f.
oXbr:lVScroll                 := .t.
oXbr:l2007               := .t.
oXbr:lHeader             := .t.


ACTIVATE DIALOG oDlg 
    ON INIT ( oXbr:aCols[1]:cHeader := "Nombre",;
             oXbr:aCols[2]:cHeader := "Apellidos",;
             oXbr:aCols[1]:nWidth  := 70,;
             oXbr:aCols[2]:nWidth  := 110,;
             oXbr:aCols[3]:Hide() ) 

oRs:Close()

Lo extraño es que en mi pc el XBrowse corre bién.
Pero si lo ejecuto en el portatil, me da un error en el código incluido en ON INIT.
Si inhabilito este código, funciona bién en los dos.

¿como es posible que dé un error en un pc y en otro no?
Es el mismo ejecutable el que uso.

El error es del tipo 'Error Array argument...'
Parece que al windows de portatil, no le gusta el código que especifico en la clausula ON INIT.

¿a alguien de ustedes le ha ocurrido algo similar?
Gracias.

[Ricardo Ramirez E.]

Hola...
No das detalles de los sistemas operativos que usas de todas formas... particularmente a mi la TXbrowse funciona de perlas en Windows XP e Vista.

[jfafive]

En los dos equipos tengo Windows XP.
En los dos tengo la Home Edition Versión 2002 ServicePack 3

Un saludo

[Patricio Avalos Aguirre]

hola

Podrías mostrar el error.log para verlo

[QAZWSX2K]

No te faltara rn la laptop algun dll como del tipo prev32.dll que tienen que estar locales donde se ejecuta el programa

[jfafive]

Hola de nuevo!

Lo primero, perdonad por tardar en contestar.
Pero el puente que hemos tenido he preferido desconectar.

Pues si es cierto que el programa lo ejecuto en un laptop donde no hay instalado FWH.
Estoy casi seguro de que no le paso alguna / s DLL.

De modo que voy a hacer pruebas.
Pero como digo, estoy casi seguro de que va a ser eso. Pues probé mi aplicación en el pc de un amigo que tambien tiene FWH y no le dá error ninguno.

Voy a averiguar que DLL's son las que le duelen al XBrowse (jeje)

Un saludito y Gracias por vuestra ayuda.

[Daniel Garcia-Gil]

Saludos...
Aparte de Prev32.dll
Con la version actual la unica DLL que podria usar la xbrowse es para exponer imagenes de diferente formato al BMP, ya que usa la FreeImage.dll para realizar tal operacion, para versiones anteriores no es necesaria niguna otra...

Seria de gran ayuda que colocases el error generado, como te comenta patricio (coloca el error.log)

[jfafive]

Gracias Daniel,

No me olvido del error.
He de reproducirlo en el laptop donde ocurrió.
Pero mi amigo está de viaje y hasta que no vuelva, no podrá publicar el error.

Tomo nota y lo publico en cuanto pueda.
Un saludo,

[jfafive]

Hola a todos!

Ya tengo el log con el error.
Aquí os lo dejo.

Saludoos.

Code: Select all

Application
===========
   Path and name: C:\Documents and Settings\USUARIO\Escritorio\prueba.exe (32 bits)
   Size: 2,081,280 bytes
   Time from start: 0 hours 0 mins 6 secs 
   Error occurred at: 07-05-09, 12:07:38
   Error description: Error BASE/1132  Error de rango: acceso al array
   Args:
     [   1] = A   { ... }
     [   2] = N   4

Stack Calls
===========
   Called from: .\consulta.PRG => (b)FCONSULTA(0)
   Called from:  => TDIALOG:INITIATE(0)
   Called from:  => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOX(0)
   Called from:  => TDIALOG:ACTIVATE(0)
   Called from: .\consulta.PRG => FCONSULTA(0)
   Called from: .\consulta.PRG => (b)FOPENCONSULTAS(0)
   Called from:  => TBTNBMP:CLICK(0)
   Called from:  => TBTNBMP:LBUTTONUP(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from:  => TCONTROL:HANDLEEVENT(0)
   Called from:  => TBTNBMP:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from:  => TMDIFRAME:ACTIVATE(0)
   Called from: .\prueba.PRG => MAIN(0)

System
======
   CPU type:         Intel(R) Pentium(R) M processor 1.60GHz 600 Mhz
   Hardware memory: 383 megs

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

   Compiler version: Harbour devel build 1.1-1 Intl.
   Windows version: 5.1, Build 2600 Service Pack 3

   Windows total applications running: 42
      1 TF_FloatingLangBar_WndTitle
      2 CiceroUIWndFrame
      3 M
      4 Default IME
      5 SysFader
      6 ATKOSD
      7 Logitech_HiddenMessageWnd_E1000FE7-BFF5-4746-9792-218C4CE4851D
      8 QuickCam
      9 Escriba una pregunta
     10 Seleccione que registro quiere consultar.
     11 Selecciona registro a consultar
     12 La prueba Services S.L. - [MDI Child 1]
     13 DDE Server Window
     14 .NET-BroadcastEventWindow.2.0.0.0.378734a.0
     15 Acrobat IEHelper
     16 documentacion - Microsoft Word
     17 MCI command handling window
     18 LogiTray
     19 Connections Tray
     20 medusa_callbackpostmessage_579D20BC-1CFA-46b9-8A42-9D244829ABB5
     21 LVComSXWnd
     22 DIEmWin
     23 McAgent_Main_Hidden_Window
     24 Medidor de energía
     25 HControl
     26 MS_WebcheckMonitor
     27 Touchpad driver tray icon window
     28 TouchPad object helper window
     29 Touchpad driver helper window
     30 Touchpad driver backward compatibility window
     31 SMax4PNP
     32 AEBalloonTip
     33 Agere Systems Soft Modem Monitor
     34 SoundMax4
     35 ATI Tray Icon Application
     36 ATI video bios poller client
     37 SQL Server Configuration Manager
     38 GDI+ Window
     39 Object Explorer
     40 Microsoft SQL Server Management Studio Express
     41 KINGSTON (F:)
     42 Program Manager

Variables in use
================
   Procedure     Type   Value
   ==========================
   (b)FCONSULTA
     Param   1:    O    Class: TDIALOG
     Local   1:    S    
     Local   2:    A    Len:    3
     Local   3:    N    4
     Local   4:    U    
     Local   5:    N    0
   TDIALOG:INITIATE
     Param   1:    N    132822
     Param   2:    N    132826
     Local   1:    O    Class: TDIALOG
     Local   2:    L    .T.
     Local   3:    U    
     Local   4:    U    
     Local   5:    L    .F.
     Local   6:    U    
   TDIALOG:HANDLEEVENT
     Param   1:    N    272
     Param   2:    N    132822
     Param   3:    N    132826
     Local   1:    O    Class: TDIALOG
   DIALOGBOX
     Param   1:    N    4194304
     Param   2:    C    "CONSUL_XBR"
     Param   3:    N    591012
     Param   4:    O    Class: TDIALOG
   TDIALOG:ACTIVATE
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .F.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    L    .F.
     Local   1:    O    Class: TDIALOG
     Local   2:    N    591012
     Local   3:    U    
     Local   4:    U    
     Local   5:    S    
     Local   6:    O    Class: TDIALOG
   FCONSULTA
     Param   1:    O    Class: TDIALOG
     Param   2:    O    Class: TOLEAUTO
     Param   3:    O    Class: TOLEAUTO
     Local   1:    O    Class: TOLEAUTO
     Local   2:    O    Class: TXBROWSE
     Local   3:    C    "SELECT parcela, nombre, apellidos FROM datos_personales"
     Local   4:    O    Class: TCHECKBOX
     Local   5:    O    Class: TCOMBOBOX
     Local   6:    C    "Todos"
     Local   7:    L    .F.
     Local   8:    O    Class: TGET
     Local   9:    C    "                              "
     Local  10:    O    Class: TGET
     Local  11:    C    "                                                  "
     Local  12:    O    Class: TGET
     Local  13:    C    "                                                                                                    "
     Local  14:    O    Class: TGET
     Local  15:    C    "         "
     Local  16:    O    Class: TGET
     Local  17:    C    "         "
     Local  18:    O    Class: TGET
     Local  19:    C    "         "
     Local  20:    O    Class: TGET
     Local  21:    C    "         "
   (b)FOPENCONSULTAS
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:CLICK
     Local   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
     Param   1:    N    7
     Param   2:    N    60
     Local   1:    O    Class: TBTNBMP
     Local   2:    U    
     Local   3:    L    .T.
   TWINDOW:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    458812
   TCONTROL:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    458812
     Local   1:    O    Class: TBTNBMP
     Local   2:    U    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    458812
     Local   1:    O    Class: TBTNBMP
   _FWH
     Param   1:    N    458812
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    458812
     Param   5:    N    274
     Local   1:    O    Class: TBTNBMP
   WINRUN
     Param   1:    N    591012
   TMDIFRAME:ACTIVATE
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    B    {|| ... }
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    U    
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TMDIFRAME
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    O    Class: TMDIFRAME
     Local   2:    O    Class: TICON
     Local   3:    U    
     Local   4:    U    
     Local   5:    O    Class: TBAR
     Local   6:    O    Class: TFONT
     Local   7:    O    Class: TBRUSH
     Local   8:    O    Class: TBITMAP
     Local   9:    O    Class: TBTNBMP
     Local  10:    O    Class: TBTNBMP
     Local  11:    O    Class: TBTNBMP
     Local  12:    O    Class: TBTNBMP
     Local  13:    O    Class: TBTNBMP
     Local  14:    O    Class: TBTNBMP
     Local  15:    O    Class: TBTNBMP
     Local  16:    O    Class: TBTNBMP
     Local  17:    O    Class: TBTNBMP
     Local  18:    U    
     Local  19:    U    
     Local  20:    C    "                                                  "
     Local  21:    N    384.00
     Local  22:    N    279.00

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

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

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 TOLEAUTO
     4 HBOBJECT
     5 TWINDOW
     6 TCONTROL
     7 TGET
     8 TFONT
     9 TICON
    10 TBRUSH
    11 TMDIFRAME
    12 TMENU
    13 TMENUITEM
    14 TMDICLIENT
    15 TBAR
    16 TRECT
    17 TBTNBMP
    18 TMSGBAR
    19 TBITMAP
    20 TDIALOG
    21 TMDICHILD
    22 TTABS
    23 TSAY
    24 GET
    25 TCLIPGET
    26 TCHECKBOX
    27 TCOMBOBOX
    28 TXBROWSE
    29 TSCROLLBAR
    30 TXBRWCOLUMN
    31 TREG32

Memory Analysis
===============
      364 Static variables

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