hola.
A ver si tengo mejor suerte de esta forma:
tengo un campo llamado pix en el dbf con la locacion de un jpg
"C:datapicsuno.jpg"
necesito saber como aplicar la utilizacion de ese campo PIX del dbf en un createthumbnail, no entiendo el valor especifico de los campos en el sintaxis
o si alguien sabe de un ejemplo que pueda leer para entenderlo
gracias adelantadas
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
jpg thumbnail
-
jrcpoli-quitar_1
- Mensajes: 37
- Registrado: Mar Jun 25, 2013 10:01 am
jpg thumbnail
El 30/05/2014 15:25, Josemo escribió:
> hola.
>
> A ver si tengo mejor suerte de esta forma:
>
> tengo un campo llamado pix en el dbf con la locacion de un
> jpg
> "C:datapicsuno.jpg"
>
> necesito saber como aplicar la utilizacion de ese campo PIX
> del dbf en un createthumbnail, no entiendo el valor
> especifico de los campos en el sintaxis
>
> o si alguien sabe de un ejemplo que pueda leer para
> entenderlo
>
>
> gracias adelantadas
>
>
Saludos:
No se si es exactamente lo que buscas pero me arriesgo.
Yo guardo el nombre de la imagen y su extensión en un campo de una base
de datos Dbf, el resto como el disco y el directorio depende de donde
este instalada la aplicación por lo tanto usando un ejemplo guardo
"Spain.bmp" en el campo de la base de datos, luego para obtener la ruta
completa uso:
Local cPath := Application:cDirectory + "Banderas"
cName := ::oEscudo:cText //TBDEditBtn
cImagen := cPath + cName // C:Banderasnombre.bmp
Para inicializar el formulario
METHOD FormInitialize( oSender ) CLASS TFormPaisesNew
*
// Inicializa el FileOpenDlg1
WITH OBJECT ::oFileOpenDlg1
:cFilter := "Ficheros de
imágenes|*.bmp;*.jpg;*.jpeg;*.gif|Todos los ficheros|*.*"
:cInitialDir := Application:cDirectory + "Banderas"
:cTitle := "Seleccione un Archivo"
END
*
//"Banderas"
RETURN Nil
Para guardar el nombre de la imagen en el campo correspondiente de la
base de datos empleo el evento OnBtnClick del TBDEditBtn así:
METHOD EscudoBtnClick( oSender, Value ) CLASS TFormPaisesNew
*
WITH OBJECT ::oFileOpenDlg1
*
// Si Estamos Editando
IF !::lEditar
** Si el campo oEscudo contiene el nombre del fichero lo muestra
IF !Empty(oSender:Value)
** Poner el nombre del fichero en FileOpenDlg
:cFilename := Alltrim(oSender:Value)
ENDIF
ENDIF
*
IF :Run()
*
::oImage1:oPicture := :cFullFileName
::oEscudo:Value := :cFilenameOnly
//::oDBMImagen:Value := TPicture():LoadFromFile(:cFullFileName)
*
ENDIF
*
END
RETURN Nil
Si lo que deseo visualizar la imagen en el formulario si existe uso el
evento OnShow del formulario así:
METHOD FormShow( oSender ) CLASS TFormPaisesNew
Local cPath := Application:cDirectory + "Banderas"
Local cName
Local cImagen
// Si el campo oEscudo contiene el nombre del fichero lo muestra IF
!Empty(::oEscudo:cText)
cName := ::oEscudo:cText
cImagen := cPath + cName //Muestra: Banderasnombrefichero.bmp
IF File(cImagen)
::oImage1:oPicture := TPicture():LoadFromFile(cImagen)
ELSE
MsgInfo("El nombre asignado al fichero del escudo no existe,
seleccione uno.")
ENDIF
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com
> hola.
>
> A ver si tengo mejor suerte de esta forma:
>
> tengo un campo llamado pix en el dbf con la locacion de un
> jpg
> "C:datapicsuno.jpg"
>
> necesito saber como aplicar la utilizacion de ese campo PIX
> del dbf en un createthumbnail, no entiendo el valor
> especifico de los campos en el sintaxis
>
> o si alguien sabe de un ejemplo que pueda leer para
> entenderlo
>
>
> gracias adelantadas
>
>
Saludos:
No se si es exactamente lo que buscas pero me arriesgo.
Yo guardo el nombre de la imagen y su extensión en un campo de una base
de datos Dbf, el resto como el disco y el directorio depende de donde
este instalada la aplicación por lo tanto usando un ejemplo guardo
"Spain.bmp" en el campo de la base de datos, luego para obtener la ruta
completa uso:
Local cPath := Application:cDirectory + "Banderas"
cName := ::oEscudo:cText //TBDEditBtn
cImagen := cPath + cName // C:Banderasnombre.bmp
Para inicializar el formulario
METHOD FormInitialize( oSender ) CLASS TFormPaisesNew
*
// Inicializa el FileOpenDlg1
WITH OBJECT ::oFileOpenDlg1
:cFilter := "Ficheros de
imágenes|*.bmp;*.jpg;*.jpeg;*.gif|Todos los ficheros|*.*"
:cInitialDir := Application:cDirectory + "Banderas"
:cTitle := "Seleccione un Archivo"
END
*
//"Banderas"
RETURN Nil
Para guardar el nombre de la imagen en el campo correspondiente de la
base de datos empleo el evento OnBtnClick del TBDEditBtn así:
METHOD EscudoBtnClick( oSender, Value ) CLASS TFormPaisesNew
*
WITH OBJECT ::oFileOpenDlg1
*
// Si Estamos Editando
IF !::lEditar
** Si el campo oEscudo contiene el nombre del fichero lo muestra
IF !Empty(oSender:Value)
** Poner el nombre del fichero en FileOpenDlg
:cFilename := Alltrim(oSender:Value)
ENDIF
ENDIF
*
IF :Run()
*
::oImage1:oPicture := :cFullFileName
::oEscudo:Value := :cFilenameOnly
//::oDBMImagen:Value := TPicture():LoadFromFile(:cFullFileName)
*
ENDIF
*
END
RETURN Nil
Si lo que deseo visualizar la imagen en el formulario si existe uso el
evento OnShow del formulario así:
METHOD FormShow( oSender ) CLASS TFormPaisesNew
Local cPath := Application:cDirectory + "Banderas"
Local cName
Local cImagen
// Si el campo oEscudo contiene el nombre del fichero lo muestra IF
!Empty(::oEscudo:cText)
cName := ::oEscudo:cText
cImagen := cPath + cName //Muestra: Banderasnombrefichero.bmp
IF File(cImagen)
::oImage1:oPicture := TPicture():LoadFromFile(cImagen)
ELSE
MsgInfo("El nombre asignado al fichero del escudo no existe,
seleccione uno.")
ENDIF
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com
-
jrcpoli-quitar_1
- Mensajes: 37
- Registrado: Mar Jun 25, 2013 10:01 am
jpg thumbnail
Saludos:
Veo que lo que buscas no es lo que te he mandado sino hacer la
presentación de una colección de miniaturas con este código que figura
en este enlace
http://msdn.microsoft.com/en-us/library/ets0sayh (v=vs.110).aspx?cs-save-lang=1&cs-lang=csharp#code-snipp et-1
Lo siento pero no te puedo ayudar.
El 30/05/2014 15:25, Josemo escribió:
> hola.
>
> A ver si tengo mejor suerte de esta forma:
>
> tengo un campo llamado pix en el dbf con la locacion de un
> jpg
> "C:datapicsuno.jpg"
>
> necesito saber como aplicar la utilizacion de ese campo PIX
> del dbf en un createthumbnail, no entiendo el valor
> especifico de los campos en el sintaxis
>
> o si alguien sabe de un ejemplo que pueda leer para
> entenderlo
>
>
> gracias adelantadas
>
>
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com
Veo que lo que buscas no es lo que te he mandado sino hacer la
presentación de una colección de miniaturas con este código que figura
en este enlace
http://msdn.microsoft.com/en-us/library/ets0sayh (v=vs.110).aspx?cs-save-lang=1&cs-lang=csharp#code-snipp et-1
Lo siento pero no te puedo ayudar.
El 30/05/2014 15:25, Josemo escribió:
> hola.
>
> A ver si tengo mejor suerte de esta forma:
>
> tengo un campo llamado pix en el dbf con la locacion de un
> jpg
> "C:datapicsuno.jpg"
>
> necesito saber como aplicar la utilizacion de ese campo PIX
> del dbf en un createthumbnail, no entiendo el valor
> especifico de los campos en el sintaxis
>
> o si alguien sabe de un ejemplo que pueda leer para
> entenderlo
>
>
> gracias adelantadas
>
>
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com
jpg thumbnail
Hola Tocayo !!
Gracias por esa tan valuable informacion y SI creo que me sirve para este projecto!!
te aviso cuando lo tenga implementado !
de nuevo Gracias!
Gracias por esa tan valuable informacion y SI creo que me sirve para este projecto!!
te aviso cuando lo tenga implementado !
de nuevo Gracias!