ADS -> AdsRegCallBack()

[Carles]

Hola,

Alguien usa con exito esta funcion ( ADSRegCallBack() )?


Saludos.
C.

[R.F.]

Haz probado asi ???:


FUNCTION Main()
...
AdsRegCallBack( {|nPercent| outputstuff(nPercent)} )
INDEX ON First+LAST+LABEL1+LABEL2 TAG First
AdsClrCallBack()
RETURN nil

FUNCTION outputstuff(nPercent) /* funcion "callback" */
? "Porcentaje de avance:", nPercent
RETURN inkey() == 27

[Carles]

Hi Rene,

Tenia una construccion similar a la tuya y no me funcionaba y llevaba 3 dias con ello, pero... te explico. Yo queria usar esta funcionalidad con la funcion ADSCopyTableContents(). La funcion en si va como un torpedo y segun su help:

Note This function is capable of utilizing registered callback functions

Y un codigo sencillo a probar podria ser

Code: Select all  Expand view

FUNCTION Main()
...
USE ORIGEN SHARED NEW
cAliasOrigen := Alias()

USE DESTINO SHARED NEW
cAliasDestino := Alias()

AdsRegCallBack( {|nPercent| outputstuff(nPercent)} )

(cAliasOrigen)->( AdsCopyTableContents( cAliasDestino ) )

AdsClrCallBack()

RETURN nil


Y venga a probar q probar y nada. En cambio lo pruebas en un ejemplo con indexados y funciona Ok. En fin, desisto ya perder mas tiempo. Sera un error del Help de ADS.

Bueno, gracias por tu feedback.

Nota: Nos tomamos prontito unas cervezas en Barcelona ?


Un abrazo

[R.F.]

Carles:

Nop, no es un error del Help ADS, es simplemente que el "Callback" solo esta implementado para los índices en el RDDADS, no fuciona en ninguna otra función....

Voy a ponerme en contacto con Bryan Hayes, a ver si es posible implementar llamadas callback en toras funciones.

[reinaldocrespo]

Rene;

¿Hay noticias sobre este tema? ¿Te ha respondido Brian?

Mi intención es usarla en algo asi:

Code: Select all  Expand view

   AdsRegCallBack( { | nPercent | ProgressUpdate( nPercent ) } )

   IF ADSExecuteSQLDirect( cCons )
...


Pero observo que durante la ejecución del ADSExecuteSQLDirect la función registrada con AdsRegCallBack no es invocada. Quisiera conocer que hacer para lograr mostrar el progreso de una ejecución SQL.



Reinaldo.

[Massimo Linossi]

Hi Reinaldo.
Have you solved this issue ?
I have the same problem. I want to execute a function when Advantage is making a select (is only a meter for showing that the procedure is working ).
Thanks a lot.
Massimo.

[reinaldocrespo]

It is working right now for me.

Here is the code snippet:

Code: Select all  Expand view

      IF ADSCreateSQLStatement( ::cAlias, ::nTblType, ::hAds ) //.or. !ADSVerifySQL( cScript )

               oMeter := PROGRESSBAR():New( 100, ::cProgressMsg )
               ACTIVATE DIALOG oMeter:oDlg NOWAIT ON INIT oMeter:oDlg:center( WndMain() )
               ::bProgress := { |n| oMeter:nCount++, oMeter:Update( n ) }

            Register_CallBack( { | nPercent | EVAL( ::bProgress, nPercent ) } )

             TRY 
                isgood := ADSExecuteSQLDirect( cSql )
            CATCH
                isgood := .F.
            END

            Unregister_callback()
...
 

Code: Select all  Expand view

*-------------------------------------------------------------------------------------------------------
#pragma BEGINDUMP
#include <windows.h>

#include "ace.h"
#include "hbapi.h"
#include "hbvm.h"
#include "hbapiitm.h"

UNSIGNED32 long _stdcall ShowPercentage( UNSIGNED16 usPercentDone , UNSIGNED32 ulCallbackID );

static PHB_ITEM pBlock;

//---------------------------------------------------------------------------//
HB_FUNC( REGISTER_CALLBACK )
{
   pBlock = hb_itemParam( 1 );
   hb_retni( AdsRegisterCallbackFunction( ShowPercentage , 1 ) );
}

//---------------------------------------------------------------------------//
HB_FUNC( UNREGISTER_CALLBACK )
{
   AdsClearCallbackFunction();

   if( pBlock )
   {
      hb_itemRelease( pBlock );
   }
}

//---------------------------------------------------------------------------//
UNSIGNED32 long _stdcall ShowPercentage( UNSIGNED16 usPercentDone, UNSIGNED32 ulCallbackID )
//UNSIGNED32 WINAPI ShowPercentage( UNSIGNED16 usPercentDone, UNSIGNED32 ulCallbackID )
{
   PHB_ITEM pPercent = hb_itemPutNI( NULL, usPercentDone );

   if( pPercent && pBlock)
   {
      hb_vmEvalBlockV( pBlock, 1, pPercent );
      hb_itemRelease( pPercent );
   }

   return 0;
}

 

Hope that helps,


Reinaldo.

[Massimo Linossi]

Thanks Reinaldo.
I'll give it a try. But not now. I have to turn off the computer because there's a storm coming and I would not take chances with electrical surges.
Massimo.

[Massimo Linossi]

Hi Reinaldo.
I made this function, appending yours, but I receive some errors during compiling process. I'm using Xharbour commercial.
I'm doing something wrong ?
Thanks a lot.
Massimo


**************************************************************************
#include "fivewin.ch"
#include "c:\xHb\include\ads.ch"


Function Girbase()

local oDlg, ometer

DEFINE DIALOG oDlg RESOURCE "UTF_TEST"

oMeter = Tprogress():Redefine(100,oDlg)

REDEFINE BUTTON ID 300 of oDlg ACTION (oDlg:End())
REDEFINE BUTTON ID 301 of oDlg ACTION (leggi_dati(@ometer))

ACTIVATE DIALOG oDlg CENTERED
dbcloseall()
return nil

**********************************
STATIC FUNCTION leggi_dati(ometer)
LOCAL stringa_sql

oMeter:SetRange( 1, 100 )

stringa_sql = "SELECT * from bollette order by utente"

Select 0
ADSCReateSqlStatement("Utenza", 1)

Register_CallBack( { | nPercent | agg_meter(@ometer, nPercent) } )

ADSExecuteSQLDirect(stringa_sql)

Unregister_callback()


browse()

return nil

*******************************************
STATIC FUNCTION agg_meter(ometer, npercent)
oMeter:Nposition = npercent
sysrefresh()

return nil


*-------------------------------------------------------------------------------------------------------
#pragma BEGINDUMP
#include <windows.h>

#include "ace.h"
#include "hbapi.h"
#include "hbvm.h"
#include "hbapiitm.h"

UNSIGNED32 long _stdcall ShowPercentage( UNSIGNED16 usPercentDone , UNSIGNED32 ulCallbackID );

static PHB_ITEM pBlock;

//---------------------------------------------------------------------------//
HB_FUNC( REGISTER_CALLBACK )
{
pBlock = hb_itemParam( 1 );
hb_retni( AdsRegisterCallbackFunction( ShowPercentage , 1 ) );
}

//---------------------------------------------------------------------------//
HB_FUNC( UNREGISTER_CALLBACK )
{
AdsClearCallbackFunction();

if( pBlock )
{
hb_itemRelease( pBlock );
}
}

//---------------------------------------------------------------------------//
UNSIGNED32 long _stdcall ShowPercentage( UNSIGNED16 usPercentDone, UNSIGNED32 ulCallbackID )
// UNSIGNED32 WINAPI ShowPercentage( UNSIGNED16 usPercentDone, UNSIGNED32 ulCallbackID )
{
PHB_ITEM pPercent = hb_itemPutNI( NULL, usPercentDone );

if( pPercent && pBlock)
{
hb_vmEvalBlockV( pBlock, 1, pPercent );
hb_itemRelease( pPercent );
}

return 0;
}


Type: C >>>xhb.exe -o"obj\GIRBASE.c" -m -n -q -gc0 -I"c:\fwh\include" -I"C:\xHB\include" -I"C:\xHB\include\w32" "c:\fw\BLU\GAS\GIRBASE.PRG"<<<

xHarbour Compiler build 1.0.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Generating object output to 'obj\GIRBASE.obj'...
c:\\fw\\BLU\\GAS\\GIRBASE.PRG(59): error: Invalid type specification.
c:\\fw\\BLU\\GAS\\GIRBASE.PRG(67): warning: Operands of = have illegal types 'unsigned long __stdcall function(unsigned short, unsigned long)' and 'long int __stdcall function(unsigned short, unsigned long)'.
c:\\fw\\BLU\\GAS\\GIRBASE.PRG(82): error: Invalid type specification.

Type: C >>>Couldn't build: GIRBASE.obj<<<
Type: C >>>TMAKEOBJECT<<<
Type: C >>>TMAKEOBJECT:REFRESH<<<
Type: N >>> 1322<<<

[reinaldocrespo]

Massimo;

I have compiled the c code with all versions of bcc. I do get one warning that can be ignored. I'm sorry I can't say why you get errors. The code is quite simple. I'm too busy these days. I'll try to come back to this subject next week if you still need help.

Best regards,


Reinaldo.

[fraxzi]

Reinaldo,

I got warning: Parameter 'ulCallbackID' is never used in function ShowPercentage

It doesn't affect the application on run-time but annoying when compiling..

[reinaldocrespo]

Hey Frances;

I confirm you are right. I would try not to worry as the code works perfectly. I will look into it soon to see if that waring can be, somehow, pacified.

Best regards,



Reinaldo.

[fraxzi]

Hey Frances;

I confirm you are right. I would try not to worry as the code works perfectly. I will look into it soon to see if that waring can be, somehow, pacified.

Best regards,



Reinaldo.

Reinaldo,

I did this. it solves the warning.

Code: Select all  Expand view

    UNSIGNED32 long _stdcall ShowPercentage( UNSIGNED16 usPercentDone, UNSIGNED32 ulCallbackID )
    {
       PHB_ITEM pPercent = hb_itemPutNI( NULL, usPercentDone );

       if( pPercent && pBlock)
       {
          hb_vmEvalBlockV( pBlock, ulCallbackID /*1*/, pPercent );
          hb_itemRelease( pPercent );
       }

       return 0;
    }
 

[reinaldocrespo]

Frances;

Nice job. I'll use your implementation.

Thank you.


Reinaldo.