FiveTech Software tech support forums

Posted: **Thu Oct 28, 2010 4:49 pm**

Hola amigos del foro:

Estoy desarrollando un sistema que debe manejar imagenes (fotos, documentos escaneados, rayos X). Actualmente guardo la referencia a cada imagen (nombre) en una DBF y las voy presentando segun el usuario las solicite. Pero este metodo es vulnerable ya que cualquier persona puede reemplazar las imagenes en forma manual con lo que se perderia la confiabilidad de la informacion, ademas, este metodo consumo mucho espacio en disco.
Un amigo desarrollo un sistema similar en VB y lo que el hace es almacenar el codigo hexadecimal de cada imagen en un archivo con lo que resuelve ambos problemas.
Hace unos dias guarde una imagen en un archivo DLL y he visto que esa imagen se almacena en forma similar al metodo que usa mi amigo.
Pregunta:
1. Como puedo hacer para almacenar imagenes JPG en un DLL mediante codigo
2. Cuanta capacidad de almacenamiento tiene un DLL
3. Que otro metodo puedo usar.

Gracias, espero haber sido claro en mi explicacion.

Posted: **Thu Oct 28, 2010 11:01 pm**

Hola Jose:

En este hilo tienes como hacerlo:
http://forums.fivetechsupport.com/viewt ... dbf#p46311

un saludo
JLL

Posted: **Sat Oct 30, 2010 8:26 pm**

Hola Willi

Gracias por contestar. Yo uso DBFs, puedo hacer eso con ellas, el ejemplo esta basado en SQL.

Posted: **Sun Oct 31, 2010 12:58 am**

se pueden utilizar campos tipo blob

la funcion blobimport para grabar foto

Code: Select all

#include "blob.ch" 
function importag
 if !msgyesno('inicio proceso','CONFIRMAR')
  RETURN NIL
 ENDIF
 use 'FOTOPRD shared new alias CPTO00x
 go top
 nf=0
 do while !eof()
  xdat='\fotos\'+trim(clave)+'.jpg'
  XDAT=UPPER(xdat)
  IF file(XDAT)
   SELE CPTO00x
   BLOBImport( FieldPos( "FOTO_BMP" ),XDAT )    && aqui grabo el jpg en el campo foto_bmp
   ERASE &XDAT
   nf=nf+1
  ENDIF
  skip
 ENDdo 
 cpto00x->(dbclosEarea())
 msginfo(str(nf,4)+' fotos IMPORTADAS'')
RETURN NIL

LA FUNCION BLOBEXPORT PARA EXPORTARLA DEL CAMPO AL ARCHIVO

Code: Select all

 BLOBExport(FieldPos("FOTO_BMP"), "TEMP.JPG", BLOB_EXPORT_OVERWRITE) 
* SE EXTRAE DEL CAMPO Y SE GENERA EL ARCHIVO TEMP.JGP

Posted: **Wed Nov 03, 2010 7:34 pm**

Se puede cargar campos tipo blob con imagenes a una tabla (array)

y como se saca para mostrarla

Gracias

Saludos,

Adhemar

Posted: **Wed Nov 24, 2010 10:26 am**

Este tema ya ha salido varias vecs, por ejemplo:

http://forums.fivetechsupport.com/viewt ... =6&t=18625

Un saludo

FiveTech Software tech support forums

Otro metodo para almacenar imagenes

Otro metodo para almacenar imagenes

Re: Otro metodo para almacenar imagenes

Re: Otro metodo para almacenar imagenes

Re: Otro metodo para almacenar imagenes

Re: Otro metodo para almacenar imagenes

Re: Otro metodo para almacenar imagenes