FiveTech Software tech support forums

... en los dialogos que lo necesito pongo esto: Redefine Image oImg1 ID 81 OF oDlgMain adjust on click fNavegar(_JpgWebPublicidad) if Len( cJpg1 := cResToStr( "JPG_1", RT_RCDATA ) ) != 0 oImg1:LoadFromMemory( cJpg1 ) else msginfo('Error, no se pudo cargar la imagen '+cJpg1) endif funciona ...

Usando FWH64 la función FILoadFromMemory( cResToStr( cResName1, 10 ), 10 ) no devuelve ningun valor, aunque el bitmap exista en el recurso.

Estoy usando la clase TBtmBmp() desde Recursos.

Saludos

... returns .f.. Fixed now. Thanks to Mr. Esar E.Lozada. * Enhancement: Class TClipboard now properly retrieves Unicode text. * Enhancement: function cResToStr( cnResName, nType ) --> cResourceBytes now uses a number as the second parameter to specify the type of the resource. For a list of the ...

Hi Antonio Here is the stripped down list, for clarity purpose the irrelevant entries are removed. ---------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------...

Lailton, Change it this way:   if( hRes )   {      hglb = LoadResource( ( HINSTANCE ) GetResources(), hRes );      if( hglb ) // && ! ( GlobalFlags( hglb ) && GMEM_DISCARDED ) )    &nb...

i tryed more no work.

Lailton, FWH's cResToStr() source code is very simple so I suggest you to trace it :-) HB_FUNC( CRESTOSTR )   // ( cnResName, cType ) --> cResourceBytes{   #ifndef UNICODE      HRSRC ...

up

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

... CreateHatchBrush() CreateMenu() CreateOLEObject() CreatePatternBrush() CreatePen() CreatePopUpMenu() CreateSolidBrush() CreateWindow() cResToStr() cStrWord() cTempFile() Ctl3dlook() CtrlDrawFocus() CurDrive() Cursor() CursorArrow() CursorCatch() CursorHand() CursorIbeam() CursorNS() ...

... to draw a bitmap with alphablend directly from a stream. Sample code, 7777 is my alphabitmap resource. This code can be optimized by calling cResToStr() directly from StreamAlphaBlend():   local hDC := oDlg:GetDC()   StreamAlphaBlend( hDC, 7777, 0, 0, 255, cResToStr( 7777, ...

very good

Hi Antonio, This is the right code: HB_FUNC( CRESTOSTR ){   HMODULE hMod = GetResources();   HRSRC hRes = FindResource( hMod, MAKEINTRESOURCE( hb_parni( 1 ) ), "PNG" );  // need change to get ...

Toninho,

Please try this:

In your RC file:
test PNG "file.png"

then from your PRG:
MsgInfo( Len( cResToStr( "test", "PNG" ) ) )