Saludos

[Uri]

[list]Con este código capturo y visualizo ficheros .bmp con clipper ,FW, y blinker. en pantalla y los grabo en base de datos


@16,38 combobox oCombo var cfoto iTems aFiles valid (ofoto:loadbmp;("..\album\"+cfoto+".bmp"),ofoto:refresh().t.) of oDlg

@5,25 bitmap ofoto filename ("..\album\"+cfoto+".bmp") adjust size 280,210

[Uri]

[list]Con este código capturo y visualizo ficheros .bmp con clipper ,FW, y blinker. en pantalla y los grabo en base de datos


@16,38 combobox oCombo var cfoto iTems aFiles valid (ofoto:loadbmp;("..\album"+cfoto+".bmp"),ofoto:refresh().t.) of oDlg

@5,25 bitmap ofoto filename ("..\album"+cfoto+".bmp") adjust size 280,210

El problema surge al pasarlo a harbour: no lo visualiza en pantalla.
¿Como podriamos adaptarlo a todo tipo de ficheros de imagen?

[Antonio Linares]

Uri,

Modifica esta línea así:

@ 16,38 combobox oCombo var cfoto iTems aFiles ON CHANGE (ofoto:loadbmp(cfoto+".bmp"),ofoto:refresh() ) of oDlg

Para mostrar cualquier tipo de imagen cambia BITMAP por IMAGE:

@5,25 IMAGE ofoto filename ("..\album\"+cfoto+".bmp") adjust size 280,210

y asegúrate de tener ( FWH\DLLS\ ) FreeImage.DLL en el mismo directorio en donde esté tu aplicación

[Uri]

Saludos de nuevo Antonio:
Pues sigue sin funcionarme la función de capturar imagenes a través de un combobox como lo hacia con clipper .No se visualiza en pantalla,aunque si se graba el campo.

El único modo es una vez capturado el campo, editar la base de datos con dbu.exe y en el campo foto suprimir la extensión .bmp, .jpg, .gif etc.
Entonces:
Con loadbmp\"+cfoto+".bmp" sólo visualizo los que tenian extensión .bmp
Con loadbmp\"+cfoto+".jpg" sólo visualizo los que tenian extensión .jpg
Así como con IMAGE ofoto, con loadimage. etc.

Tambien he probado utilizando alltrim(cfoto), en la cabecera pongo el #include"Image.ch", el fichero freeimage.dll lo tengo en todos los directorios del programa.
¿Tendría algo que ver que el campo cfoto tenga 24 caracteres.?
Saludos :Félix Urí

[Antonio Linares]

Uri,

Prueba este ejemplo y verás que funciona correctamente:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, cFoto := "one", oFoto
   local aFiles := { "one", "two", "three" }

   DEFINE DIALOG oDlg SIZE 400, 300

   @ 1, 1 combobox oCombo var cfoto iTems aFiles ON CHANGE (ofoto:loadbmp(cfoto+".png"),ofoto:refresh() ) of oDlg

   @ 1, 7 IMAGE ofoto filename ( cfoto + ".png" ) adjust size 120,120

   ACTIVATE DIALOG oDlg CENTERED

return nil


Proporciónale tres archivos .PNG ("one.png", "two.png" y "three.png")