FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Unrecoverable error 6005: Exception error
Antonio Mart.
Posts: 174
Joined: Sat Feb 23, 2013 10:04 AM
Unrecoverable error 6005: Exception error
Posted: Wed May 13, 2020 09:06 PM
Hola,

Me aparece el error Unrecoverable error 6005: Exception error cuando el pograma pasa por el CASE FN_UNZIP.
No s茅 cuando el programa pasa por el CASE FN_UZIP. 驴 Cuando es necesario ese c贸digo ?

驴 Alguna ayuda ?

Code (fw): Select all Collapse
//----------------------------------------------------------------------------//

METHOD Command( nWParam, nLParam ) CLASS TDialog

聽 聽local nNotifyCode, nID, hWndCtl


聽 聽Local oWnd 

聽 聽#ifdef __CLIPPER__
聽 聽 聽 nNotifyCode = nHiWord( nLParam )
聽 聽 聽 nID 聽 聽 聽 聽 = nWParam
聽 聽 聽 hWndCtl 聽 聽 = nLoWord( nLParam )
聽 聽#else
聽 聽 聽 nNotifyCode = nHiWord( nWParam )
聽 聽 聽 nID 聽 聽 聽 聽 = nLoWord( nWParam )
聽 聽 聽 hWndCtl 聽 聽 = nLParam
聽 聽#endif

聽 聽do case
聽 聽 聽 case ::oPopup != nil
聽 聽 聽 聽 聽 聽::oPopup:Command( nID )

聽 聽 聽 case hWndCtl == 0 .and. ::oMenu != nil
聽 聽 聽 聽 聽 聽::oMenu:Command( nID )

聽 聽 聽 case nID != 0
聽 聽 聽 聽 聽 聽do case
聽 聽 聽 聽 聽 聽 聽 case nNotifyCode == BN_CLICKED
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽*
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽*
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽if hWndCtl != 0 .and. nID != IDCANCEL
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 if ValType( ::nResult ) == "O" // latest control which had focus
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽#ifdef __HARBOUR__ 聽// FWH generates an endless loop when SetWindowText()
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 if ::nResult:lFocused
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽#endif
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::nResult:LostFocus() 聽 聽// updates related variable
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽#ifdef __HARBOUR__ 聽// FWH generates an endless loop when SetWindowText()
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 endif
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽#endif
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// There is a pending Valid, it is not a clicked button
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽if ::nResult:nID != nID .and. ! ::nResult:lValid()
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 return nil
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽endif
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 endif

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 if AScan( ::aControls, { |o| o:nID == nID } ) > 0
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽#ifdef __XPP__
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 PostMessage( hWndCtl, FM_CLICK, 0, 0 )
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽#else
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 SendMessage( hWndCtl, FM_CLICK, 0, 0 )
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽#endif
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 elseif nID == IDOK
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::End( IDOK )
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 endif
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽else
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 if nID == IDOK
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::GoNextCtrl( GetFocus() )
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 elseif hWndCtl != 0 .and. ; // There is a control for IDCANCEL
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽AScan( ::aControls, { |o| o:nID == nID } ) > 0
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 SendMessage( hWndCtl, FM_CLICK, 0, 0 )
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 else
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::End( IDCANCEL )
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 endif
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽endif

聽 聽 聽 聽 聽 聽 聽 case nNotifyCode == CBN_SELCHANGE
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽SendMessage( hWndCtl, FM_CHANGE, 0, 0 )

聽 聽 聽 聽 聽 聽 聽 case nID == FN_ZIP 聽 // FiveWin notifications codes
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::Zip( nLParam )

聽 聽 聽 聽 聽 聽 聽 case nID == FN_UNZIP
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::UnZip( nPtrWord( nLParam ) ) 聽 聽 聽 聽 // <<--------------------------------- Aqu铆 el ERROR 
聽 聽 聽 聽 聽 聽endcase
聽 聽endcase

return nil


La lista de llamadas es:

Called from NPTRWORD(0)
Called from TDIALOG:COMMAND(670) in FueAje\Five\Dialog.prg
Called from TWINDOW:HANDLEEVENT(0)
Called from TDIALOG:HANDLEEVENT(1516) in FueAje\Five\Dialog.prg
Called from CALLWINDOWPROC(0)
Called from TMULTIGET:GOTFOCUS(849) in FueAje\Five\mget.prg
Called from TWINDOW:HANDLEEVENT(0)
Called from TMULTIGET:HANDLEEVENT(1427) in FueAje\Five\Control.prg
Called from _FWH(3678) in SrcImp\Window.prg
Called from DIALOGBOXINDIRECT(0)
Called from TDIALOG:ACTIVATE(460) in FueAje\Five\Dialog.prg
Called from TMSG:ACTIVATE(364) in FueMio\Msg.prg
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Unrecoverable error 6005: Exception error
Posted: Thu May 14, 2020 04:19 AM

This is not the standard FWH version. It looks like your own adaptation and you need to look for answers yourself.

Regards



G. N. Rao.

Hyderabad, India
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Unrecoverable error 6005: Exception error
Posted: Thu May 14, 2020 04:38 AM
Antonio,

Modifica esta funci贸n de esta forma e incl煤yela en tu PRG dentro de una secci贸n #pragma BEGINDUMP ... #pragma ENDDUMP
Code (fw): Select all Collapse
HB_FUNC( NPTRWORD )
{
   #ifndef _WIN64
      hb_retnl( * ( WORD * ) hb_parnl( 1 ) );
   #else
      hb_retnll( * ( LONGLONG * ) hb_parnll( 1 ) );
   #endif
}
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Mart.
Posts: 174
Joined: Sat Feb 23, 2013 10:04 AM
Re: Unrecoverable error 6005: Exception error
Posted: Thu May 14, 2020 06:18 AM
nageswaragunupudi wrote:This is not the standard FWH version. It looks like your own adaptation and you need to look for answers yourself.



Mr. Rao,

I think that a original old code piece of fivewin.

Regards
Antonio Mart.
Posts: 174
Joined: Sat Feb 23, 2013 10:04 AM
Re: Unrecoverable error 6005: Exception error
Posted: Thu May 14, 2020 06:22 AM
Antonio Linares wrote:Antonio,

Modifica esta funci贸n de esta forma e incl煤yela en tu PRG dentro de una secci贸n #pragma BEGINDUMP ... #pragma ENDDUMP
Code (fw): Select all Collapse
HB_FUNC( NPTRWORD )
{
聽 聽#ifndef _WIN64
聽 聽 聽 hb_retnl( * ( WORD * ) hb_parnl( 1 ) );
聽 聽#else
聽 聽 聽 hb_retnll( * ( LONGLONG * ) hb_parnll( 1 ) );
聽 聽#endif
}


Antonio,

Me anticip茅 y desactive el manejo de los mensajes FN_ZIP y FN_UNZIP.. por lo que estuve viendo, en mi caso, no tienen sentido... o eso espero.

Gracias por responder
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Unrecoverable error 6005: Exception error
Posted: Thu May 14, 2020 03:10 PM
Antonio Mart. wrote:
nageswaragunupudi wrote:This is not the standard FWH version. It looks like your own adaptation and you need to look for answers yourself.



Mr. Rao,

I think that a original old code piece of fivewin.

Regards




Even in the older versions, this code was applicable to 16-bit Clipper only but never to 32-bit FWH.
Taken from FWH 08.02
Code (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 聽 #ifdef __CLIPPER__

聽 聽 聽 聽 聽 聽 聽 case nWParam == FN_UNZIP // FiveWin notification codes
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::UnZip( nPtrWord( nLParam ) )

聽 聽 聽 聽 聽 聽 聽 case nWParam == FN_ZIP
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::Zip( nLParam )

聽 聽 聽 聽 聽 聽 聽 #endif


In later versions, this code was removed for obvious reasons.
So this code was never there in 32-bit FWH either in very old versions or recent versions.
That is the reason, I was surprised to see this code in your current TWindow class.


Me anticip茅 y desactive el manejo de los mensajes FN_ZIP y FN_UNZIP.. por lo que estuve viendo, en mi caso, no tienen sentido... o eso espero.


That is the reason this code was never a part of 32/64 bit FWH.
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions