Buenas gente, buscando y buscando encontre como almacenar imagenes en una tabla de firebird, pero está hecho con componentes de interbase, yo intente hacerlo con componentes de de dbExpress y no resulta, lo hago tal cual pero no hay caso, en memoria parece estar bien pero despues no me lo guarda en la base de datos
Acá va el código, espero que me puedan ayudar
Código Delphi
[-]
procedure TfCargarFoto.btCargarClick(Sender: TObject);
var
m, f: TStream;
s: string;
begin
if opdFoto.Execute then
begin
dm.cdsImagenes.Edit;
m:= dm.cdsImagenes.CreateBlobStream(dm.cdsImagenes.FieldByName('imagen'), bmWrite);
f:= TFileStream.Create(OPDFoto.filename, fmOpenRead);
m.CopyFrom(f, f.Size);
s:= AnsiUpperCase(ExtractFileExt(opdFoto.FileName));
if s='.JPEG' then
s:= '.JPG';
dm.cdsImagenes.Fields[2].AsString:= Copy(s,2,3);
dm.cdsImagenes.Post;
dm.cdsImagenes.ApplyUpdates(0);
f.Free;
m.Free;
end;
end;
Saludos