Insertar imagen en campo blob mediante SQL

[subzero]

Hola amigo, prueba con esto quizas te sea de apoyo

*****
with query do
begin
close;
sql.clear;
sql.Add('UPDATE NOMBRE_TABLA');
sql.Add('SET CAMPO_FOTO = :fto');
sql.Add('WHERE CODIGO = :vlr');
ParamByName('vlr').AsString := '' + codigo_planta + '';
ParamByName('fto').LoadFromFile(OPDFoto.FileName, ftBlob);
ExecSQL;
end;

*****

Esto lo hago desde delphi 7...

[LuisEnrique]

Holas amigos

Al fin, un bueno foro en castellano del Delphi.

Les cuento que estoy semanas desarrollando un sistema para una empresa que tiene el DB2 en un ambiente AS/400 IBM tengo que escanear el documento (estoy saliendo de esto porque lo escanea en un formato TIF raro que el Delphi no lo lee, pero es otro problema) el problema que tengo es que necesito subir la informacion a la base de datos DB2 en un campo BLOB o CLOB , e probado varias opciones y ninguna me funciona, por favor, alquien me puede indicar como subir una imagen a un campo BLOB o CLOB y si no es posible esto, entonces la imagen la puede codificar en tipo MIME.

El error mas comun que me ocurre cuando utilizo la sentencia normal de INSERT es que es demasiado larga la sentencia en SQL, porque le paso como dato la cadena codificada asi:

INSERT INTO TDImagenes(codigo, imagen) values('001','ZZZZHHDFDÑFLÑKGFLGGFGFKÑFG FGFGFDGF FGFGFDGFGFFGF
GFGDFGFDGFDG
FGFDGFDGFD
......
VARIAS LINEAS MAS ...
....
FDFSFSDFSDF');

Los archivos que pretendo mandar son de 100 Kbytes, pero el entorno DB2 me los rechaza, por favor ayuda.

Estoy usando el D6 y componentes ADO

Gracias por la ayuda y entrare a este foro mas a menudo.

Luis Enrique

[ramflores]

Hola Estoy tratando de hacer eso mismo en una base de datos SQL server 2005, pero al cargar la imagen para presentarla en un objeto DBImage, me marca error, estoy usando el BDE, este es mi codigo:

Dm.Query2.Close;
Dm.Query2.SQL.Clear;
Dm.Query2.SQL.Add('Insert Into PrendaFoto(IdGpoPrenda, IdPrenda, Foto)');
Dm.Query2.SQL.Add(' Values(:IdGpoPrenda, :IdPrenda, :Foto)');
Dm.Query2.ParamByName('IdGpoPrenda').AsInteger := Dm.TUniformes.FieldByName('idGpoPrenda').AsInteger;
Dm.Query2.ParamByName('IdPrenda').AsInteger := Dm.TUniformes.FieldByName('idPrenda').AsInteger;
Dm.Query2.ParamByName('Foto').LoadFromFile( OpenPictureDialog1.FileName, ftBlob );
Dm.Query2.ExecSQL;
Dm.Query2.Close;

Existe alguna restriccion de tamaño, formato o que pasa?

este es el error que me manda:

---------------------------
Debugger Exception Notification
---------------------------
Project Uniformes.exe raised exception class EInvalidGraphic with message 'Bitmap image is not valid'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------


Gracias de antemano

Empezado por subzero

Hola amigo, prueba con esto quizas te sea de apoyo

*****
with query do
begin
close;
sql.clear;
sql.Add('UPDATE NOMBRE_TABLA');
sql.Add('SET CAMPO_FOTO = :fto');
sql.Add('WHERE CODIGO = :vlr');
ParamByName('vlr').AsString := '' + codigo_planta + '';
ParamByName('fto').LoadFromFile(OPDFoto.FileName, ftBlob);
ExecSQL;
end;

*****

Esto lo hago desde delphi 7...

[guillotmarc]

Hola.

Aparentemente lo que haces es correcto, aunque te recomendaría usar ADO en lugar de BDE. Dado que BDE es una tecnología totalmente obsoleta que lleva muchos años sin ser actualizada por Borland/Codegear/Embarcadero, en cambio ADO es el cliente nativo de Microsoft de SQL Server.

En cualquier caso, también te sugiero de que pongas este mensaje en el Foro de SQL Server (ahora está en el de Firebird SQL) . Allí te podrán ayudar bastante mejor.

http://www.clubdelphi.com/foros/forumdisplay.php?f=23

Saludos.

[Casimiro Notevi]

Empezado por guillotmarc

[..]En cualquier caso, también te sugiero de que pongas este mensaje en el Foro de SQL Server (ahora está en el de Firebird SQL) . Allí te podrán ayudar bastante mejor.
Saludos.

Lo he movido por completo a ms sql server, aunque está tan "fragmentado", al principio preguntan sobre firebird, luego sobre db2 y finalmente sobre mssql

[ramflores]

Buen dia gracias por sus respuesta, he echo lo de pasarlo a ADO lo he dejado asi


Dm.ADOQuery1.Close;
Dm.ADOQuery1.SQL.Clear;
Dm.ADOQuery1.SQL.Add('Insert Into PrendaFoto(IdGpoPrenda, IdPrenda, Foto)');
Dm.ADOQuery1.SQL.Add(' Values(:IdGpoPrenda, :IdPrenda, :Foto)');
Dm.ADOQuery1.Parameters.ParamByName('IdGpoPrenda').Value := Dm.TUniformes.FieldByName('idGpoPrenda').AsInteger;
Dm.ADOQuery1.Parameters.ParamByName('IdPrenda').Value := Dm.TUniformes.FieldByName('idPrenda').AsInteger;
Dm.ADOQuery1.Parameters.ParamByName('Foto').LoadFromFile( OpenPictureDialog1.FileName, ftBlob );
Dm.ADOQuery1.ExecSQL;
Dm.ADOQuery1.Close;

pero me sigue marcando el mismo error

gracias de antemano