Cargar un bmp

[jrcpoli]

Saludos:
Tengo una DBF que contiene un campo que almacena el nombre de un fichero
bmp, para guardarlo en el campo de la DBF no tengo problemas al igual que lo
muestra facilmente al hacer el alta, me refiero al bmp.
METHOD EscudoBtnClick( oSender, Value ) CLASS TFormPaisesNew
IF ::oFileOpenDlg1:Run()
::oImage1:oPicture := ::oFileOpenDlg1:cFullFileName
::oEscudo:Value := ::oFileOpenDlg1:cFilenameOnly
ENDIF
RETURN Nil
El problema lo tengo cuando lo quiero editar, estando el nombre del bmp
dentro del campo de la base de datos, os adjunto el código incorrecto para
que alguno me pueda echar una mano, el nombre del campo del TDBEditBtn es
oEscudo.
METHOD InicialCreate( oSender ) CLASS TFormPaisesNew
Local cPath := "Banderas"
Local cName
Local cImagen
oSender:oDataSet := ::oParent:oDataSet
// Si el campo oEscudo contiene el nombre del fichero lo muestra
IF !Empty(::Escudo) // No es correcto puesto que no discrimina
cName := ::oEscudo:Value
cImagen := cPath + cName //Muestra: Banderasnombrefichero.bmp
IF File(::oEscudo)
//LoadFromFile
MsgInfo(" Sí tiene imagen " + cImagen)
//::oImage1:oPicture := ::LoadFromFile
ELSE
MsgInfo("El nombre fichero del escudo no existe, seleccione uno.")
ENDIF
ELSE
MsgInfo(" No tiene imagen ")
ENDIF
RETURN Nil
Espero haber sido bastante claro, sino mis disculpas.
José Ramón Castro Polinio
JRCPOLI@terra.es

[jrcpoli]

Nadie puede responder a mi pregunta en cuanto al tema de editar el
formulario con un nombre de fichero tipo bmp en un campo de la DBF.
Las Preguntas son:
1º) Como se carga el fichero que contiene el campo de la DBF que en este
caso de llama oEscudo y que es de tipo TDbfEditBnt, cuando no contiene datos
dando al botón y cargando el evento Clik, pero si ya contiene un nombre de
fichero.
2º) Como sé cuando el campo está con datos o vacio se que se utiliza
!Empty() pero al campo como se hace referencia dentro de ella.
Saludos.
José Ramón Castro Polinio.
"José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
news:42efc500$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Saludos:
>
> Tengo una DBF que contiene un campo que almacena el nombre de un
> fichero
> bmp, para guardarlo en el campo de la DBF no tengo problemas al igual que
> lo
> muestra facilmente al hacer el alta, me refiero al bmp.
>
> METHOD EscudoBtnClick( oSender, Value ) CLASS TFormPaisesNew
> IF ::oFileOpenDlg1:Run()
> ::oImage1:oPicture := ::oFileOpenDlg1:cFullFileName
> ::oEscudo:Value := ::oFileOpenDlg1:cFilenameOnly
> ENDIF
> RETURN Nil
>
> El problema lo tengo cuando lo quiero editar, estando el nombre del bmp
> dentro del campo de la base de datos, os adjunto el código incorrecto para
> que alguno me pueda echar una mano, el nombre del campo del TDBEditBtn es
> oEscudo.
>
> METHOD InicialCreate( oSender ) CLASS TFormPaisesNew
> Local cPath := "Banderas"
> Local cName
> Local cImagen
>
> oSender:oDataSet := ::oParent:oDataSet
>
> // Si el campo oEscudo contiene el nombre del fichero lo muestra
> IF !Empty(::Escudo) // No es correcto puesto que no discrimina
>
> cName := ::oEscudo:Value
> cImagen := cPath + cName //Muestra: Banderasnombrefichero.bmp
>
> IF File(::oEscudo)
> //LoadFromFile
> MsgInfo(" Sí tiene imagen " + cImagen)
> //::oImage1:oPicture := ::LoadFromFile
>
> ELSE
>
> MsgInfo("El nombre fichero del escudo no existe, seleccione uno.")
>
> ENDIF
> ELSE
>
> MsgInfo(" No tiene imagen ")
>
> ENDIF
> RETURN Nil
>
> Espero haber sido bastante claro, sino mis disculpas.
>
> José Ramón Castro Polinio
> JRCPOLI@terra.es
>
>

[jfgimenez]

José Ramón,
> // Si el campo oEscudo contiene el nombre del fichero lo muestra
> IF !Empty(::Escudo) // No es correcto puesto que no discrimina
IF !Empty(::Escudo:Value )
>
> cName := ::oEscudo:Value
> cImagen := cPath + cName //Muestra: Banderasnombrefichero.bmp
>
> IF File(::oEscudo)
> //LoadFromFile
> MsgInfo(" Sí tiene imagen " + cImagen)
> //::oImage1:oPicture := ::LoadFromFile
::oImage1:oPicture := TPicture():LoadFromFile( cImagen )
--
Un saludo,
José F. Giménez

[jrcpoli]

Perdona pero ocurre igual que antes que el campo de la base de datos que
está dentro de Empty da error
TFORMPAISESNEW:INICIALCREATE(54)
Error BASE/1004 Class: 'NIL' has no exported method: VALUE
Argumentos: ()
Aclaro en la DBF el campo se llama Escudo, en cVarName es oEscudo el Objeto
es un TDBEditBtn y la verdad no consigo que descrimine si tiene algo o está
vacio lo suyo sería comprobar si una vez que este lleno despues del punto es
".bmp,.jpg etc" pero primero queria porbar que discriminara, vacio o lleno.
Dá lo mismo que ponga !Empty(::Escudo:Value) que !Empty(::oEscudo:Value) dá
el mismo error.
Saludos.
José Ramón Castro.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:42f08baa$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> José Ramón,
>
>> // Si el campo oEscudo contiene el nombre del fichero lo muestra
>> IF !Empty(::Escudo) // No es correcto puesto que no discrimina
>
> IF !Empty(::Escudo:Value )
>
>
>>
>> cName := ::oEscudo:Value
>> cImagen := cPath + cName //Muestra: Banderasnombrefichero.bmp
>>
>> IF File(::oEscudo)
>> //LoadFromFile
>> MsgInfo(" Sí tiene imagen " + cImagen)
>> //::oImage1:oPicture := ::LoadFromFile
>
> ::oImage1:oPicture := TPicture():LoadFromFile( cImagen )
>
>
> --
> Un saludo,
>
> José F. Giménez
>
>

[jfgimenez]

José Ramón,
> TFORMPAISESNEW:INICIALCREATE(54)
> Error BASE/1004 Class: 'NIL' has no exported method: VALUE
> Argumentos: ()
Por el nombre del método deduzco que corresponde al evento OnCreate de algún
control. Si es así, ten en cuenta que los controles posteriores no se han
creado todavía, y su variable de instancia todavía es Nil.
Utiliza el evento OnInitialize del formulario, y pon en él ese código y
quítalo del evento actual.
--
Un saludo,
José F. Giménez

[jrcpoli]

No me respondas ya lo hago yo.
El problema era que trabajaba sobre un evento del campo, no sobre un evento
del formulario.
José Ramón Castro.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:42f08baa$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> José Ramón,
>
>> // Si el campo oEscudo contiene el nombre del fichero lo muestra
>> IF !Empty(::Escudo) // No es correcto puesto que no discrimina
>
> IF !Empty(::Escudo:Value )
>
>
>>
>> cName := ::oEscudo:Value
>> cImagen := cPath + cName //Muestra: Banderasnombrefichero.bmp
>>
>> IF File(::oEscudo)
>> //LoadFromFile
>> MsgInfo(" Sí tiene imagen " + cImagen)
>> //::oImage1:oPicture := ::LoadFromFile
>
> ::oImage1:oPicture := TPicture():LoadFromFile( cImagen )
>
>
> --
> Un saludo,
>
> José F. Giménez
>
>