topic-22302

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Cargar imagen
Posted: Thu Sep 01, 2011 09:50 PM

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

Saludos,

Adhemar C.

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Cargar imagen
Posted: Thu Sep 01, 2011 09:53 PM

Adhemar:

Intentalo así

Code (fw): Select all Collapse

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Cargar imagen
Posted: Thu Sep 01, 2011 10:25 PM

Gracias Armando

No funciona

Hago lo siguiente

Code (fw): Select all Collapse

  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

Saludos,

Adhemar C.

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Cargar imagen
Posted: Fri Sep 02, 2011 12:15 AM

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

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Cargar imagen
Posted: Fri Sep 02, 2011 03:54 AM

acuellar wrote: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>

Regards

G. N. Rao.

Hyderabad, India

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Cargar imagen
Posted: Fri Sep 02, 2011 12:35 PM

Code (fw): Select all Collapse

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Cargar imagen
Posted: Fri Sep 02, 2011 01:28 PM

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 (fw): Select all Collapse

 @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

Saludos,

Adhemar C.

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: Cargar imagen
Posted: Fri Sep 02, 2011 02:32 PM

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(&quot;JPEG (*.jpg) | *.jpg | BITMAP (*bmp)| *.bmp&quot;, &quot;Seleccionar Imagen&quot; ), ;
         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

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Cargar imagen
Posted: Fri Sep 02, 2011 03:04 PM

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 (fw): Select all Collapse

#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

Regards

G. N. Rao.

Hyderabad, India

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Cargar imagen
Posted: Fri Sep 02, 2011 03:26 PM

Thanks Rao

Now its OK

Regards

Adhemar

Saludos,

Adhemar C.

joseguillermosanchez

Posts: 10

Joined: Sun Aug 07, 2011 07:24 PM

Re: Cargar imagen
Posted: Sat Sep 03, 2011 02:50 AM

Hola Rao

Como insertas una imagen JPG en un campo memo ?

Gracias...

Saludos

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Cargar imagen
Posted: Sat Sep 03, 2011 04:20 AM

joseguillermosanchez wrote:Hola Rao

Como insertas una imagen JPG en un campo memo ?

Gracias...

Saludos

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

Regards

G. N. Rao.

Hyderabad, India

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Cargar imagen
Posted: Fri Dec 16, 2011 04:31 PM

Mr. Rao:

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

This is my source code

Code (fw): Select all Collapse

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion