FiveTech Software tech support forums

Code: Select all  Expand view

  REDEFINE XBROWSE oBrwG ID 112 OF oDlg ;
            COLUMNS 'imagen';
             HEADER "FOTOGRAFIAS";
           COLSIZES 100;
            JUSTIFY 2;
              ALIAS "imagenes"
 

Code: Select all  Expand view

oBrwG := Nil
hb_GCAll( .t. )
 

reinaldocrespo wrote:Hi. I confirmed the problem. I wrote my own tests using a dbf/fpt/cdx table. It does the same.

Using Marcelo's example you can simply keep pressing arrow down on the last image. It goes nowhere, as it has nowhere to go, but it keeps consuming more and more memory until it finally freezes. This points to a problem with xbrowse when showing images on a cell. Is my assumption wrong?


Reinaldo.

Code: Select all  Expand view

   cSql := "INSERT INTO images ( jpg ) VALUES ( :bindata ) \n"
   ADSCreateSQLStatement(  "cAlias" )
   AdsPrepareSql( cSql )
   binImage := MemoRead( cFile )
   AdsSetBinary( "bindata", binImage )
   AdsExecuteSql()
 

Code: Select all  Expand view

//----------------------------------
//RCB 4/25/2011 10:16:24 AM

HB_FUNC( ADSSETBINARY )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();

ulRetVal = AdsSetBinary( pArea->hStatement,
    (char*) hb_parc( 1 ),
    (hb_pcount() > 2 && hb_parni( 3 ) == 1) ? ADS_BINARY : ADS_IMAGE,
    hb_parclen( 2 ), //ulTotalLength
    0,//ulOffset
    (char*) hb_parc( 2 ),
    hb_parclen( 2 ) );

hb_retl( ulRetVal == AE_SUCCESS );
}

//----------------------------------
//RCB 4/25/2011 10:16:24 AM
HB_FUNC( ADSSETSTRING )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();

ulRetVal = AdsSetString( pArea->hStatement,
    (char*) hb_parc(1),
    (char*) hb_parc(2),
    hb_parclen(2) );
   
hb_retl( ulRetVal == AE_SUCCESS );
}

//----------------------------------
//RCB 4/25/2011 10:16:24 AM
HB_FUNC( ADSSETDATE )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();
ulRetVal = AdsSetDate( pArea->hStatement,
    (char*) hb_parc(1),
    (char*) hb_parc(2),
    hb_parclen(2) );
hb_retl( ulRetVal == AE_SUCCESS );
}

//----------------------------------
//RCB 4/25/2011 10:16:24 AM
HB_FUNC( ADSSETLONG )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();
ulRetVal = AdsSetLong( pArea->hStatement,
    (char*) hb_parc(1),
    hb_parnl(2));
hb_retl( ulRetVal == AE_SUCCESS );
}

//----------------------------------
//RCB 4/25/2011 10:16:24 AM
HB_FUNC( ADSSETDOUBLE )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();
ulRetVal = AdsSetDouble( pArea->hStatement,
    (char*) hb_parc(1),
    hb_parnd(2));
hb_retl( ulRetVal == AE_SUCCESS );
}

//----------------------------------
//RCB 4/25/2011 10:16:24 AM
HB_FUNC( ADSSETLOGICAL )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();
ulRetVal = AdsSetLogical( pArea->hStatement,(char*) hb_parc(1), hb_parl(2));
hb_retl( ulRetVal == AE_SUCCESS );
}

//RCB
HB_FUNC( ADSSETNULL )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();
ulRetVal = AdsSetNull( (hb_parnl(1)==0) ? pArea->hOrdCurrent : hb_parnl(1),(char*) hb_parc(2));
hb_retl( ulRetVal == AE_SUCCESS );
}