cRestoStr ( don´t work )

[lailton.webmaster]

#include "Fivewin.ch"
#define RT_HTML MAKEINTRESOURCE(23)
function main()
msginfo( cResToStr("PAGE", RT_HTML ) )
return

[lailton.webmaster]

up

[Antonio Linares]

Lailton,

FWH's cResToStr() source code is very simple so I suggest you to trace it

Code: Select all  Expand view

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( "" );
}
 

[lailton.webmaster]

i tryed more no work.

[Antonio Linares]

Lailton,

Change it this way:

Code: Select all  Expand view

  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( "" );
   }