Tengo Ads 7.1 y me funciona perfectamente, estoy evaluando la version 8.1 por 30 dias, y me pregunta si hay que hacer algun cambio dentro de la aplicacion.
he copiado los archivos de destribucion en mi aplicacion
- Code: Select all Expand view RUN
ace32.dll ( version 8.10.0.15 )
adsloc32.dll( version 8.10.0.15 )
adslocal.cfg
ansi.chr
axcws32.dll( version 8.10.0.15 )
extend.chr
dentro de las libreria de harbour 0.99.71
- Code: Select all Expand view RUN
...
c:\harbour\lib\pp.lib +
c:\harbour\lib\rddads.lib+
c:\harbour\lib\Ace32.lib +
dentro del programa
- Code: Select all Expand view RUN
Init Procedure Inicio()
local hConnection := 0, lConecte := .f.
SET MULTIPLE ON
SET EPOCH TO 1950 // Admite los años desde el 1990 en adelante
SET CONFIRM ON
SET CENTURY ON // 4 d¡gitos a¤o
SET DATE FORMAT "DD/MM/YYYY" // formato dd-mm-yyyy
SET DELETED ON // Impedir ver registros marcados borrar
SetHandleCount( 150 ) // M ximo n§ ficheros abiertos
SET _3DLOOK ON
oApp := MyApp():Load()
rddregister( "ADS", 1 )
rddSetDefault( "ADS" )
AdsConnect( oApp:cPathDbf )
AdsSetServerType( oApp:AdsConnect )
MsgRun( "Espere un momento, Conectando con el Servidor", "Win-Invent",;
{ || lConecte := AdsConnect60( oApp:AdsServer, oApp:AdsConnect, "adssys", "XXX",, @hConnection ) } )
if !lConecte
MsgInfo( "Hay problemas en el servidor"+CRLF+"intente mas tarde", "usuario" )
MsgInfo( "Error:"+cValtochar( AdsGetLastError() )+CRLF +;
"Servidor:"+oApp:AdsServer, "Usuario" )
PostQuitMessage(0)
QUIT
return
endif
oApp:hConnection := hConnection
hConnection := NIL
AdsSetFileType( ADS_CDX )
AdsLocking( .t. )
AdsRightsCheck( .f. )
return
//---------------------------------------------------------------------------
La verdad que me funciona igual, pero no noto la diferencia entre 7.1 y 8.1 en cuanto a velocidad?
