Probleme mit Blob

[marabu]

Hallo,

probiere es mal so:

Delphi-Quellcode:

var
  bs: TBlobStream;
begin
  // ...
  fs := TFileStream.Create(Fimportieren.LblEdtDateipfad.Text, fmOpenRead);
  with Fmain.ADOQMainSelect1 do
  begin
    Edit;
    bs := CreateBlobStream(FieldByName('DOC_FILE'), bmWrite);
    bs.CopyFrom(fs, fs.Size);
    bs.Free;   // könnte wichtig sein ...
    Post;
    Refresh;
    fs.Free; 
  end;
end;

Grüße vom marabu