Imágenes en una DBF

[AIDA]

Hola

Alguien sabe como se guarda una imagen en una dbf y como se debe leer para presentarla en la pantalla


Gracias...

Saluditos

[leandro]

Una idea

Code: Select all  Expand view  RUN

function guardaImg()
local rutaimg := ".\imgs\laimagen.bmp"
local rutaTXT := ".\imgs\laimagen.txt"

//CONVERTIMOS LA IMAGEN A TEXTO
fMimeEnc( rutaimg, rutaTXT ) //Convertimos la imagen en base64
cText := MemoRead( rutaTXT ) //Con la info en la variable la puedes guardar en la dbf
 

[hmpaquito]

A no ser que sean pocas imágnes, es muy desaconsejable guardar las imagenes en las tablas, sean .dbf o sean tablas Mysql

[karinha]

A no ser que sean pocas imágnes, es muy desaconsejable guardar las imagenes en las tablas, sean .dbf o sean tablas Mysql

De acuerdo. Mejor és guardar en archivos .RC ó .RES.

IMAGENES.RES
IMAGENES2.RES
IMAGENES3.RES

etc.

Saludos.

[nageswaragunupudi]

A no ser que sean pocas imágnes, es muy desaconsejable guardar las imagenes en las tablas, sean .dbf o sean tablas Mysql

De acuerdo. Mejor és guardar en archivos .RC ó .RES.

IMAGENES.RES
IMAGENES2.RES
IMAGENES3.RES

etc.

Saludos.

Personally I prefer to save in the tables. There are limitations on the total size of DBF files but there is no such limitation with ADS and any RDBMS like MySql, Oracle, etc.
There are ways to fine-tune the performance of the tables despite storing huge catalogs of images in the tables.
Anyway, it is a matter of opinion and personal preferences.

[nageswaragunupudi]

Una idea

Code: Select all  Expand view  RUN

function guardaImg()
local rutaimg := ".\imgs\laimagen.bmp"
local rutaTXT := ".\imgs\laimagen.txt"

//CONVERTIMOS LA IMAGEN A TEXTO
fMimeEnc( rutaimg, rutaTXT ) //Convertimos la imagen en base64
cText := MemoRead( rutaTXT ) //Con la info en la variable la puedes guardar en la dbf
 

This is not necessary.

[nageswaragunupudi]

Storing images in DBF and displaying
Sample-1

Code: Select all  Expand view  RUN

  DBCREATE( "MYIMAGES", { { "NAME", "C", 10, 0 }, { "IMAGE", "M", 10, 0 } }, "DBFCDX", .T., "IMG" )
   DBAPPEND()
   FIELD->NAME  := "OLGA1"
   FIELD->IMAGE := MEMOREAD( "c:\fwh\bitmaps\olga1.jpg" )
   DBAPPEND()
   FIELD->NAME  := "SEA"
   FIELD->IMAGE := MEMOREAD( "c:\fwh\bitmaps\sea.bmp" )
   GO TOP
   XBROWSER
 

[nageswaragunupudi]

Sample-2

Using the DBF we created above:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oFont, oBrw, oImage

   USE MYIMAGES NEW VIA "DBFCDX"

   DEFINE FONT oFont NAME "VERDANA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 600,500 PIXEL TRUEPIXEL FONT oFont

   @ 20, 20 XBROWSE oBrw SIZE 150,-20 PIXEL OF oDlg ;
      DATASOURCE "MYIMAGES" COLUMNS "NAME" LINES NOBORDER

   WITH OBJECT oBrw
      :bChange := { || oImage:Refresh() }
      //
      :CreateFromCode()
   END

   @ 20,200 XIMAGE oImage SOURCE MYIMAGES->IMAGE SIZE -20,-20 OF oDlg

   ACTIVATE DIALOG oDlg CENTERED ON INIT oImage:Refresh()
   RELEASE FONT oFont

return nil
 

[acuellar]

Mr. Rao

DBCREATE( "MYIMAGES", { { "NAME", "C", 10, 0 }, { "IMAGE", "M", 8, 0 } }, "DBFCDX", .T., "IMG" )

There is a difference between saving in MEMO field or PICTURE field?

Thanks.

[AIDA]

Hola es que tengo pensado que las fotos que quiera guardar el usuario sean guardadas en un dbf


Saluditos

Hello, I have thought that the photos that the user wants to save are saved in a dbf


Greetings: wink:

[nageswaragunupudi]

Hello, I have thought that the photos that the user wants to save are saved in a dbf

Yes. We can save the photos that the user wants.
Can you explain what exactly you are looking for?

[AIDA]

Hello, I have thought that the photos that the user wants to save are saved in a dbf

Yes. We can save the photos that the user wants.
Can you explain what exactly you are looking for?

It is a program for people who build scale models is to register their finished models as if they are in a box is to record the data and photograph of the model or the box

es un programa para personas que arman modelos a escala es para que registren sus modelos terminados a si como los que a un están en caja es registrar los datos y fotografía del modelo o la caja

[ACC69]

Sample-2

Using the DBF we created above:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oFont, oBrw, oImage

   USE MYIMAGES NEW VIA "DBFCDX"

   DEFINE FONT oFont NAME "VERDANA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 600,500 PIXEL TRUEPIXEL FONT oFont

   @ 20, 20 XBROWSE oBrw SIZE 150,-20 PIXEL OF oDlg ;
      DATASOURCE "MYIMAGES" COLUMNS "NAME" LINES NOBORDER

   WITH OBJECT oBrw
      :bChange := { || oImage:Refresh() }
      //
      :CreateFromCode()
   END

   @ 20,200 XIMAGE oImage SOURCE MYIMAGES->IMAGE SIZE -20,-20 OF oDlg

   ACTIVATE DIALOG oDlg CENTERED ON INIT oImage:Refresh()
   RELEASE FONT oFont

return nil
 

Hola buenos dias Ing. Mr. Rao Nages, que tal como esta, se me viene a la mente de si se puede guardar archivos pdf en una tabla dbf?, ya que vi su ejemplo que esta excelente para un mini proyecto que deseo visualizar con un programa que estoy pensando desarrollar, donde todos mis archivos las guardo en una carpeta ya sea imagenes, pdfs y archivos .doc, y con un programa realizado por mi, pueda yo visualizar los archivos guardados en una tabla dbf??

Se puede Ing. Mr Raro o alguien que lo haya hecho y pueda compartir trozo de visualizar todo tipo de archivo antes mencionado, esto es con la finalidad de que el usuario de evitar abrir uno por uno cada archivo ya sea imagen o pdf, o cualquier otro tipo de archivo, simplemente visualizar navegando estilo xbrowse .

Saludos quedo a la respuesta favorable.

Atte: Adriano C. C.

[nageswaragunupudi]

You can store any data in a memofield:

Code: Select all  Expand view  RUN

FIELD->MEMOFIELDNAME := MEMOREAD( <anyfile> )
 

When reading, how do you plan to show pdf, docx files, etc?

[ACC69]

You can store any data in a memofield:

Code: Select all  Expand view  RUN

FIELD->MEMOFIELDNAME := MEMOREAD( <anyfile> )
 

When reading, how do you plan to show pdf, docx files, etc?

Hola Ing. Mr Rao Nages como esta, espero que bien!, esa es una muy buena pregunta como debo mostrar el contenido almacenado en mi tabla dbf los archivos, pdf,docx, etc etc , yo pensaba como la muestra de su ejemplo de la imagen a la derecha crear un dialogo que me muestre todo tipo de archivos, navegando por xbrowse o tiene alguna sugerencia que nos puede ayudar y beneficiar a todos??

Para iniciar a desarrollar ese pequeño programa que tengo en mente y no estar abriendo y cerrando con diferente aplicacion para cada archivo dentro la carpeta uno por uno los archivos mencionados.

Espero sugerencia y el codigo a mostrar todo tipo de archivos desde mi tabla dbf.

Atte: Adriano C. C.