Error al guardar imagen en bdd mysql

Jaxmax · Mensaje por **Jaxmax** » Vie Jul 30, 2010 11:30 pm

Buenas, este es mi primer post y soy algo nuevo en esto de xailer,
necesito ayuda ya que quiero insertar imagenes en una base de datos (mysql)
he leido que se guarda como tipo de dato binario y por aqui en el foro vi
como lo hacian
he aqui lo que estoy haciendo:
cargo la imagen desde un archivo:
IF ::oFileOpenImageDlg1:Run()
::oImage1:oPicture := ::oFileOpenImageDlg1:cFullFileName
ENDIF
-----------------------------------------------------
despues
convierto la imagen a stream y la asigno a una variable:
cImagen:=::oImage1:oPicture:SaveToStream()
-----------------------------------------------------------
despues trato de hacer el insert en la tabla la cual tiene 1 solo campo "imagen"
tipo mediumblob (solo es para pruebas esta tabla)

cCon:=" insert into imagenes set imagen='"+cImagen+"'"
if !appdata:origen1:execute(cCon,cCon)
msginfo("Operacion De imagen Rechazada...")
logfile(cCon)
return(.t.)
endif

la conexion a la base de datos la hago mediante Odbc
y esto es lo que me queda en el logfile que se crea:
insert into imagenes set imagen='BMï¿½ï¿½
y me marca un error al tratar de hacer el insert, pondria una imagen pero
es mi primer post y no me deja, pero es una ventana de error que dice:
Xailer DataControls Error
[Ninguno]
insert into imagenes set imagen='BMï¿½ï¿½
cual es el error? o que tengo que hacer para poder guardar las imagenes?

Bingen Ugaldebere · Lun Ago 02, 2010 1:35 pm

Sin tantas complicaciones tomas la imagen directamente sea del tipo que
sea y haces esto
cSelect:="Insert Into documentos Imagen Values (Load_File('+"cImageName"+')"
Del manual de MySql:
LOAD_FILE(file_name)
Lee el fichero y retorna el contenido como cadena de caracteres. El
fichero debe estar localizado en el servidor, debe especificar la ruta
completa al fichero, y debe tener el privilegio FILE . El fichero debe
ser legible por todo el mundo y su tamaño menor a max_allowed_packet bytes.
Si el fichero no existe o no puede ser leído debido a que una de las
anteriores condiciones no se cumple, la función retorna NULL.
mysql> UPDATE tbl_name
SET blob_column=LOAD_FILE('/tmp/picture')
WHERE id=1;

Jaxmax · Mensaje por **Jaxmax** » Lun Ago 02, 2010 7:44 pm

Gracias Bingen, sirve pero no es la solucion que busco, ya que lo que se pretende es que un usuario desde otro equipo cargue la imagen (en este caso al control timage) y que al momento de guardar la imagen esta se guarde en la bdd que esta en otro equipo(el servidor), para que funcionara lo de LOAD_FILE, el usuario tendria que grabar en alguna carpeta del servidor(donde esta la bdd) la imagen y esto no se posible en mi caso.
realice un insert de una imagen a la bdd desde navicat y funciono bien, lo que hice fue poner un breakpoint en la siguiente linea:
cImagen:=::oImage1:oPicture:SaveToStream()
y ver el valor que tenia cImagen
lo curioso fue que al ver el valor de cImagen en la ventana de Valor actual se ve solo los primeros caracteres y en nuevo valor si se ve la cadena completa

de ahi copie la cadena completa para hacer el insert desde el navicat y hace el insert sin problemas.
la ventana de error que me da cuando trato hacer el insert desde el programa es este:

al hacer el select a la tabla para cargar la imagen, no hay problema si carga la imagen bien, el problema solo es al hacer el insert.

Juan Jose · Mensaje por **Juan Jose** » Mar Ago 03, 2010 12:25 am

Prueba esto
If AppData:oSQLDataSource:QueryValue("Select Count(*) From
Empleados_Fotos Where Id_Imagen='"+::Id_Imagen+"'")#1
xId := ToString(CreateId())
cSql := "Insert into Empleados_Fotos(Id_Imagen,Imagen)
Values('"+xId+"',?)"
Else
xId := ::Id_Imagen
cSql := "UpDate Empleados_Fotos Set Imagen=? Where
Id_Imagen='"+::Id_Imagen+"'"
EndIf
AppData:oSQLDataSource:Execute2(cSql,,{oPicture:SaveToStream ()})
::OnChange(Self,xId)
::oPadre:lModificado := .T.
"Max J[dot] Rodriguez Beltran" <ing[dot]maxjrb[at]gmail[dot]com> escribió en
el mensaje news:4c5703e3$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Gracias Bingen, sirve pero no es la solucion que busco, ya
> que lo que se pretende es que un usuario desde otro equipo
> cargue la imagen (en este caso al control timage) y que al
> momento de guardar la imagen esta se guarde en la bdd que
> esta en otro equipo(el servidor), para que funcionara lo de
> LOAD_FILE, el usuario tendria que grabar en alguna carpeta
> del servidor(donde esta la bdd) la imagen y esto no se
> posible en mi caso.
>
> realice un insert de una imagen a la bdd desde navicat y
> funciono bien, lo que hice fue poner un breakpoint en la
> siguiente linea:
>
> cImagen:=::oImage1:oPicture:SaveToStream()
>
> y ver el valor que tenia cImagen
>
> lo curioso fue que al ver el valor de cImagen en la ventana
> de Valor actual se ve solo los primeros caracteres y en
> nuevo valor si se ve la cadena completa
>
>
> de ahi copie la cadena completa para hacer el insert desde
> el navicat y hace el insert sin problemas.
>
> la ventana de error que me da cuando trato hacer el insert
> desde el programa es este:
>
> http://img808.imageshack.us/img808/7049/errorim.png
>
>
> al hacer el select a la tabla para cargar la imagen, no hay
> problema si carga la imagen bien, el problema solo es al
> hacer el insert.
>
> __________ Informacin de ESET NOD32 Antivirus, versin de la base de firmas
> de virus 5335 (20100802) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5335 (20100802) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

Bingen Ugaldebere · Mar Ago 03, 2010 9:17 am

> Gracias Bingen, sirve pero no es la solucion que busco, ya
> que lo que se pretende es que un usuario desde otro equipo
> cargue la imagen (en este caso al control timage) y que al
> momento de guardar la imagen esta se guarde en la bdd que
> esta en otro equipo(el servidor), para que funcionara lo de
> LOAD_FILE, el usuario tendria que grabar en alguna carpeta
> del servidor(donde esta la bdd) la imagen y esto no se
> posible en mi caso.
Efectivamente ese problema existe, yo lo que hago es una copia al disco
de la imagen o Pdf al servidor antes de cargarlo en la BD
> realice un insert de una imagen a la bdd desde navicat y
> funciono bien, lo que hice fue poner un breakpoint en la
> siguiente linea:
>
> cImagen:=::oImage1:oPicture:SaveToStream()
>
> y ver el valor que tenia cImagen
>
> lo curioso fue que al ver el valor de cImagen en la ventana
> de Valor actual se ve solo los primeros caracteres y en
> nuevo valor si se ve la cadena completa
>
>
> de ahi copie la cadena completa para hacer el insert desde
> el navicat y hace el insert sin problemas.
>
> la ventana de error que me da cuando trato hacer el insert
> desde el programa es este:
>
> http://img808.imageshack.us/img808/7049/errorim.png
>
>
> al hacer el select a la tabla para cargar la imagen, no hay
> problema si carga la imagen bien, el problema solo es al
> hacer el insert.
Lo siento no he probado esto.

jasm.quitaesto · Mensaje por **jasm.quitaesto** » Mar Ago 03, 2010 10:28 am

Bingen,
El 03/08/2010 9:17, Bingen Ugaldebere escribió:
>> Gracias Bingen, sirve pero no es la solucion que busco, ya
>> que lo que se pretende es que un usuario desde otro equipo
>> cargue la imagen (en este caso al control timage) y que al
>> momento de guardar la imagen esta se guarde en la bdd que
>> esta en otro equipo(el servidor), para que funcionara lo de
>> LOAD_FILE, el usuario tendria que grabar en alguna carpeta
>> del servidor(donde esta la bdd) la imagen y esto no se
>> posible en mi caso.
>
> Efectivamente ese problema existe, yo lo que hago es una copia al disco
> de la imagen o Pdf al servidor antes de cargarlo en la BD
>
¿Qué pasa si es un servidor remoto? Esta solución no vale.
A mi me esta funcionando cargar la imágen en una variable con FReadStr()
y asignarla al campo blob.
Saludos,
Jose A. Suarez
>> realice un insert de una imagen a la bdd desde navicat y
>> funciono bien, lo que hice fue poner un breakpoint en la
>> siguiente linea:
>>
>> cImagen:=::oImage1:oPicture:SaveToStream()
>>
>> y ver el valor que tenia cImagen
>>
>> lo curioso fue que al ver el valor de cImagen en la ventana
>> de Valor actual se ve solo los primeros caracteres y en
>> nuevo valor si se ve la cadena completa
>>
>>
>> de ahi copie la cadena completa para hacer el insert desde
>> el navicat y hace el insert sin problemas.
>>
>> la ventana de error que me da cuando trato hacer el insert
>> desde el programa es este:
>>
>> http://img808.imageshack.us/img808/7049/errorim.png
>>
>>
>> al hacer el select a la tabla para cargar la imagen, no hay
>> problema si carga la imagen bien, el problema solo es al
>> hacer el insert.
>
> Lo siento no he probado esto.

Mensaje por **jfgimenez** » Mar Ago 03, 2010 10:38 am

"Jaxmax",
Tienes que tener en cuenta que en cImagen tienes simplemente un 'buffer' con
los datos de la imagen, pero no es una cadena de texto. Es decir, cImagen va
a contener con toda seguridad caracteres que no se pueden usar en una
sentencia SQL. Para MySQL se puede utilizar un truco:
Sustituye:
> cCon:=" insert into imagenes set imagen='"+cImagen+"'"
Por:
cCon:=" insert into imagenes set imagen=X'"+StringToHex(cImagen)+"'"
No obstante, si la imagen es muy grande, vas a tener problemas, ya que el
tamaño de la sentencia va a estar limitado por el tamaño de los buffers de
comunicación con el servidor, que suele ser de 1 MB. Para no tener ningún
tipo de problema, deberás utilizar el datasource nativo para MySQL
(TMySQLDataSource), y no ODBC, y grabar la imagen así:
WITH OBJECT appdata:origen1:Query( "SELECT * from imagenes WHERE 0" )
:Open()
:AddNew()
:imagen := cImagen
:Update()
:Close()
END
Por supuesto, si utilizas datasets, entonces sólo tienes que asignar el
campo cuando lo necesites.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Martin Del Angel · Mar Ago 03, 2010 5:47 pm

On 7/30/2010 4:30 PM, Jaxmax wrote:
> Buenas, este es mi primer post y soy algo nuevo en esto de xailer,
>
> necesito ayuda ya que quiero insertar imágenes en una base de datos (mysql)
> he leído que se guarda como tipo de dato binario y por aquí en el foro vi
> como lo hacían
>
> he aqui lo que estoy haciendo:
> cargo la imagen desde un archivo:
> IF ::oFileOpenImageDlg1:Run()
> ::oImage1:oPicture := ::oFileOpenImageDlg1:cFullFileName
> ENDIF
> -----------------------------------------------------
> después
> convierto la imagen a stream y la asigno a una variable:
> cImagen:=::oImage1:oPicture:SaveToStream()
>
> -----------------------------------------------------------
>
> despues trato de hacer el insert en la tabla la cual tiene 1 solo campo "imagen"
> tipo mediumblob (solo es para pruebas esta tabla)
>
>
> cCon:=" insert into imagenes set imagen='"+cImagen+"'"
>
> if !appdata:origen1:execute(cCon,cCon)
> msginfo("Operacion De imagen Rechazada...")
> logfile(cCon)
> return(.t.)
> endif
>
>
>
> la conexión a la base de datos la hago mediante Odbc
>
> y esto es lo que me queda en el logfile que se crea:
>
> insert into imagenes set imagen='BMíŽíƒ
>
> y me marca un error al tratar de hacer el insert pondría una imagen pero
> es mi primer post y no me deja, pero es una ventana de error que dice:
>
> Xailer DataControls Error
>
> [Ninguno]
> insert into imagenes set imagen='BMíŽíƒ
>
> cual es el error? o que tengo que hacer para poder guardar las imágenes?
Jaxmax Buen Dia:
Lo que deseas hacer creo pensar es lo mismo que hacemos nosotros.
Tenemos una aplicación donde en los Reportes ponemos el logo de la
Empresa el cual el usuario selecciona una imagen Jpeg desde disco y es
grabada en un campo blob de la tabla de Mysql , posteriormente otro
usuario en un sitio distinto puede cambiar esa imagen y poner otra sin
problema alguno.
Aqui el código:
cargar Imagen desde la tabla:
cLogo:=TPicture():LoadFromStream(::oSQLCONFIGURACION:LOGO_EM PRESA)
Donde LOGO_EMPRESA es una campo BLOB
Para mostrarlo puedes usar un TBevel y en su propiedad oBKGnd asignar la
variable cLogo
::oLogo:oBKGnd:=cLogo
Para Salvar :
::oSQLConfiguracion:LOGO_EMPRESA:=MemoRead(cArchLogo)
Donde cArchLogo es el archivo de la nueva imagen seleccionada a grabar.
Se usa MemoRead para conservar el Formato original.
Me Funciona muy bien y utilizando los Datasets de Xailer sin problema
alguno.
Saludos...

gerencia · Mensaje por **gerencia** » Mar Ago 03, 2010 6:17 pm

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000066">
Yo lo hago asi, y me funciona
correcto 
 
Cargo la Imagen desde un archivo y la dejo en el camplo BLOB ::oParent:oSqlFoto:Foto 
 
//---------------------------------------------------------- -------------------- 
 
METHOD CargarImagen( oSender ) CLASS TEditEmple 
ÂÂ Local oImgFoto 
ÂÂ Local aDir 
ÂÂ Local lok:=.T. 
ÂÂ WITH OBJECT ::oFileOpenImgDlg 
ÂÂÂÂÂ IF :Run() 
ÂÂÂÂÂÂ ÂÂ aDir:=Directory(:cFullFilename()) 
ÂÂÂÂÂÂ ÂÂÂÂÂ If !Empty(aDir) 
ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂÂ If aDir[1,2] > 120000 
ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂÂÂÂÂ MsgStop("La imagen que intenta cargar supera
los 120K "+CRLF+; 
ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂ "se sugire que no cargue imagenes de
tamaÃo mayor","Alerta") 
ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂÂÂÂ lok:=.F. 
ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂÂ Endif 
ÂÂÂÂÂÂ ÂÂÂÂÂÂ Endif 
 
ÂÂÂÂÂÂ If lOK 
ÂÂÂÂÂÂ ÂÂ ::oFoto:oPicture :=
TPicture():LoadFromFile(:cFullFilename()) 
ÂÂÂÂÂÂ ÂÂ ::oParent:oSqlFoto:Foto := MemoRead(:cFullFilename()) 
ÂÂÂÂÂÂ Endif 
ÂÂÂÂÂ ENDIF 
ÂÂ END 
RETURN Nil 
 
En este metodo muestro la imagen que esta en base de dato 
 
//---------------------------------------------------------- -------------------- 
METHOD ChangeBrowse(oSender)Â CLASS TEmpleados 
 
ÂÂ ::oSQLFoto:lOpenÂÂ := .F. 
 
ÂÂ IF Empty(::oSQLEmple:Identificacion) 
ÂÂÂÂ ::oSQLFoto:cSelect := "Select * From Emple_Foto Where
Identificacion = '' " 
ÂÂ Else 
ÂÂÂÂ ::oSQLFoto:cSelect := "Select * From Emple_Foto Where
Identificacion = '" + ::oSQLEmple:Identificacion + "'" 
ÂÂ Endif 
 
ÂÂ ::oSQLFoto:lOpenÂÂÂ := .T. 
ÂÂ ::oImgFoto:oPicture := TPicture():LoadFromStream(
::oSqlFoto:Foto ) 
 
RETURN NIL 
 
 
 

<div class="moz-signature">
<meta http-equiv="Content-Type" content="text/html;
charset=ISO-8859-1">
<meta name="ProgId" content="Word.Document">
<meta name="Generator" content="Microsoft Word 12">
<meta name="Originator" content="Microsoft Word 12">
<link rel="File-List" href="Firma%20Audi_archivos/filelist.xml">
<title>JosÃ David Angulo</title>
<link rel="themeData" href="Firma%20Audi_archivos/themedata.thmx">
<link rel="colorSchemeMapping"
href="Firma%20Audi_archivos/colorschememapping.xml">

<style>

</style>
<meta name="CREATED" content="20061023;14550935">
<meta name="CHANGEDBY" content="Jose Angulo">
<meta name="CHANGED" content="20061023;14593800">

<div class="Section1">
JosÃ David Angulo
Urzola.<o:p></o:p>
Auditoria y Sistemas Ltda.<o:p></o:p>
<a
href="mailto:Gerencia@microexpressltda.com">jose.angulo@auditoriaysistemas.com</a><o:p></o:p>
Tel. (57) 5-6643022 – 6644555<o:p></o:p>
Â Cartagena –
Colombia<o:p></o:p>
</div>
</div>
 
El 2010-08-03 10:47 a.m., Martin Del Angel escribiÃ:
<blockquote cite="mid:4c583a07$[email=1@svctag-j7w3v3j.]1@svctag-j7w3v3j.[/email]" type="cite">On
7/30/2010 4:30 PM, Jaxmax wrote:
 
<blockquote type="cite">Buenas, este es mi primer post y soy algo
nuevo en esto de xailer,
 
 
necesito ayuda ya que quiero insertar imÃgenes en una base de
datosÂ (mysql)
 
he leÃdo que se guarda como tipo de dato binario y por aquÃ en
el foro vi
 
como lo hacÃan
 
 
he aqui lo que estoy haciendo:
 
cargo la imagen desde un archivo:
 
Â IFÂ ::oFileOpenImageDlg1:Run()
 
ÂÂÂÂÂÂÂÂÂÂ ::oImage1:oPicture :=
::oFileOpenImageDlg1:cFullFileName
 
ÂÂÂÂÂÂÂÂ ENDIF
 
-----------------------------------------------------
 
despuÃs
 
convierto la imagen a stream y la asigno a una variable:
 
cImagen:=::oImage1:oPicture:SaveToStream()
 
 
-----------------------------------------------------------
 
 
despues trato de hacer el insert en la tabla la cual tiene 1
solo campo "imagen"
 
tipo mediumblob (solo es para pruebas esta tabla)
 

 
 
Â cCon:=" insert into imagenes set imagen='"+cImagen+"'"
 
 
ÂÂ if !appdata:origen1:execute(cCon,cCon)
 
ÂÂÂÂ msginfo("Operacion De imagen Rechazada...")
 
ÂÂÂÂ logfile(cCon)
 
ÂÂÂÂ return(.t.)
 
ÂÂ endif
 
 

 
 
la conexiÃn a la base de datos la hago mediante Odbc
 
 
y esto es lo que me queda en el logfile que se crea:
 
 
Â insert into imagenes set imagen='BMÃÃ
 
 
y me marca un error al tratar de hacer el insert pondrÃa una
imagen pero
 
es mi primer post y no me deja, pero es una ventana de error que
dice:
 
 
Xailer DataControls Error
 
 
ÂÂÂ [Ninguno]
 
ÂÂÂÂÂÂ Â insert into imagenes set imagen='BMÃÃ
 
 
cual es el error? o que tengo que hacer para poder guardar las
imÃgenes?
 
</blockquote>
 
 
Jaxmax Buen Dia:
 
 
Lo que deseas hacer creo pensar es lo mismo que hacemos nosotros.
 
 
Tenemos una aplicaciÃn donde en los Reportes ponemos el logo de la
Empresa el cual el usuario selecciona una imagen Jpeg desde disco
y es grabada en un campo blob de la tabla de Mysql ,
posteriormente otro usuario en un sitio distinto puede cambiar esa
imagen y poner otra sin problema alguno.
 
 
 
Aqui el cÃdigo:
 
 
cargar Imagen desde la tabla:
 
 
cLogo:=TPicture():LoadFromStream(::oSQLCONFIGURACION:LOGO_EM PRESA)
 
Donde LOGO_EMPRESA es una campo BLOB
 
 
Para mostrarlo puedes usar un TBevel y en su propiedad oBKGnd
asignar la variable cLogo
 
 
::oLogo:oBKGnd:=cLogo
 
 
 
 
Para Salvar :
 
 
::oSQLConfiguracion:LOGO_EMPRESA:=MemoRead(cArchLogo)
 
 
Donde cArchLogo es el archivo de la nueva imagen seleccionada a
grabar.
 
 
Se usa MemoRead para conservar el Formato original.
 
 
 
Me Funciona muy bien y utilizando los Datasets de Xailer sin
problema alguno.
 
 
 
 
 
Saludos...
 
 
 
 
 
 
 
 
 
 
</blockquote>
</body>
</html>

Jaxmax · Mensaje por **Jaxmax** » Mar Ago 03, 2010 9:04 pm

Gracias a todos por la ayuda al final encontre 2 formas de hacerlo
la primera fue en convertirlo a hexadecimal con la siguiente funcion:
http://forums.fivetechsupport.com/viewt ... p?f=3&t=18 411

cRuta:=::oFileOpenImageDlg1:cFullFileName
cImagen:=MEMOREAD(cruta)
txtImg:=Text2Hex(cImagen)
cCon:=" insert into imagenes set";
+" ,imagen='"+txtImg+"'"
if !appdata:origen1:execute(cCon,cCon)
msginfo("Operacion De imagen Rechazada...")
logfile(cCOn)
return(.t.)
endif

y para cargar la imagen desde la bdd

cCon:=" select imagen from imagenes where id='1'"
adImg:= appdata:origen1:QueryArray(cCon)
cImg:=Hex2Text(adImg[01,01])
::oImage2:oPicture:=TPicture():LoadFromStream(adimg[01,01])

Pero esto solo me funciono con imagenes GIF y BMP
Aca la otra forma:
Aqui en vez de utilizar DataSource de ODBC utilice Datasource de MySQL(TMySQLDataSource) y Datasets(TSqlTable)

::oSQLTable1:Open()
::oSQLTable1:edit()
::oSQLTable1:addnew()
::oSQLTable1:imagen :=MEMOREAD(cruta)
::oSQLTable1:update()
::oSQLTable1:end()

Aqui si funciona con cualquier archivo

Mensaje por **jfgimenez** » Mié Ago 04, 2010 9:33 am

Max,
> cCon:=" insert into imagenes set";
> +" ,imagen='"+Text2Hex(cImagen)+"'"
....
> cImg:=Hex2Text(adImg[01,01])
La función Text2Hex() que mencionas es el equivalente de la función
StringToHex() que yo te mencioné en el otro mensaje. Pero, tal y como la
usas aquí, lo que estás consiguiendo es que la imagen ocupe el doble de
espacio dentro de la BD, porque la estás guardando como una cadena
hexadecimal. Lo que yo te puse la guardaba como binario, ocupando
exactamente el espacio que ocupe la imagen.
De todos modos, sigues teniendo el problema de las imágenes grandes como te
comenté anteriormente.
> ::oSQLTable1:Open()
>
> ::oSQLTable1:edit()
> ::oSQLTable1:addnew()
>
> ::oSQLTable1:imagen :=MEMOREAD(cruta)
>
> ::oSQLTable1:update()
>
> ::oSQLTable1:end()
>
> Aqui si funciona con cualquier archivo
Exactamente. Esta es la mejor forma de hacerlo. El datasource para MySQL de
Xailer, ya se encarga de "trocear" la imagen en bloques del tamaño adecuado
para no sobrepasar nunca el tamaño de los buffers de comunicación, evitando
así el problema de las imágenes grandes.
Por cierto, la versión 2.1 de Xailer tendrá un método de TPicture y una
función para crear miniaturas (thumbnails) de las imágenes. Esto permite
crear carruseles de imágenes sin tener que cargar todas las imágenes
completas a memoria o traerlas del servidor. P.ej., lo siguiente crearía una
miniatura de 120x120 pixels en formato jpeg de la imagen:
::oSQLTable1:miniatura := CreateThumbnail( MemoRead( cruta ), 120, 120 )
Ten en cuenta que una imagen tipo de ese tamaño y en ese formato ocupa tan
sólo 3 ó 4 KB, mientras que la imagen completa en formato jpeg de una cámara
de tan sólo 3MP ocupa apróximadamente 1 MB. Y si la guardas en formato BMP,
la misma imagen ocupa unos 10 MB.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info