Einzelnen Beitrag anzeigen

roth

Registriert seit: 25. Nov 2005
Ort: -
72 Beiträge
 
#1

Bild in DB speichern und wieder laden

  Alt 28. Aug 2008, 15:49
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
  Mit Zitat antworten Zitat