Picture aus DBImage in Stream um Größe festzustellen

[AndreT]

Ich möchte mit einem ähnlichen Code wie diesen die Größe eines bmp´s bestimmen.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var fileheader : TBitmapfileheader;
   
    s          : TFilestream;
begin
   if openpicturedialog1.Execute then begin
      s := TFilestream.Create(openpicturedialog1.FileName,fmOpenRead or fmShareDenyNone);
      s.Read(fileheader,sizeof(fileheader));
      s.free;
      listbox1.Items.Clear;
      listbox1.items.add('Dateigröße:   ' + inttostr(fileheader.bfSize));
   end;
end;

ich möchte allerings nicht wie in dem Code eine OpenDiaolog verwenden, sondern das aktuelle Bild einen DBIMages.
Anschließend möchte ich die Größe in eine Datenbank schreiben.

wenn ich aber "s:= TFilestream.create(dbimage.picture.bitmap)" versuche bekomme ich einen Fehler.

Was hab ich noch für Möglicheiten?


Nachher möchte ich mit "DataModule1.ADOTable.FieldValues['Groesse']:=IntToStr(fileheader.bfSIze)" in die Datenbank schreiben.
Das dürfte kein Problem darstellen.

Aber wie bekomme ich das Bild erstmal in den den Stream?

Danke