Guardar Imagen en SQL

[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

[[BlueSteel]]

Empezado por 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

Hola, disculpa,,, con el codigo que indicastes, pasas una foto que esta almacenada en una Tabla del SQL Server al componente TImage???