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
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铆
#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