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