Bild in DB speichern und wieder laden

[roth]

Guten Tag,

Ich speichere ein bild in die Datenbank als Binary wert.
Nun möchte ich das Bild wieder auslesen jedoch funktioniert das nur mit jpg Bilder:

Delphi-Quellcode:

var
  jpgBild  : TJPEGImage;
  stream : TStringStream;
  str : String;
begin
  if not Assigned(FPicture) then begin
    str := Values.AsBinary[FLD_PICTURE];
    FPicture := TPicture.Create;
    stream := TStringStream.Create(Values.AsBinary[FLD_PICTURE]);
    jpgBild := TJPEGImage.Create;
    jpgBild.LoadFromStream(stream);
    FPicture.Assign(jpgBild);
...

Nun möchte ich aber dies allgemein lösen...damit man bmp, gifs, etc auch speichern kann?

Weitere frage gibt es eine Möglichkeit die Grösse des Bildes in Bytes zu erhalten ohne den Stream zu benützen?

mfg