FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)Last update on Sat Oct 17, 2026 02:08 PM UTC
Board index FiveWin para Harbour/xHarbour Cargar imagen
acuellar
Posts: 1713
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 Cuéllar

Armando
Posts: 3382
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: 1713
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 Cuéllar

Willi Quintana
Posts: 1070
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: 8716
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: 1713
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 Cuéllar

jbrita
Posts: 539
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: 1713
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 Cuéllar

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: 3382
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

Continue the discussion

Static archive · New replies & topics via GitHub Discussions