Btnget para Harbour

[Ramón J.]

Hola, foro:

Estoy intentando hacerme con la clase Btnget para Harbour, pero no la encuentro, ya que las dos únicas que he visto son las que están en estas direcciones:

- http://www.box.net/shared/lck9effuyn

- http://www.fivewin.com.br/exibedicas.asp?id=587

Pero resulta que ambas son para xHarbour y además, en el caso de la primera, utiliza libreria de la que no dispongo, por incorporar la clase calendar de una conocida marca.

Alguien podría decirme dónde puedo encontrar la Btnget para Harbour?

Gracias

[mmercado]

Alguien podría decirme dónde puedo encontrar la Btnget para Harbour?

Hola Ramón:

Descarga este archivo y podrás construír la librería para Harbour o para xHarbour con tus propias versiones de FWH/(x)Harbour

http://www.box.net/shared/v1w9u1iww0

Saludos.

Manuel Mercado

[fdominguezs]

Manuel, porque al compilar el test para xharbour, al probarlo y presionar cualquier tecla de numero o alfabetica me da el siguiente error:

Application
===========
Path and name: C:\BTNGET32\SAMPLES\TESTXH.Exe (32 bits)
Size: 502,784 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 27/05/08, 22:40:49
Error description: Error BASE/1070 Argument error: ==
Args:
[ 1] = C
[ 2] = N 0

Stack Calls
===========
Called from: TGET.PRG => TBTNGET:KEYDOWN(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: TGET.PRG => TBTNGET:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: test.prg => MAIN(34)

System
======
CPU type: Intel(R) Pentium(R) D CPU 3.00GHz 3000 Mhz
Hardware memory: 1014 megs

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

Compiler version: xHarbour build 1.1.0 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 65
1 M
2 Default IME
3 Menú Inicio
4 CiceroUIWndFrame
5 Menú desplegable de Autosugerir
6 SysFader
7 S/PDIF IN/OUT Settings
8 Set Device Type
9 Mixer ToolBox
10 Configuración de conector
11 TF_FloatingLangBar_WndTitle
12 CL RC Engine3 Dummy Winidow
13 TBtnGet con colores - desde código
14 VERCE v4.3, C:\BtnGet32\SAMPLES\TESTXH.VRC
15 C:\BTNGET32\SAMPLES\TESTXH.Exe
16 El Universal, el periódico de México líder en noticias y clasificados. - Windows Internet Explorer
17 MCI command handling window
18 DDE Server Window
19 DAEMON Tools Panel
20 Skype™
21 Actions
22 MSGWIN
23 No title
24 CAPIWorker
25 TrayIconManager
26 ChatManager
27 Frzstate2k
28 WinMySQLadmin 1.4
29 Interval Query Setup
30 WinMySQLadmin Quick Setup
31 WinMySQLAdmin 1.4
32 C:\Documents and Settings\fdominguezs\Datos de programa\Skype
33 SkyLibEx
34 TVR Schedule
35 DTS Connect
36 Dolby Home Threater
37 Advance Setting
38 TOOLBOX
39 Load EQ Preset
40 DeleteEQ
41 Save EQ
42 Realtek HD Audio Manager
43 BackMain_Form
44 Administrador de sonido Realtek HD
45 Connections Tray
46 Medidor de energía
47 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}
48 VerbosePageForm
49 ElbyTrayWindow
50 MS_WebcheckMonitor
51 LogMeIn: actualización de versión
52 LogMeIn Estado
53 LogMeInGui
54 HPDVD_Wnd
55 Notification Wnd for RNAdmin
56 HkWndName
57 PersistWndName
58 igfxtrayWindow
59 EpfwWindow
60 EKrnSvcWindow
61 Df5serv
62 STM3 TrayIcon
63 ESET Smart Security
64 GDI+ Window
65 Program Manager

Variables in use
================
Procedure Type Value
==========================
TBTNGET:KEYDOWN
Param 1: N 72
Param 2: N 2293761
Local 1: O Class: TGET
Local 2: U
Local 3: U
Local 4: U
Local 5: N -1
Local 6: C ""
Local 7: N 0
Local 8: U
Local 9: N 0
TWINDOW:HANDLEEVENT
Param 1: N 256
Param 2: N 72
Param 3: N 2293761
TCONTROL:HANDLEEVENT
Param 1: N 256
Param 2: N 72
Param 3: N 2293761
Local 1: O Class: TGET
TBTNGET:HANDLEEVENT
Param 1: N 256
Param 2: N 72
Param 3: N 2293761
Local 1: O Class: TGET
Local 2: U
_FWH
Param 1: N 2293761
Param 2: N 256
Param 3: N 72
Param 4: N 2293761
Param 5: N 1
Local 1: O Class: TGET
DIALOGBOXINDIRECT
Param 1: N 4194304
Param 2: C "€ È€ Ÿ L T B t n G e t c o n c o l o r e s - d e s d e c ¾ d i g o „

[Ramón J.]

Gracias, Manuel. Voy intentarlo

Saludos

[mmercado]

Manuel, porque al compilar el test para xharbour, al probarlo y presionar cualquier tecla de numero o alfabetica me da el siguiente error:

A mí me funciona correctamente, trata de construír el ejecutable de Test.prg con este batch Buildh.bat:

Code: Select all

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for Harbour 8.02 - Feb. 2008            Harbour development power  ³Ü
ECHO ³ (c) FiveTech, 1993-2008    for Microsoft Windows 95/98/NT/2000/ME/XP/Vista ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

set hdir=c:\harbour
set fwh=c:\FWH
set bcdir=c:\bcc55

%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r %1

echo c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwh%\lib\FiveH.lib %fwh%\lib\FiveHC.lib + >> b32.bc
echo ..\lib\BtnGethb.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\codepage.lib + >> b32.bc
echo %hdir%\lib\hbwin32.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc
rem uncomment this line to use the debugger and comment the next one
rem %bcdir%\bin\ilink32 -Tpe -s @b32.bc
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:LINKERROR
ECHO * There are errors
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

Claro, antes deberás crear la librería con BtnGetHb.rmk o BtnGetHb.vrc que incluí en la carpeta \BtnGet32\Lib

Espero que te funcione

Manuel Mercado

[Ramón J.]

Hola, Manuel:

He creado la librería de Btnget32 para Harbour como tú me has indicado y luego he intentado generar el exe del sample, peo no me lo crea ni me especifica el tipo de error. Este es el proceso que arroja Verce:

Compilado y Enlazado de: [E:\FWH\CLASES\BtnGet32\SAMPLES\TEST.Exe]
Ejecución No. 1
Ejecutada a las: 19:40:47
============================================================
Harbour Compiler Alpha build 45.0 (Flex)
Copyright 1999-2005, http://www.harbour-project.org/
Compiling 'E:\FWH\CLASES\BtnGet32\SAMPLES\test.prg'...
Lines 38, Functions/Procedures 1
Generating C source output to 'E:\FWH\CLASES\BtnGet32\OBJ\test.hrb'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
E:\FWH\CLASES\BtnGet32\OBJ\test.hrb:
Harbour Compiler Alpha build 45.0 (Flex)
Copyright 1999-2005, http://www.harbour-project.org/
Compiling 'E:\FWH\CLASES\BtnGet32\SAMPLES\zoomlbx.prg'...
Lines 71, Functions/Procedures 2
Generating C source output to 'E:\FWH\CLASES\BtnGet32\OBJ\zoomlbx.hrb'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
E:\FWH\CLASES\BtnGet32\OBJ\zoomlbx.hrb:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fin del proceso.
Fin del proceso.
MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
** error 1 ** deleting E:\FWH\CLASES\BtnGet32\SAMPLES\TEST.exe
Ha habido ERRORES al intentar Generar la Aplicacion
============================================================
VERCE v4.3 -> Ver Resultados de Compilación y Enlazado v4.3
Juan Carlos Salinas Ojeda
jcso@hotmail.com, jcso@esm.com.mx
Minatitlán, Veracruz. MEXICO
Y Solo Veracruz es bello !!!
FiveWin for Harbour!!

Y esta es la configuración que tengo en el archivo Test.VRC:


DATOS DE LA APLICACION
======================================================================

* Nombre del EXE : TEST
* Directorio del EXE : E:\FWH\CLASES\BtnGet32\SAMPLES
* Directorio de PRG's : E:\FWH\CLASES\BtnGet32\SAMPLES
* Directorio de OBJ's : E:\FWH\CLASES\BtnGet32\OBJ
* Directorio de RC's : E:\FWH\CLASES\BtnGet32

======================================================================
MODULOS
======================================================================

* ARCHIVO DE RECURSOS : NO
* DBFNTX : SI
* DBFCDX : SI
* DEBUG : NO
* ADVANTAGE : NO
* ODBC : NO
* MAP FILE : NO

======================================================================

ARCHIVOS PRGs

#Cons. TAMAÑO NOMBRE DE ARCHIVO
------ -------- ------------------
1 957 E:\FWH\CLASES\BtnGet32\SAMPLES\TEST.PRG
2 2169 E:\FWH\CLASES\BtnGet32\SAMPLES\ZOOMLBX.PRG


======================================================================

ARCHIVOS C

#Cons. TAMAÑO NOMBRE DE ARCHIVO
------ -------- ------------------
1 7846 E:\FWH\CLASES\BtnGet32\SAMPLES\TEST.C
2 12084 E:\FWH\CLASES\BtnGet32\SAMPLES\ZOOMLBX.C


======================================================================

LIBRERIAS/OBJS DE TERCEROS OCUPADAS

#Cons. TAMAÑO NOMBRE DE ARCHIVO
------ -------- ------------------
1 13824 E:\FWH\CLASES\BTNGET32\LIB\BTNGETHB.LIB


======================================================================

Qué estoy haciendo mal?

Saludos