Page 1 of 1
Saludos
Posted: Tue Mar 06, 2007 12:06 pm
by Uri
- 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
Re: Saludos
Posted: Wed Mar 07, 2007 7:20 am
by Uri
Uri wrote:- 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?
Posted: Wed Mar 07, 2007 7:53 am
by 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
captura de ficheros de imagen en un combobox
Posted: Thu Mar 08, 2007 7:31 am
by 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í
Posted: Thu Mar 08, 2007 8:05 am
by Antonio Linares
Uri,
Prueba este ejemplo y verás que funciona correctamente:
Code: Select all
#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")