Ads 7.1 a 8.1

[Patricio Avalos Aguirre]

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

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

dentro de las libreria de harbour 0.99.71

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?

[R.F.]

Funciona exactamente igual.

Las diferencias en la version 8.1 contra la version 7.1 estan en el manejo de SQL basicamente y en que el servidor ahora puede hacer los respaldos automaticamente mediante el ARC.

No hay cambios en el RDDADS ni en las funciones del ACE32.