Nachdem ich mehrere Tage vergeblich div. Komponenten probiert, Source und Hilfedateien gelesen haben, weiß ich nicht mehr weiter.
<p>
Ich speichere in einer Paradox-DB Jpeg-Dateien (TWeinW_Etikett.LoadFromFile(OpenPictureDialog1.Fi leName).<br>
Ich möchte Sie aus der Tabelle (OnDataChange) direkt in TImage wieder anzeigen:<p>
<br>
var MS : TMemoryStream;<br>
SJpeg : TJpegImage;<br>
FBmp : TBitmap;<br>
begin<br>
MS := TMemoryStream.Create;<br>
SJPEG := TJpegImage.Create;<br>
FBmp := TBitmap.Create;<br>
<br>
try<br>
TWeinW_Etikett.SaveToStream(MS);<br>
<br>
// so funktionierts MS.SaveToFile('d:\test0.jpeg');<br>
SJpeg.LoadFromFile('d:\test0.jpeg');<br>
<br>
// direkt aber nicht SJpeg.LoadFromStream(MS);<br>
<br>
FBmp.Width := SJpeg.Width;<br>
FBmp.Height := SJpeg.Height;<br>
FBmp.Canvas.Draw(0,0, SJpeg);<br>
Image1.Picture.Bitmap := FBmp;<br>
finally<br>
MS.Free;<br>
SJPEG.Free;<br>
FBmp.Free;<br>
end;<br>
<br>
Warum funktioniert der Austausch über SaveTo-/LoadFromFile und warum nicht über den TMemoryStream?<br>
Die Infos im Forum basieren leider nur auf die LoadFromFile-Procedure (s. u.).<br>
Über eure Hilfe (ggf. mit Code) wäre ich echt dankbar.<br>
<br>
<br>
Vielen Dank im voraus Detlef<br>
<p>
Ich speichere in einer Paradox-DB Jpeg-Dateien (TWeinW_Etikett.LoadFromFile(OpenPictureDialog1.Fi leName).<br>
Ich möchte Sie aus der Tabelle (OnDataChange) direkt in TImage wieder anzeigen:<p>
<br>
var MS : TMemoryStream;<br>
SJpeg : TJpegImage;<br>
FBmp : TBitmap;<br>
begin<br>
MS := TMemoryStream.Create;<br>
SJPEG := TJpegImage.Create;<br>
FBmp := TBitmap.Create;<br>
<br>
try<br>
TWeinW_Etikett.SaveToStream(MS);<br>
<br>
// so funktionierts MS.SaveToFile('d:\test0.jpeg');<br>
SJpeg.LoadFromFile('d:\test0.jpeg');<br>
<br>
// direkt aber nicht SJpeg.LoadFromStream(MS);<br>
<br>
FBmp.Width := SJpeg.Width;<br>
FBmp.Height := SJpeg.Height;<br>
FBmp.Canvas.Draw(0,0, SJpeg);<br>
Image1.Picture.Bitmap := FBmp;<br>
finally<br>
MS.Free;<br>
SJPEG.Free;<br>
FBmp.Free;<br>
end;<br>
<br>
Warum funktioniert der Austausch über SaveTo-/LoadFromFile und warum nicht über den TMemoryStream?<br>
Die Infos im Forum basieren leider nur auf die LoadFromFile-Procedure (s. u.).<br>
Über eure Hilfe (ggf. mit Code) wäre ich echt dankbar.<br>
<br>
<br>
Vielen Dank im voraus Detlef<br>
Comment