Cargar imagen

[acuellar]

Hola amigos

con: oImager:LoadBmp( "C:\IMAGE.BMP" ) la carga desde el disco.

Cómo cargo una imagen desde recurso?

Gracias por la ayuda

Saludos,

Adhemar

[Armando]

Adhemar:

Intentalo así

Code: Select all  Expand view  RUN

LOCAL aBmps := {LoadBitMap(GetResources(),"Si"),;
        LoadBitMap(GetResources(),"No")}
 

Saludos

[acuellar]

Gracias Armando

No funciona

Hago lo siguiente

Code: Select all  Expand view  RUN

  oPoster:=LoadBitMap(GetResources(),"POSTER")
 @55,315 IMAGE oPoster OF oWnd NOBORDER PIXEL SIZE 300,400 ADJUST
 

y no muestra la imagen

tambien he intentado con LoadResource()

Saludos,

Adhemar

[Willi Quintana]

Hola,,, asi funciona,,,
1ro,,, "Muestra" la imagen:
REDEFINE IMAGE oImagen RESOURCE "NOIMAGEN" ............. // "NOIMAGEN" en un bmp en blanco o lo que fuere que esta en el .res
2do,,, cambia la imagen asi:
oImagen := LoadBitMap(GetResources(),"NUEVAIMAGEN")

y listo...

[nageswaragunupudi]

Hola amigos

con: oImager:LoadBmp( "C:\IMAGE.BMP" ) la carga desde el disco.

Cómo cargo una imagen desde recurso?

Gracias por la ayuda

Saludos,

Adhemar

Please use method LoadImage() instead of LoadBmp()

oImager:LoadImage( cBmpFile, cResourceName, [cResFileName] )

For loading bitmap file, oImager:LoadImage( cBmpFileName )
For loading resource, oImager:LoadImage( nil, cResourceName )
For loading resource from a different dll file, you can specify the dll file name in the 3rd parameter( optional ).

While creating image:
REDFINE ( or @<r>,<c> ) IMAGE RESOURCE <cresname>

[karinha]

Code: Select all  Expand view  RUN

    REDEFINE BITMAP oFiveWin ID 121 RESOURCE "FIVEPOWER" TRANSPARENT OF oDlg
 

[acuellar]

Gracias amigos

He intentado de todas formas y no cambia la foto
la idea es esta, tengo las fotos cargadas a un campo de imagen, cuando existe muestra, y si no mantiene la anterior
Hago asi:

Code: Select all  Expand view  RUN

 @55,315 IMAGE oFoto  OF oWnd NOBORDER PIXEL SIZE 300,400 ADJUST
*en el Browse
 oBrw:bChange:={|| BuscaFoto() }
*
*La funcion
Static Function BusFoto()
 IF !EMPTY(FOTO) //Campo de imagen
    BLOBExport(FieldPos("FOTO"), "FOTO.JPG", BLOB_EXPORT_OVERWRITE)
    oFoto:LoadBmp( cPath+"FOTO.JPG" ) //Perfecto la muestra
 Else
    oFoto:LoadImage( nil,"SINFOTO" ) //imagen de recurso no la muestra
 Endif
 oFoto:Refresh()
 

Saludos,

Adhemar

[jbrita]

esto igual sirve

REDEFINE IMAGE oBmp1 FILENAME cBitmap1 ADJUST ID 114 OF oFld:aDialogs[ 4 ] SCROLL UPDATE

REDEFINE BUTTON ID 115 OF oFld:aDialogs[ 4 ];
ACTION( Fot_Jug:= cGetFile32("JPEG (*.jpg) | *.jpg | BITMAP (*bmp)| *.bmp", "Seleccionar Imagen" ), ;
cBitmap1 := AllTrim( Fot_jug), oBmp1:LoadBmp( cBitmap1 ), oBmp1:Refresh(),oDlg:Update() )

REDEFINE GET cBitmap1 ID 116 OF oFld:aDialogs[ 4 ] ON CHANGE( cBitmap1 := AllTrim( Fot_Jug ),;
oBmp1:Load( cBitmap1 ), oBmp1:Refresh() ) UPDATE


Saludos

[nageswaragunupudi]

Mr. acuellar

The code can be much simpler. Please see the sample program I posted here. For this sample I have used \fwh\samples\wwonders.dbf. This file has a memo field "IMAGE" which contains image buffers of jpeg files, similar to the field "FOTO" in your example.

Code: Select all  Expand view  RUN

#include 'fivewin.ch'
#include 'xbrowse.ch'

REQUEST DBFCDX

function Main()

   local oDlg, oBrw, oImage, oFont

   USE WWONDERS VIA "DBFCDX"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
   DEFINE DIALOG oDlg SIZE 680,440 PIXEL FONT oFont

   @  10, 10 XBROWSE oBrw SIZE 120,200 PIXEL OF oDlg ;
      COLUMNS "Name" COLSIZES 10 ;
      ALIAS "WWONDERS" CELL LINES NOBORDER

   @  10,130 IMAGE oImage SIZE 200,200 PIXEL OF oDlg ADJUST
   oImage:LoadFromMemory( WWONDERS->IMAGE )

   WITH OBJECT oBrw
      :nStretchCol      := 1
      :lHScroll         := .f.
      :bChange          := { || oImage:LoadFromMemory( WWONDERS->IMAGE ), oImage:Refresh() }
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil
 

Please note the usage of oImage:LoadFromMemory( <cAlias>-><cImageFieldName> )
#1. No need to use blob functions
#2. No need to write the image to disk and load to image object. Instead we can load the image directly from memory using the method LoadFromMemory

[acuellar]

Thanks Rao

Now its OK

Regards

Adhemar

[joseguillermosanchez]

Hola Rao

Como insertas una imagen JPG en un campo memo ?

Gracias...

Saludos

[nageswaragunupudi]

Hola Rao

Como insertas una imagen JPG en un campo memo ?

Gracias...

Saludos

FIELD->IMAGE := MEMOREAD( "OURIMAGE.JPG" )

[Armando]

Mr. Rao:

And how to read the image from the field and show it on a Timage control ?

This is my source code

Code: Select all  Expand view  RUN

LOCAL cFileName := "C:\RefWin\Imagenes\Imagen0.Jpg"
...
...
REDEFINE IMAGE oImagen ID 100 OF oDlg FILENAME cFileName ADJUST
....
....
// The user can choice a new image
REDEFINE BUTTON oBuscar ID 900 OF oDlg UPDATE;
    ACTION (cFileName := cGetFile("*.Jpg",;
    "Seleccione la imágen de esta parte",1,;
    ".\Imagenes"),oImagen:LoadBmp(cFileName ));
    MESSAGE "Busca la imágen a mostrar"
....
....
// To save the image on a mysql table
oRsPar:Fields("PAR_IMG"):Value := MEMOREAD(cFileName)
oRsPar:UpDate()
 

Best regards, thanks for your help