Image in Access Datenbank speichern

[uwe12]

Ich hab das mal ausprobiert, aber irgendwie funktioniert das bei mir nicht richtig. Ist das eigentlich nur für Bitmap oder auch für Jpeg. Hab das mal so versucht:

Delphi-Quellcode:

var
  BlobField: TField;
  BS: TStream;
begin
  with AdoTable1 do
  begin
    Insert;
    BlobField := FieldByName('Bild');
    BS := CreateBlobStream(BlobField,bmWrite);
    AdoImage.Picture.Bitmap.SavetoStream(BS);
    AdoTable1.Post;
  end;