Image in Access Datenbank speichern

[uwe12]

Ich habe das Beispiel mal ausprobiert, aber irgendwie bekomme ich es nicht hin. Bekomme folgende Fehlermeldung: Es gibt keine überladene Version von 'Create', die man mit diesen Argumenten aufrufen kann

Delphi-Quellcode:

var
  blob: TAdoBlobStream;
  fs:TFilestream;
begin
 blob := TADOBlobStream.Create(AdoTable1Bild, bmwrite);
  try
    blob.Seek(0, soFromBeginning);
    fs := TFileStream.Create(AdoTable1Bild, fmOpenRead or
      fmShareDenyWrite);
    try
      blob.CopyFrom(fs, fs.Size)
    finally
      fs.Free
    end;
  finally
    blob.Free
  end;