Image in Access Datenbank speichern

[uwe12]

hier ist nochmal der code zum speichern. über einen anderen button legt ich über adodataset1.append einen neuen datensatz an.

Delphi-Quellcode:

var
  blob: TAdoBlobStream;
  fs:TMemorystream;
begin
AdoDataset1.edit;
  blob := TADOBlobStream.Create(AdoDataset1Bild, bmwrite);  
    try
    fs := TMemorystream.create();
    ADOImage.Picture.Bitmap.SaveToStream(fs);
    fs.Seek(0, soFromBeginning);
    try
      blob.CopyFrom(fs, fs.Size);
    finally
      fs.Free;
    end;
  finally
    blob.Free;
          AdoDataset1.post;
  end;
end;