topic-23120

Posts: 417

Joined: Tue Feb 23, 2010 03:09 PM

minor bug in FW 11.11
Posted: Sat Dec 17, 2011 02:24 PM

Hello,

When using Treport and prew32.dll is not present, it produces this error:

   Error description: Error FiveWin/3  Cannot create Dialog Box: 
                      Resource: PREVIEW_PROC

Stack Calls
===========
   Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 531 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 269 )
   Called from: .\source\classes\REPORT.PRG => TREPORT:ACTIVATE( 886 )

It should be very interesting to modify method Activate() to check if prev32.dll /64 or preview.dll is there.

Current code is not working:

Code (fw): Select all Collapse

  ::hOldRes := GetResources()

   #ifdef __CLIPPER__
      SET RESOURCES to "preview.dll"
   #else
      if ! IsWin64()
         SET RESOURCES to "prev32.dll"
      else   
         SET RESOURCES to "prev64.dll"
      endif
   #endif

   if GetResources() < 32
      #ifdef __CLIPPER__
         MsgStop( "Preview.dll not found", "Error" )
      #else
         if ! IsWin64()
            MsgStop( "Prev32.dll not found", "Error" )
         else   
            MsgStop( "Prev64.dll not found", "Error" )
         endif
      #endif
      SetResources( ::hOldRes )
      return nil
   endif

It does not show msgstop.

Thanks.

FWH 11.11, Harbour 3.1 and Borland C++ 5.82

ukservice

Posts: 417

Joined: Tue Feb 23, 2010 03:09 PM

Re: minor bug in FW 11.11
Posted: Mon Dec 19, 2011 02:20 PM

up.

FWH 11.11, Harbour 3.1 and Borland C++ 5.82

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: minor bug in FW 11.11
Posted: Mon Dec 19, 2011 03:09 PM

John,

Fixed this way:

Code (fw): Select all Collapse

   if ! IsWin64()
      if ! File( "prev32.dll" )
         MsgAlert( "prev32.dll not found", "Error" )
         SetResources( ::hOldRes )
         return nil
      else   
         SET RESOURCES to "prev32.dll"
      endif   
   else   
      if ! File( "prev64.dll" )
         MsgAlert( "prev64.dll not found", "Error" )
         SetResources( ::hOldRes )
         return nil
      else   
         SET RESOURCES to "prev64.dll"
      endif   
   endif

Thanks!

regards, saludos

Antonio Linares
www.fivetechsoft.com

ukservice

Posts: 417

Joined: Tue Feb 23, 2010 03:09 PM

Re: minor bug in FW 11.11
Posted: Mon Dec 19, 2011 03:17 PM

Thanks.

Will you include in FW 11.12?.

FWH 11.11, Harbour 3.1 and Borland C++ 5.82

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: minor bug in FW 11.11
Posted: Mon Dec 19, 2011 03:36 PM

Yes, of course :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

norberto

Posts: 566

Joined: Thu Aug 30, 2007 03:40 PM

Re: minor bug in FW 11.11
Posted: Fri Jan 13, 2012 12:30 PM

hi, im using windows 7 64 pro and fwh11.12, but my appl is not found prev32.dll, in fwh11.11 work fine.
prev32.dll is in appl directory.

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: minor bug in FW 11.11
Posted: Fri Jan 13, 2012 03:59 PM

Code (fw): Select all Collapse

set defa to 
?file("prev32.dll")  // return .t.
set defa to c:\miapp\datos
?file("prev32.dll") // return .f.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

FiveTech Support Forums

Continue the discussion