Problems con una funcion en C

[ramirezosvaldo]

Hola Colegas

Este es el codigo :

#include "FWCE.ch"

function Main()
* begin
local oWnd

DEFINE WINDOW oWnd TITLE "Active Scan"

@ 2, 2 BUTTON "Scan_Open" ACTION SCAN_OPEN() SIZE 80, 20
ACTIVATE WINDOW oWnd

return nil


* Funciones que no corren en Symbol MC3000
function cesetmenu() ; return nil
function getmenu() ; return nil
function readbitmap() ; return nil
function palbmpread() ; return nil

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>
#include <ScanCAPI.h>

HANDLE hScanner = NULL;
TCHAR szScannerName[MAX_PATH] = L"SCN1:";

HB_FUNC( SCAN_OPEN )
{
DWORD dwResult = SCAN_Open( szScannerName, &hScanner );

if ( dwResult != E_SCN_SUCCESS )
MessageBox( GetActiveWindow(), L"Fallo en Scan_Open", L"Ok", 0 );
}

#pragma ENDDUMP


Y este es el mensaje :


bitest1.c
Creating library jobitest1.lib and object jobitest1.exp
bitest1.obj : error LNK2019: unresolved external symbol SCAN_Open referenced i
function "void __cdecl HB_FUN_SCAN_OPEN(void)" (?HB_FUN_SCAN_OPEN@@YAXXZ)
bitest1.exe : fatal error LNK1120: 1 unresolved externals


Espero no importunar mucho.

Saludos
Osvaldo Ramirez

[Antonio Linares]

Osvaldo,

Tienes que enlazar un fichero LIB para las funciones de la DLL.

La forma de construir ese fichero LIB es:

implib.exe nombre_dll.lib nombre_dll.dll

Y enlazar el fichero LIB resultante como una lib más en buildce.bat.

[ramirezosvaldo]

Estimado antonio, voy a intentarlo ....

Estoy haciendo esto, pero se tarda mucho y no se si estoy bien.
Si no habro el indice es rapido, pero si lo abro el indice, se tarda siglos

USE (ventas_dir+"05051207.DBF") ALIAS DIARIO NEW
if ! NETERR()
GO TOP
USE ( files_dir+"ARTICUL.DBF") ALIAS ARTICUL NEW
if ! neterr()
SET INDEX TO ( files_dir+"ARTICUL3.NTX" )

GO TOP

DEFINE WINDOW oWnd TITLE "TomaInv"

@ 1, 2 SAY "Cantidad:" SIZE 70, 20
@ 1,11 GET nCant picture "9999" SIZE 35, 20
@ 3.0, 2 SAY "Bar-Code:" SIZE 70, 20
@ 3.0,11 GET cBarCode picture "@!" SIZE 110, 20


@ 12, 2 BUTTON "Revisar" SIZE 80, 30 ACTION revisar(cBarCode,nCant)
@ 12,15 BUTTON "Terminar" SIZE 80, 30 ACTION oWnd:End()

ACTIVATE WINDOW oWnd
else
msginfo("Error en apertura de articulos")
endif
ELSE
msginfo("Error en apertura del diario")
ENDIF

return nil

Saludos
Osvaldo Ramirez

[ramirezosvaldo]

Estimados Colegas ...

ya encontre un implib.exe dentro de un directorio de borland, e hice lo un scnapi32.lib

A este lo puse q lo agregara en buildce.bat
y listo : Pero creo que no se creo bien el scnapi32.lib , pues dice que esta corrupto.

alguien tiene por ahi un implib.exe para Pockemones ...

Saludos
Osvaldo Ramirez

[Antonio Linares]

Osvaldo,

Prueba a NO llamar a NetErr(). No te hace falta, ya que si no se abriese la base de datos, Harbour generaría un error. Y tal vez ahí esté la pérdida de tiempo.

Me equivoqué al indicarte implib.exe, ya que se generaría una LIB en formato OMF y Microsoft usa formato COFF.

Envíame la DLL como ZIP y te generamos la LIB aquí.

[Antonio Linares]

Osvaldo,

La forma correcta de generar el fichero LIB es:

1. Crear el fichero DEF a partir desde la DLL:

impdef.exe scnapi32.def scnapi32.dll

2. Crear la LIB a partir del fichero DEF:

lib.exe /def:scnapi32.def /machine:arm /out:scnapi32.lib