FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda con 32 bits Urgente
Posts: 330
Joined: Fri May 25, 2007 09:06 PM
Ayuda con 32 bits Urgente
Posted: Thu Sep 06, 2007 12:54 AM

Hola Foro:
Tengo el siguiente problema:

  1. Como puedo declarar la Ace32.dll y otras DLL en una aplicacion de 32 bits, ya que verce me dice que no puede abrir esta dll.

  2. En 16 bits yo podia consultar si en el disco duro existia un archivo de la siguiente forma:
    var= "Maestro" (Nombre de la base de datos)
    If File("&var..dbf")
    .... Abrir archivo
    If File("&Var..cdx")
    ... Abrir archivo indice
    endif
    endif
    . Mi pregunta es como puedo hacer los mismo en Xharbour y Fwh701

Saludos,
Antonio

Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM
Re: Ayuda con 32 bits Urgente
Posted: Thu Sep 06, 2007 04:37 AM
mantonio_08 wrote:
1. Como puedo declarar la Ace32.dll y otras DLL en una aplicacion de 32 bits, ya que verce me dice que no puede abrir esta dll.


No lo necesitas a menos que estes usando el Advantage Database Server, si no estas usando ADS, entonces quitalo de las opciones de enlazado del VerCE, y por cierto, no es el ACE32.DLL , es el ACE32.LIB

Ahora bien, si estas usando Advantage, el ACE32.LIB proviene del ACE32.DLL

1) Consigue un ACE32.DLL de la version de ADS que estés usando (lo encuentras en la carpeta del Advantage Data ARchitech)

2) Con el Implib de borland crea la libreria

IMPLIB ACE32.LIB ACE32.DLL

Y listo

mantonio_08 wrote:
2. En 16 bits yo podia consultar si en el disco duro existia un archivo de la siguiente forma:
var= "Maestro" (Nombre de la base de datos)
If File("&var..dbf")
.... Abrir archivo
If File("&Var..cdx")
... Abrir archivo indice
endif
endif


En teoría si pero estas matando pulgas a cañonazos, no necesitas usar macros para la funcion FILE:

var := "Maestro"
IF File(var+".dbf")
...
...
...

Como verás el uso de las macros con cadenas de caracteres que estas usando es redundante.
Saludos

R.F.
Posts: 330
Joined: Fri May 25, 2007 09:06 PM
Re: Ayuda con 32 bits Urgente
Posted: Thu Sep 06, 2007 02:28 PM
Rene:

Muchas gracias por tu respuesta, me queda muy clara tu explicacion.

Saludos,
Antonio


RF wrote:
mantonio_08 wrote:
1. Como puedo declarar la Ace32.dll y otras DLL en una aplicacion de 32 bits, ya que verce me dice que no puede abrir esta dll.


No lo necesitas a menos que estes usando el Advantage Database Server, si no estas usando ADS, entonces quitalo de las opciones de enlazado del VerCE, y por cierto, no es el ACE32.DLL , es el ACE32.LIB

Ahora bien, si estas usando Advantage, el ACE32.LIB proviene del ACE32.DLL

1) Consigue un ACE32.DLL de la version de ADS que estés usando (lo encuentras en la carpeta del Advantage Data ARchitech)

2) Con el Implib de borland crea la libreria

IMPLIB ACE32.LIB ACE32.DLL

Y listo

mantonio_08 wrote:
2. En 16 bits yo podia consultar si en el disco duro existia un archivo de la siguiente forma:
var= "Maestro" (Nombre de la base de datos)
If File("&var..dbf")
.... Abrir archivo
If File("&Var..cdx")
... Abrir archivo indice
endif
endif


En teoría si pero estas matando pulgas a cañonazos, no necesitas usar macros para la funcion FILE:

var := "Maestro"
IF File(var+".dbf")
...
...
...

Como verás el uso de las macros con cadenas de caracteres que estas usando es redundante.

Continue the discussion