Inicio > Programación > Insertar Archivos o Imagenes en MySQL

Insertar Archivos o Imagenes en MySQL


// Debe definir un campo tipo longblob en una tabla

//El ejemplo utiliza un TADOQuery, también se puede usar dbxpress

//TIP:  Puede definir un campo adicional, tipo varchar(5) para guardar la extension del archivo. Que debe ser asignada en caso de necesitar restaurar el archivo desde la base de datos al disco duro.

procedure InsertarArchivo(qry: TADOQuery);

var

_Imagen:  TMemoryStream;

begin

try

_Imagen := TMemoryStream.Create();

//En caso de ser una imagen

_Imagen.LoadFromFile(OpenPictureDialog1.FileName);

//Un archivo pdf

_Imagen.LoadFromFile(‘c:\ejemplo.pdf’);

with qry do

begin

SQL.Clear;

SQL.Add(‘Insert into Tabla ‘);

SQL.Add(‘(Imagen) Values(:Param0)’);

with Parameters do

Items[0].LoadFromStream(_Imagen, ftBlob);

end;

except

on E: Exception do

begin

Application.MessageBox(PChar(‘Ha ocurrido un error al insertar. ‘
+ Chr(10) + Chr(13) + E.Message),’Error’, MB_ICONERROR);

end;

end;

_Imagen.Free;

end;


Anuncios
Categorías:Programación
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: