xBrowse:ToExcel() crash in Win7 x86

[fraxzi]

Dear Mr. RAO,

Also tried with sample "testxbr3.prg" when exporting to excel but failed or apps hangup.

Installed is MS Office 2003 STD in Win7 Pro x86.

I think the problem is the call "oExcel := ExcelObj()" found in xbrowse.prg (FWH v11.05)



Kind Regards,

[fraxzi]

Dear All,


I found the problem...

I am using xHarbour v1.21.9376 when this problem was first encountered..

When all things considered and seems no alternative solution.. I WENT BACK to xHarbour v1.21.6714..

The problem was solved.

[nageswaragunupudi]

We had this problem with some versions of xharbour.
I am using xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 9381)
This is the build provided by FiveWin.
This version is working well.
You may try this version, instead of going back to an older version.

[fraxzi]

We had this problem with some versions of xharbour.
I am using xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 9381)
This is the build provided by FiveWin.
This version is working well.
You may try this version, instead of going back to an older version.

Dear Mr. RAO,

I have rev.9381 that was downloaded some weeks ago.. but still crashing my app and 'testxbr3.prg..
the datestamp on harbour.exe of rev.9381 is 07/03/2011 03:18am
do you have a quick link to latest xharbour build?

[fraxzi]

By-the-Way,

Im using ADS RDD..

With xharbour 1.21.9381 does not include these files "ace32.lib" and "rddads.lib".. so I used either the rev.6714 or rev.9376

This could be the problem...

ace32.lib and rddads.lib should be updated and included with rev.9381..

[nageswaragunupudi]

viewtopic.php?f=17&t=21875

We need to build our own rddads

[fraxzi]

http://forums.fivetechsupport.com/viewtopic.php?f=17&t=21875

We need to build our own rddads

Can you post the steps please..

[ShumingWang]

Yes, on some win7 with problems.for example: excelObj() vs oExcel := GetOleObject( "Excel.Application" ) calls toleauto() class,but harbour 3.0 comes better win_oleauto class, I do not find the source file getoleobject() to replace it win_oleauto class.
Regards!
Shuming Wang

[nageswaragunupudi]

Mr Wang

If you get this crash, please do this:
In \fwh\samples\olefuncs.prg
modify function FWGetOleObject()
as

Code: Select all | Expand

function FWGetOleObject( cApp )

   local oObj

   TRY
      oObj  := TOleAuto():New( cApp )
   CATCH
   END

return oObj
 

[nageswaragunupudi]

Yes, on some win7 with problems.for example: excelObj() vs oExcel := GetOleObject( "Excel.Application" ) calls toleauto() class,but harbour 3.0 comes better win_oleauto class, I do not find the source file getoleobject() to replace it win_oleauto class.
Regards!
Shuming Wang

May I know which version of FWH are you using?

Please change the function name GetOleObject in olefuncs.prg as FWGetOleObject and in all its references.

GetOleObject name in olefuncs.prg was clashing with function of the same name in xHarbour

[fraxzi]

Yes, on some win7 with problems.for example: excelObj() vs oExcel := GetOleObject( "Excel.Application" ) calls toleauto() class,but harbour 3.0 comes better win_oleauto class, I do not find the source file getoleobject() to replace it win_oleauto class.
Regards!
Shuming Wang

May I know which version of FWH are you using?

Please change the function name GetOleObject in olefuncs.prg as FWGetOleObject and in all its references.

GetOleObject name in olefuncs.prg was clashing with function of the same name in xHarbour

I'm using FWH v11.05

I will try your suggestion and will post here results..

Thanks again!

[fraxzi]

Dear Mr. RAO,

I tried this:

Code: Select all | Expand

function ExcelObj()

   static lInstalled
   static oExcel

   if !( lInstalled == .f. )
      lInstalled  := ( ( oExcel := FWGetOleObject( "Excel.Application" ) ) != nil )
   endif

return oExcel
 

But apps still crashed in win7 x86..

[fraxzi]

Dear Mr. RAO,

I modified this:

Code: Select all | Expand

function FWGetOleObject( cApp )

   local oObj

   TRY
      oObj  := TOleAuto():New( cApp ) //from GetActiveObject( cApp )
   CATCH
      TRY
         oObj  := TOleAuto():New( cApp )
      CATCH
      END
   END

return oObj
 

NOW WORKS WITH xHB1.21.9381 WITHOUT CRASHING...

[ShumingWang]

I modified this: no action nor error alert.
Code:

function FWGetOleObject( cApp )

local oObj

TRY
oObj :=WIN_OleAuto():New( cApp ) //from GetActiveObject( cApp ) , call harbour win_oleauto class (hbwin.lib)
CATCH
TRY
oObj := WIN_OleAuto():New( cApp )
CATCH
END
END

return oObj

Shuming Wang

[nageswaragunupudi]

viewtopic.php?f=3&t=22330