JPEG + StringList -> Stream

[RobertP]

Ok des mit dem SizeOf hab ich in Stream.Size geändert nu gehts. Das Auslesen funktioniert allerdings immernoch nicht... Ich bekomm jedesmal einen StreamReadError

Delphi-Quellcode:

  datstream := TMemoryStream.Create;
  gfxstream := TMemoryStream.Create;

  Stream := TFileStream.Create(apppath + 'test2.ekq', fmOpenRead);

  Stream.Position := 0;

  Stream.Read(Len, SizeOf(Len));
  datstream.CopyFrom(Stream, Len);
  gfxstream.CopyFrom(Stream, Stream.Size);

  datstream.Position := 0;
  gfxstream.Position := 0;

  mapImage.Bitmap.LoadFromStream(gfxstream);
  list := TStringList.Create;
  list.LoadFromStream(datstream);

  Stream.Free;
  datstream.Free;
  gfxstream.Free;