Ads 7.1 a 8.1
Posted: Tue May 08, 2007 10:09 pm
Estimados
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
dentro de las libreria de harbour 0.99.71
dentro del programa
La verdad que me funciona igual, pero no noto la diferencia entre 7.1 y 8.1 en cuanto a velocidad?
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
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
Code: Select all
...
c:\harbour\lib\pp.lib +
c:\harbour\lib\rddads.lib+
c:\harbour\lib\Ace32.lib +dentro del programa
Code: Select all
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?