Simples mas não compila

[ricardo-barros]

Instalei o Harbour 2.0 que peguei no sourceforge.net:
http://sourceforge.net/projects/harbour ... z/download

Por que o programa X.PRG a seguir não compila?

Function Main()
hDLL:= DllLoad("Daruma32.dll") // xHarbour seria hDLL := LoadLibrary( "Daruma32.dll")
ret:= dllcall(hDLL,32,"Daruma_FI_LeituraX")
DllUnload( hDLL ) // xHarbour seria: freelibrary()
Return

Tentei gerar o X.exe desta maneira mas só gera o X.c:

\HB20\BIN\HBMK2 X.PRG

Deu os seguintes erros:
undefined reference to HB_FUN_LOADLIBRARY
undefined reference to HB_FUN_DLLCALL

O que está faltando?

[Itamar M. Lins Jr.]

Simples também é procurar saber de qual lib do harbour essas funções fazem parte.

Linkou a hbwin.lib ?

Saudações,
Itamar M. Lins Jr.

[asimoes]

Olá Ricardo,

Tente isso:

teste.prg

Código: Selecionar todos

#include "hbdyn.ch" //Necessário para trabalhar com a hb_dyncall
FUNCTION MAIN
   hDLL:=hb_LibLoad("Daruma32.DLL") //Abre a DLL
   ret:=hb_dynCall( { "Daruma_FI_LeituraX", hDLL,HB_DYN_CALLCONV_STDCALL}) //Executa a função "Daruma_FI_LeituraX"
   hb_LibFree(hDLL) //Libera a DLL
RETURN Nil

Para compilar:
A biblioteca HBWIN contém as funções hb_libload, hb_dyncall e hb_libfree

HBMK2 teste -lhbwin

Obs: Não tenho como testar mas este exemplo eu consegui compilar.

[sygecom]

Olá Ricardo,
Acompanhe o ChangeLog do Harbour que verá que alguma functions mudaram os nomes e mudaram alguns parâmetros comparado ao xHarbour, mas sempre fica bem explicado no ChangeLog, então quando não achar algo procure no ChangeLog primeiro.

[ricardo-barros]

Muito obrigado, Asimoes, pela dica.

O Harbour 2.0 não estranha as funções de DLL que você indicou. Eu, porém, não tenho a hbdyn.ch nas pastas do Harbour. Você poderia envia-la para mim, por favor? Ou informar um site onde posso achá-la pois não consta no Sourceforge.net. Sei que é um arquivo texto, portanto pode ser colado aqui como resposta.

Agradeço muito a sua colaboração.

ricardo-barros @ bol. com. br

[asimoes]

Olá Ricardo,

a hbdyn.ch fica instalada na pasta include da sua instalação do harbour, mas de qualquer forma segue o include para você testar.

Grave como hbdyn.ch na pasta include

Código: Selecionar todos

/*
 * $Id: hbdyn.ch 14673 2010-06-03 14:48:23Z vszakats $
 */

/*
 * Harbour Project source code:
 * Dynamic call (high-level header)
 *
 * Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
 * www - http://harbour-project.org
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this software; see the file COPYING.  If not, write to
 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
 *
 * As a special exception, the Harbour Project gives permission for
 * additional uses of the text contained in its release of Harbour.
 *
 * The exception is that, if you link the Harbour libraries with other
 * files to produce an executable, this does not by itself cause the
 * resulting executable to be covered by the GNU General Public License.
 * Your use of that executable is in no way restricted on account of
 * linking the Harbour library code into it.
 *
 * This exception does not however invalidate any other reasons why
 * the executable file might be covered by the GNU General Public License.
 *
 * This exception applies only to the code released by the Harbour
 * Project under the name Harbour.  If you copy code from other
 * Harbour Project or Free Software Foundation releases into a copy of
 * Harbour, as the General Public License permits, the exception does
 * not apply to the code that you add in this way.  To avoid misleading
 * anyone as to the status of such modified files, you must delete
 * this exception notice from them.
 *
 * If you write modifications of your own for Harbour, it is your choice
 * whether to permit this exception to apply to your modifications.
 * If you do not wish that, delete this exception notice.
 *
 */

/* NOTE: This file is also used by C code. */

#ifndef HBDYN_CH_
#define HBDYN_CH_

/* C calling conventions */
#define HB_DYN_CALLCONV_CDECL               0x0000000 /* C default */
#define HB_DYN_CALLCONV_STDCALL             0x0100000 /* Windows API default */
#define HB_DYN_CALLCONV_SYSCALL             0x0200000 /* OS/2 32-bit default */

/* String encodings */
#define HB_DYN_ENC_ASCII                    0x0000000
#define HB_DYN_ENC_UTF8                     0x0010000
#define HB_DYN_ENC_UTF16                    0x0020000
#define HB_DYN_ENC_RAW                      0x0040000

/* Misc options */
#define HB_DYC_OPT_NONE                     0x0000000
#define HB_DYC_OPT_NULLTERM                 0x1000000

/* C types */
#define HB_DYN_CTYPE_DEFAULT                0x0000000
#define HB_DYN_CTYPE_CHAR                   0x0000001
#define HB_DYN_CTYPE_CHAR_UNSIGNED          0x0000011
#define HB_DYN_CTYPE_CHAR_PTR               0x0000101
#define HB_DYN_CTYPE_CHAR_UNSIGNED_PTR      0x0000111
#define HB_DYN_CTYPE_SHORT                  0x0000002
#define HB_DYN_CTYPE_SHORT_UNSIGNED         0x0000012
#define HB_DYN_CTYPE_SHORT_PTR              0x0000102
#define HB_DYN_CTYPE_SHORT_UNSIGNED_PTR     0x0000112
#define HB_DYN_CTYPE_INT                    0x0000003
#define HB_DYN_CTYPE_INT_UNSIGNED           0x0000013
#define HB_DYN_CTYPE_INT_PTR                0x0000103
#define HB_DYN_CTYPE_INT_UNSIGNED_PTR       0x0000113
#define HB_DYN_CTYPE_LONG                   0x0000004
#define HB_DYN_CTYPE_LONG_UNSIGNED          0x0000014
#define HB_DYN_CTYPE_LONG_PTR               0x0000104
#define HB_DYN_CTYPE_LONG_UNSIGNED_PTR      0x0000114
#define HB_DYN_CTYPE_LLONG                  0x0000005
#define HB_DYN_CTYPE_LLONG_UNSIGNED         0x0000015
#define HB_DYN_CTYPE_LLONG_PTR              0x0000105
#define HB_DYN_CTYPE_LLONG_UNSIGNED_PTR     0x0000115
#define HB_DYN_CTYPE_FLOAT                  0x0000006
#define HB_DYN_CTYPE_FLOAT_PTR              0x0000106
#define HB_DYN_CTYPE_DOUBLE                 0x0000007
#define HB_DYN_CTYPE_DOUBLE_PTR             0x0000107
#define HB_DYN_CTYPE_BOOL                   0x0000008
#define HB_DYN_CTYPE_BOOL_PTR               0x0000108
#define HB_DYN_CTYPE_VOID                   0x0000009
#define HB_DYN_CTYPE_VOID_PTR               0x0000109
#define HB_DYN_CTYPE_STRUCTURE              0x000000A
#define HB_DYN_CTYPE_STRUCTURE_PTR          0x000010A

#endif /* HBDYN_CH_ */

[ricardo-barros]

Obrigado novamente, Asimoes.

O processo de compilação está cada vez melhor pois agora só falta reconhecer a hb_DynCall.

Preciso saber qual LIB contém a função hb_DynCall

Eu linkey apenas a Hbwin assim:

Hbmk2 x.prg -lhbwin

[asimoes]

Olá Ricardo,

Esta versão do harbour que você baixou não deve estar com essas novas funções, o pessoal do harbour andou renomeando as funções de tratamento a dll, o ideal é você acompanhar o projeto pelo SVN, baixando as atualizações mais recentes, eu posso te disponibilizar uma versão já compilada do harbour, você está usando o BCC 5.5x ou outro compilador?

Na seção Contribuições, Dicas e Tutoriais você encontra a dica para baixar o harbour, para facilitar abaixo o endereço para orientar:

https://pctoledo.org/forum/viewto ... =43&t=6701

[]´s

[ricardo-barros]

Eu baixei o Harbour 2.0.0 a uma semana e diretamente do soureforge.net. É um instalador compatado no formato 7z. Portanto acredito que está completo e atualizado. Além disso o Asimoes indicou as novas funções que eu devo utilizar para acessar DLL. Já fiz isso e os erros do início do tópico foram resolvidos. O novo erro deve estar acontecendo por falta da linkedição de uma biblioteca. Ela contém a função hb_dynCall().

Alguém sabe dizer qual LIB a contém?

[asimoes]

Olá Ricardo,

Olhando o changelog temos a seguinte informação sobre a HB_DYNCALL() é possivel que a versão que você baixo não contém esta modificação. (veja o desque em vermelho)
Fiz um teste aqui e realmente não foi necessário linkas a lib hbwin, porque estas funções já fazem parte do core harbour.
Se você precisar posso te enviar uma versão que eu compilei recentemente para o borland bcc 5.5

2010-02-17 03:06 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/fstemp.c
! Using hb_fsTempDir() in HB_FTEMPCREATEEX() instead of
old solution. This should fix it for some non-*nix
platforms where *nix specific TEMPDIR envvar was used
to determine temp directory.

* contrib/hbwin/Makefile
* include/Makefile
* src/rtl/Makefile
- contrib/hbwin/hbdyn.ch
+ include/hbdyn.ch
- contrib/hbwin/hbdyn.c
+ src/rtl/hbdyn.c
- contrib/hbwin/win_dllc.c
+ src/rtl/hbdynhb.c
- contrib/hbwin/tests/testdll.c
+ tests/testdyn.c
- contrib/hbwin/tests/testdll.prg
+ tests/testdyn.prg
- contrib/hbwin/tests/testdll1.prg
+ tests/testdyn1.prg
- contrib/hbwin/hbdyn.h
* include/hbapi.h
* Moved dynamic library call related functions to
core (RTL).
* Windows specific test code (currently all) guarded
for platform.
* Changed default calling convention to cdecl.
Tests adaptd accordingly.
* Terminology change: 'dll' -> 'dynamic library'
; HB_DYNCALL() is now part of core Harbour, and it's
platform independent. It's platform (ABI) dependent though,
and currently x64 and x86/stdcall/syscall/cdecl
is supported and these were tested (except OS/2 syscall).

[sygecom]

Olá Ricardo,
Se você tivesse olhado no ChangeLog ou seguido a dica do Asimões isso já estaria resolvido, alias espero que esteja já resolvido.
No ChangeLog diz também o seguinte:
Updated WIN_DLLCALL() -> HB_DYNCALL() change.
Ou seja, talvez sua LIB tenha sido criada antes dessa alteração, então pode tentar também usando WIN_DLLCALL()

[ricardo-barros]

Acabo de baixar outro instalador do Harbour 2.0.0

Desta vez é um arquivo exe que fica no seguinte site:

http://sourceforge.net/projects/harbour-project/

Este só poderia ser atualizadíssimo.

Após a instalação e mais uma tentativa de compilação, qual não foi minha decepção: o programa x.o ainda tem a "undefined reference to HB_FUN_HB_DYNCALL"

E olhando o Changelog não consta qualquer referência à função Hb_DynCall. Agora eu pergunto encarecidamente:

Onde eu achou essa tal versão core?

[asimoes]

Ricardo,

Baixa esta versão que eu compilei hoje do harbour para bcc 5

http://www.4shared.com/file/2xOE3odO/BCC.html

[]´s

[ricardo-barros]

Asimoes você tem sido de fato uma grande ajuda.

Agora só falta eu instalar o Bcc32.exe que não consta em nenhuma das pastas do Harbour que você indicou. Por sinal ele é mais atualizado do que o que eu tinha pois sua versãp é 2.1.

Já procurei o resto (BCC 5) na internet mas não encontrei.

Você pode me dizer onde eu acho?

Obrigado de novo.

[Maligno]

BCC v5.51: http://pub.buzinello.com/index.php?d=./cpp/compilers/