Picture aus DBImage in Stream um Größe festzustellen

[Moyyer]

Du könntest das Bild deines Dbimages erstmal speichern und es dann neu laden, wie z.B.

Code:

procedure TMusik.Button2Click(Sender: TObject);
var fileheader : TBitmapfileheader;
    s          : TFilestream;
begin
      dbimage1.Picture.SaveToFile('c:\xxx.bmp');
      s := TFilestream.Create('c:\xxx.bmp',fmOpenRead or fmShareDenyNone);
      s.Read(fileheader,sizeof(fileheader));
      s.free;
      listbox1.Items.Clear; 
      listbox1.items.add('Dateigröße:   ' + inttostr(fileheader.bfSize)); 
end;

Ist nicht die perfekte Lösung, aber sie funktioniert.

MfG Moyyer