Guardar Imagen en SQL

[[BlueSteel]]

Empezado por oscorm

Prueba:
DM_Datos.AQ_Insert.Parameters[15].LoadFromFile('c:\sample.jpg', ftBlob);
donde 'c:\sample.jpg' es el fichero que tiene la foto

Interprete el codigo que me indicas con esto

Código Delphi [-]
     DM_Datos.AQ_Insert.Parameters[15].LoadFromFile(BuscaFoto.filename, ftBlob);

donde BuscaFoto es un componente de tipo OpenPictureDialogo. Lo que tomo de ella es la ruta donde esta ubicada la foto

Ahora el error que me indica es

[dcc32 Error] frmCreaActSocios.pas(143): E2003 Undeclared identifier: 'ftBlob'

[oscorm]

Este te deberia funcionar

TBlobField(DM_Datos.AQ_Insert.Parameters[15]).LoadFromFile(BuscaFoto.filename);

[[BlueSteel]]

Empezado por oscorm

Este te deberia funcionar

TBlobField(DM_Datos.AQ_Insert.Parameters[15]).LoadFromFile(BuscaFoto.filename);

me sigue dando error

Código Delphi [-]
     TBlobField(DM_Datos.AQ_Insert.Parameters[15]).LoadFromFile(BuscaFoto.filename);

Error
[dcc32 Error] frmCreaActSocios.pas(143): E2003 Undeclared identifier: 'TBlobField'
[dcc32 Error] frmCreaActSocios.pas(143): E2066 Missing operator or semicolon

[oscorm]

TBlobField está definido en la unidad DB o Data.DB dependiendo de la versión de Delphi con la que estés trabajando.
Pon que use esa unit en la parte del uses de interface y debería tirar

[[BlueSteel]]

Empezado por oscorm

TBlobField está definido en la unidad DB o Data.DB dependiendo de la versión de Delphi con la que estés trabajando.
Pon que use esa unit en la parte del uses de interface y debería tirar

Excelente, ya me funciono

Código Delphi [-]
// Esta linea no funciono. Si bien compila, al momento de guardar genera error
TBlobField(DM_Datos.AQ_Insert.Parameters[15]).LoadFromFile(BuscaFoto.filename);

// Esta linea funciono super...
DM_Datos.AQ_Insert.Parameters[15].LoadFromFile(BuscaFoto.filename, ftBlob);

Gracias

[[BlueSteel]]

Me faltaría realizar ahora el proceso inverso, es decir, saber como traspaso la foto que esta en la base de datos a un componente de tipo TImage?

[jafera]

Yo lo hago así:

Código Delphi [-]
procedure TF_Material.DBEdit1Change(Sender: TObject);
var
        jpg:TJpegImage;
        foto:TMemoryStream;
begin
        PageControl1.ActivePage := TabSheet1;

        If SysUtils.FileExists('C:\Trens_1.0\Temp\Temporal.jpg') then
        SysUtils.DeleteFile ('C:\Trens_1.0\Temp\Temporal.jpg');

        If F_Moduldades.MaterialFoto.AsString <>'' then
        begin
                Jpg:=TJpegImage.create;
                Foto:=TMemoryStream.create;
                try
                        F_Moduldades.MaterialFoto.SaveToStream(Foto);
                        Foto.Seek(0,soFromBeginning);
                        Jpg.LoadFromStream(Foto);
                        Jpg.SaveToFile('C:\Trens_1.0\Temp\Temporal.jpg');
                        Image1.Picture.Assign(Jpg);
                finally
                        Foto.Free;
                        Jpg.Free;
                end;
        end
        else
                Image1.Picture.Assign(nil);
end;

Saludos