Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-10-2006
fly fly is offline
Miembro
 
Registrado: abr 2005
Posts: 65
Poder: 20
fly Va por buen camino
Si no queda más remedio que incluir las imagenes en la DB vamos a ver si lo conseguimos .

Ya te digo que nunca lo he hecho, pero debería ser igual que cualquier otro dato.
Respecto al código acertaste, a ver si me explico mejor ahora:

DMQ1 es un Data Module (es igual que cualquier UNIT pero algo más específica) donde yo guardo todos mis compoentes relacionados con la DB (transacciones, querys, datasources... ) para tenerlas todas localizables y de facil acceso desde los diferentes Forms (aunque tambien tengo a veces componentes locales que solo uso en un form).

EDIT_Q es un componente TIBQuery (es el que uso por dejecto para cualquier sentencia SQL que no sea un SELECT)

No uso componentes DBE, FBIPlus ni similares, tan sólo los componetes básicos de Interbase, por lo tanto el código es algo como esto:

............... editado ...........
Al final mientras posteaba decidí cambiarlo, usando una imagen en vez de un MEMO como en el ejemplo anterior.

Código Delphi [-]
Procedure TMiform.GuardarDato; 
var parametro : TParam; // TParam se encuentra en DB.pas
begin

// primero creamos el prarámeto
parametro:=MiIBQuery.Params.CreateParam(ftBlob,'_parametro_blob',ptInput);

// ftBlob -> indico que queremos crear un parametro tipo Blob, existe un ftGraphic pero me da error al ejecutar la query  :!
//  ptInput -> indico que va a ser un parametro de entrada de datos
// '_parametro_blob' --> el nombre del parametro que vamos a crear (usa el que tu quieras)

// Cargamos los datos en el parámeto recien creado
 MiIBQuery.parambyname('_parametro_blob').LoadFromFile('c:\pru.bmp',ftBlob);

// Ponemos la sentencia SQL en la Query
MiIBQuery.SQL.TEXT:=
 'UPDATE configuracion SET'+
 ' logo_empresa= :_parametro_blob '+  // la inserción mediante parámetro se realiza siempre así, poniendo dos puntos ( : ) precediendo al parámetro
 ' WHERE codigo=1';

// ahora ejecutamos el SQL
MiIBQuery.close;
MiIBQuery.prepare;
MiIBQuery.execSQL;

// borramos el parámetro creado
MiTIBQuery.Params.Clear;

end;

He usado una imagen BMP porque no uso componentes para ver JPG, hice las pruebas con un DBImage para ver el resultado del campo blob.

Este código lo he probado y funciona, a ver si te sirve.

Saludos.

Última edición por fly fecha: 13-10-2006 a las 04:41:55.
Responder Con Cita
  #2  
Antiguo 13-10-2006
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
Thumbs up Gracias! Fly!

Gracias Fly!... tu explicación y tu segundo código lo entendí....

Ahorita estoy en el trabajo, pero ni bien llegue a casa lo pruebo. Muchísimas gracias por ofrecer tu ayuda.

En cuanto salía para mi trabajo... me pensé si el dm1 era un DataModule....
Si necesito alguna manito estaré posteando.
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #3  
Antiguo 13-10-2006
Avatar de RONPABLO
[RONPABLO] RONPABLO is offline
Miembro Premium
 
Registrado: oct 2004
Posts: 1.514
Poder: 21
RONPABLO Va por buen camino
Duda sobre Archivos enviados por medio de firebird sin guardarlo en la BD

Hola cordial saludo, como tal he buscado (sin exito) si existe la posibilidad de usar firebird como un canal para enviar archivos desde el servidor a otros equipos.... en si lo que quiero es guardar la ruta de un archivo (audio, imagen, video, ejecutable, etc), y desde el mismo firebird cargar ese archivo que esta en disco duro (no lo quiero almacenado como un campo blob) y lo pueda manejar como otro dato de una consulta y que llegue a los demas clientes por medio de un DataSet y no como un archivo compartido en la red???
Responder Con Cita
  #4  
Antiguo 13-10-2006
Avatar de RONPABLO
[RONPABLO] RONPABLO is offline
Miembro Premium
 
Registrado: oct 2004
Posts: 1.514
Poder: 21
RONPABLO Va por buen camino
Huy se me chispoteo!!... algun moderador puede borrar este post que lo queira poner en un hilo independiente??
Responder Con Cita
  #5  
Antiguo 13-10-2006
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 22
JXJ Va por buen camino
hacer eso RONPABLO, suena interesante
Responder Con Cita
  #6  
Antiguo 13-10-2006
Avatar de RONPABLO
[RONPABLO] RONPABLO is offline
Miembro Premium
 
Registrado: oct 2004
Posts: 1.514
Poder: 21
RONPABLO Va por buen camino
Si muy interesante, y que me quitaria uno que otro dolor de cabeza!
Pero no deberiamos hablar de eso en este hilo ya que lo puse por error (crei que le di nuevo Hilo y puse responder Hilo)... en si la pregunta y las respuestas a este tema que necesito deberian ir por aquí y esperar que un moderador me haga el favor de quitar el post de este hilo para que no redunde la información... nuevamente pido disculpas!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Insertar Imagenes en Firebird (y la madre que lo pario!!!) papulo Firebird e Interbase 7 23-11-2005 16:13:07
Cuántos registros soporta firebird 1.5? ronimaxh Firebird e Interbase 7 12-10-2005 17:01:13
¿Cómo puedo ver las imágenes que soporta un archivo .rtf? nuri Varios 2 09-08-2005 18:13:51
Imagenes(BLOB) Firebird con VB6 pzhero Firebird e Interbase 5 06-05-2004 15:32:45
BDE no soporta estos tipo de datos .. ingel Conexión con bases de datos 0 19-06-2003 18:30:22


La franja horaria es GMT +2. Ahora son las 06:03:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi