TFileStream --> TImage

[hackyie]

so etwas in der Art dachte ich mir...kann mir da einer ein wenig Code geben? wie gehe ich da ran... TImage.picture.loadFromMemoryStream oder ähnliches gibt es ja nicht...oder übersehe ich da was?

Edit: Ich hab gerade slbst ein wenig rausgefunden...aber ich bekomme nur eine Zugriffsverletzung. Hier mein Codeschnipsel:

Delphi-Quellcode:

Stream := TFileStream.Create(filename,fmOpenRead);
  try
   for i := 0 to fCount - 1 do
   begin
    if fNames[i] = picName then
    begin
      wStream := TMemoryStream.Create;
      Stream.Seek(fOffsets[i],soFromBeginning);
      wStream.CopyFrom(Stream,fSizes[i]);
      wStream.seek(0,sofromBeginning);
      (image1.Picture.Graphic as TJpegImage).LoadFromStream(wStream); // <--- Acces Violation
      wStream.Free;
      break;
    end;
   end;
  finally
    Stream.Free;
  end;

Die Stream- Daten müssen krrekt sein. Wenn ich statt des MemoryStream einen Filestream nehme und es in eine Datei schreibe, bekomme ich eine tadelose jpg-Datei.

Edit: arragh ich schussel...das TImage in meiner Test-Anwendung war noch leer...

image1.Picture.Graphic := TJPegImage.Create; So jetzt geht's. Trotzdem jemand Anmerkungen, wie man das vielleicht besser schreiben könnte oder an der Performance noch was drehen?