include "Fivewin.ch"
define RT_HTML MAKEINTRESOURCE(23)
function main()
msginfo( cResToStr("PAGE", RT_HTML ) )
return
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour cRestoStr ( donĀ“t work )
up 
Lailton,
FWH's cResToStr() source code is very simple so I suggest you to trace it
FWH's cResToStr() source code is very simple so I suggest you to trace it
HB_FUNC( CRESTOSTR ) // ( cnResName, cType ) --> cResourceBytes
{
#ifndef UNICODE
HRSRC hRes = FindResource( ( HINSTANCE ) GetResources(),
( LPCSTR ) IF( HB_ISNUM( 1 ), ( LPCSTR ) hb_parnl( 1 ), hb_parc( 1 ) ),
( LPCSTR ) hb_parc( 2 ) );
HGLOBAL hglb;
#else
LPWSTR pW = AnsiToWide( ( char * ) hb_parc( 1 ) );
HRSRC hRes = FindResource( ( HINSTANCE ) GetResources(),
( LPWSTR ) IF( ISNUM( 1 ), ( LPWSTR ) hb_parnl( 1 ), pW ),
( LPWSTR ) hb_parc( 2 ) );
HANDLE hglb;
_xfree( pW );
#endif
if( hRes )
{
hglb = LoadResource( ( HINSTANCE ) GetResources(), hRes );
if( hglb ) // && ! ( GlobalFlags( hglb ) && GMEM_DISCARDED ) )
{
hb_retclen( ( LPSTR ) LockResource( hglb ), SizeofResource( GetResources(), hRes ) );
#ifndef UNICODE
UnlockResource( hglb );
#endif
}
else
hb_retc( "" );
}
else
hb_retc( "" );
}i tryed more no work.
Lailton,
Change it this way:
Change it this way:
if( hRes )
{
hglb = LoadResource( ( HINSTANCE ) GetResources(), hRes );
if( hglb ) // && ! ( GlobalFlags( hglb ) && GMEM_DISCARDED ) )
{
hb_retclen( ( LPSTR ) LockResource( hglb ), SizeofResource( GetResources(), hRes ) );
#ifndef UNICODE
UnlockResource( hglb );
#endif
}
else
{
MessageBox( 0, "Can't load resource", "error", 0 );
hb_retc( "" );
}
}
else
{
MessageBox( 0, "Can't find resource", "error", 0 );
hb_retc( "" );
}