pasando de xharbour a harbour (SOLUCIONADO)

[Patricio Avalos Aguirre]

Estimados, ya tengo mi aplicacion en un 90% listo funcionando en harbour

pero los modulos que utilizan la clase tsbrowse sale error en el programa, al parecer el la funcion en c tsdrawsel

si alguien me pudiera enviar la clase tsbrowse9 para harbour

Harbour Build Info
---------------------------
Version: Harbour 3.2.0dev (r1307082134)
Compiler: Borland C++ 5.8.2 (32-bit)
Platform: Windows 7 6.1.7601 Service Pack 1
PCode version: 0.3
ChangeLog last entry: 2013-07-08 23:34 UTC+0200 Prz
czta.onet.pl)
ChangeLog ID: 61aabc50cda41ba5c64d55b6452fd45345baf
Built on: Jul 16 2013 16:00:54
Build options: (Clipper 5.3b) (Clipper 5.x undoc)

Code: Select all  Expand view

Error irrecuperable 6005: Exception error:

    Exception Code:C0000005
    Exception Address:0043BDDB
    EAX:0000001B  EBX:00000000  ECX:0000001A  EDX:003501DC
    ESI:00000000  EDI:0012E550  EBP:00000001
    CS:EIP:001B:0043BDDB  SS:ESP:0023:0012E498
    DS:0023  ES:0023  FS:003B  GS:0000
    Flags:00210202
    CS:EIP: F6 00 80 74 11 6A 1B E8 4D D5 05 00 59 83 F8 01
    SS:ESP: 001A063C 00000006 00000000 0000002A 00000000 00000000 00000000 00000000 470A131E 0000000F 00000000 00000001 00000000 00000002 0000001D 0000000F

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...

Modules:
0x00400000 0x0067F000 C:\unidad_d\apl\PRGS\OCARANZALS\dbf\wcta.exe
0x77680000 0x0013C000 C:\Windows\SYSTEM32\ntdll.dll
0x76C50000 0x000D4000 C:\Windows\system32\kernel32.dll
0x759A0000 0x0004B000 C:\Windows\system32\KERNELBASE.dll
0x12170000 0x00163000 C:\unidad_d\apl\PRGS\OCARANZALS\dbf\ACE32.DLL
0x74B50000 0x00009000 C:\Windows\system32\VERSION.dll
0x75B50000 0x000AC000 C:\Windows\system32\msvcrt.dll
0x6FB50000 0x00012000 C:\Windows\system32\MPR.dll
0x718F0000 0x00007000 C:\Windows\system32\WSOCK32.dll
0x772D0000 0x00035000 C:\Windows\system32\WS2_32.dll
0x77170000 0x000A2000 C:\Windows\system32\RPCRT4.dll
0x777C0000 0x00006000 C:\Windows\system32\NSI.dll
0x777E0000 0x000C9000 C:\Windows\system32\USER32.dll
0x77630000 0x0004E000 C:\Windows\system32\GDI32.dll
0x77220000 0x0000A000 C:\Windows\system32\LPK.dll
0x75A60000 0x0009D000 C:\Windows\system32\USP10.dll
0x75C00000 0x000A0000 C:\Windows\system32\ADVAPI32.dll
0x75FD0000 0x00019000 C:\Windows\SYSTEM32\sechost.dll
0x6FAE0000 0x00051000 C:\Windows\system32\WINSPOOL.DRV
0x745B0000 0x0019E000 C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e6975e2bd6f2b2\COMCTL32.DLL
0x76F50000 0x00057000 C:\Windows\system32\SHLWAPI.dll
0x77250000 0x0007B000 C:\Windows\system32\COMDLG32.DLL
0x75FF0000 0x00C4A000 C:\Windows\system32\SHELL32.dll
0x74450000 0x00005000 C:\Windows\system32\MSIMG32.DLL
0x74410000 0x00032000 C:\Windows\system32\WINMM.DLL
0x75CA0000 0x0015C000 C:\Windows\system32\OLE32.DLL
0x77310000 0x0008F000 C:\Windows\system32\OLEAUT32.DLL
0x66D30000 0x0001C000 C:\Windows\system32\OLEDLG.DLL
0x77230000 0x0001F000 C:\Windows\system32\IMM32.DLL
0x773A0000 0x000CC000 C:\Windows\system32\MSCTF.dll
0x74F90000 0x00044000 C:\Windows\system32\DNSAPI.dll
0x731C0000 0x0001C000 C:\Windows\system32\IPHLPAPI.DLL
0x731B0000 0x00007000 C:\Windows\system32\WINNSI.DLL
0x6F340000 0x00006000 C:\Windows\system32\rasadhlp.dll
0x74360000 0x00040000 C:\Windows\system32\uxtheme.dll
0x73F70000 0x00013000 C:\Windows\system32\dwmapi.dll
0x75620000 0x0000C000 C:\Windows\system32\CRYPTBASE.dll
0x75580000 0x0001B000 C:\Windows\system32\SspiCli.dll
0x1E940000 0x001B4000 C:\unidad_d\apl\PRGS\OCARANZALS\dbf\adsloc32.dll
0x10000000 0x00104000 C:\unidad_d\apl\PRGS\OCARANZALS\dbf\freeimage.dll

Called from TSDRAWCELL(0)
Called from TSBROWSE:DRAWHEADERS(2492) in ..\Source\Classes\TSBrowse.prg
Called from (b)TSBROWSE(328) in ..\Source\Classes\TSBrowse.prg
Called from TSBROWSE:DRAWFOOTERS(0) in ..\Source\Classes\TSBrowse.prg
 

[Antonio Linares]

Patricio,

Que código hay en Called from TSDRAWCELL(0) ?

[Patricio Avalos Aguirre]

Hola Antonio gracias por responder
lo he solucionado gracias Juan(jcaro) que me envio la ultima clase, pero solo un percanse al compilar
la funcion en C

esta instruccion

HB_FUNC( CHANGESYSCOLORS ) // ( PARAMS ) ( nItems, aItems, aColors )
{
int iEle, iItems = hb_parni( 1 ) ;
int aiElemen[ 28 ] ;
COLORREF alColors[ 28 ] ;

for( iEle = 0 ; iEle <= ( iItems - 1 ) ; iEle++ )
{
aiElemen[ iEle ] = hb_parni( 2, ( iEle + 1 ) ) ;
alColors[ iEle ] = hb_parnl( 3, ( iEle + 1 ) ) ;
}

SetSysColors( iItems, aiElemen, alColors ) ;
}

Aparece este error

Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
..\source\function\TSBFUNCS.C:
Error E2227 ..\source\function\TSBFUNCS.C 317: Extra parameter in call to hb_parni in function HB_FUN_CHANGESYSCOLORS
Error E2227 ..\source\function\TSBFUNCS.C 318: Extra parameter in call to hb_parnl in function HB_FUN_CHANGESYSCOLORS
*** 2 errors in Compile ***

al parecer segun entiendo que tiene un parametro adicional si que se lo ha sacado y funciona, pero no se en que puede afectar

aiElemen[ iEle ] = hb_parni( 2 ); // ( iEle + 1 ) ) ;
alColors[ iEle ] = hb_parnl( 3 );// ( iEle + 1 ) ) ;

[Antonio Linares]

Patricio,

Cambia esas líneas asi:

aiElemen[ iEle ] = hb_parvni( 2, ( iEle + 1 ) ) ;
alColors[ iEle ] = hb_parvnl( 3, ( iEle + 1 ) ) ;

No puedes quitar el segundo parámetro ó no hará lo mismo. En Harbour es preciso llamar a esas funciones cuando hay que suministrarles un segundo parámetro. La "v" precisamente viene de parámetros "v"ariables

[Patricio Avalos Aguirre]

gracias antonio

ahora compila sin ningun error