Ver Mensaje Individual
  #2  
Antiguo 02-01-2009
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Puedes utilizar una SQL con parámetros para añadir las imágenes.
Suponiendo que tengas una tabla con los campos:
* Entero
* Cadena
* Imagen

Coloca un TImage y carga un Bitmap en él.
Crea un ADOQuery y en la SQL coloca lo siguiente:
Código SQL [-]
INSERT INTO Tabla (entero, cadena, imagen) VALUES (:entero,:cadena,:imagen)

Puedes insertar un nuevo registro con este código:

Código Delphi [-]
  qry1.Parameters.FindParam('entero').Value := 25;
  qry1.Parameters.FindParam('cadena').Value := 'valor de la cadena';
  // paramero de imagen
  param := qry1.Parameters.FindParam('imagen');
  param.Assign(img1.Picture.Graphic); 
  qry1.ExecSQL;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita