FiveTech Software tech support forums

Robert,

Are you using xHB commercial ?

Antonio Linares wrote:Robert,

Are you using xHB commercial ?

No.
I use xHarbour 1.0.0 from FTDN, last one which works with my sql library.
But I got the same error.

There were some topics about problem with SQL libraries, when xHarbour 1.1.0 occurs. I guess it's going on with xHarbour from CVS. So I decided to use 1.0.0. This is last month of my FTDN, so I know that next one I have to buy will be when official stable version of xHarbour will be released.

Robert,

> But I got the same error.

Could you please provide me a PRG sample to reproduce the error here ? Thanks,

Antonio,

I simply re-downloaded the FWH install after you noted it had been rebuilt, and then I did a rebuild of my application ( complete ).

I did not rebuild any libraries.

I'm using xHarbour commercial (Nov. stable build) with your latest FWH 8.04.

I did revert to FWH 8.03 and there are no problems.

Tim

Tim,

Could you provide a sample PRG to generate the error ? Thanks,

Built using FWH 8.04 and xHarbour(.com) Nov 2007
Under Vista, this program dies on startup and generates a Vista GPF message:

#include "fivewin.ch" //
#INCLUDE "wcolors.CH"
#include "common.ch"
#DEFINE HELP_FINDER
#DEFINE HKEY_LOCAL_MACHINE 2147483650
#DEFINE INTERNET_FLAG_PASSIVE 0x08000000


FUNCTION main( nMode )

// SET options
SET _3DLOOK ON
SET DELETED ON
SET EPOCH TO 1950
SET CENTURY ON
SETHandleCount( 220 )
SET EXCLUSIVE OFF
SetBalloon(.t.)

// Fonts Master definition
DEFINE FONT oMfont NAME "MS Sans Serif" SIZE 0, -10 BOLD

// Now open the window and apply settings
DEFINE WINDOW oWnd FROM 1,1 TO 768,1024 PIXEL TITLE "Test Open"

oWnd:oFont := oMfont
WNDCENTER( oWnd:hWnd ) // Center the window on the screen

// Establish the message bar
SET MESSAGE OF oWnd TO "(c) Test 2008" 2007 NOINSET DATE KEYBOARD FONT oMfont
oWnd:oMsgBar:nHeight := oMFont:nHeight( ) * 1.08 + 12

// Activate the window
ACTIVATE WINDOW oWnd VALID MsgYesNo( "Do you want to quit ? ", "Exiting Test")

// Close and release
SET 3DLOOK OFF

RETURN ( NIL )

function __ClsActive() ; return nil

Tim,

Probably this line:
function __ClsActive() ; return nil
is the one that generates the GPF.

Could you please ask xHB.com to provide you a working __ClsActive() code ? Thanks

Antonio Linares wrote:Probably this line:
function __ClsActive() ; return nil
is the one that generates the GPF.

Antonio, Tim,
The line genetating the GPS is
oWnd:oFont := oMfont

Regards

Manuel Mercado

Manuel,

Just a simply DATA assignment ? Thanks for your feedback,

Antonio Linares wrote:Just a simply DATA assignment ?

I don't know, but if you comment that line, the gps goes away.
Regards

Manuel Mercado

Antonio Linares wrote:Tim,

Probably this line:
function __ClsActive() ; return nil
is the one that generates the GPF.

Could you please ask xHB.com to provide you a working __ClsActive() code ? Thanks

It is not necessary to create dummy function __ClsActive, If xbrowse.prg is complied with xharbour 1.0.0, __ClsActive is not referred to at all. __ClsActive is called by TOleAuto class used in toExcel method.

Hello Tim,

Tim Stone wrote:Built using FWH 8.04 and xHarbour(.com) Nov 2007
Under Vista, this program dies on startup and generates a Vista GPF message:

I just compiled your sample with latest upcoming xHarbour Builder APRIL BETA + FWH 8.04 and it does not GPF. It works with or without adding: Patrick

GPF gotten with XP using FWH 8.04 and a prior version of xHarbour (that supplied from FiveTechSoft with FWH 8.02)

Patrick is right, with the last xHarbour version (that supplied from FiveTechSoft with FWH 8.04), there is not GPF nor missing __ClsActive function.

Regards

Manuel Mercado

Patrick,

Thanks for your feedback,

Please provide the xHB April beta to users asap!

Antonio Linares wrote:Patrick,
Thanks for your feedback,
Please provide the xHB April beta to users asap!

Yes!

I's just a matter of days.

Patrick