dfm Laden -> StreamReadError

[luckystar85]

Ich habe gerade mal ein kleines Prog geschrieben, welches mir ein dfm einliest und darstellt, nur leider geht schon das Grundsätzliche(das laden) nicht. Wenn ich folgenden Code verwende, kommt immer StreamReadError. Das passiert bei binären oder Text dfm's.

Delphi-Quellcode:

Var
  lForm   : TForm;
  MemoryStream:TMemoryStream;
  FileStream : TFilestream;
begin
  If ( OpenDialog1.Execute ) Then
  Begin
    FileStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    MemoryStream := TMemoryStream.Create;
    MemoryStream.LoadFromStream(FileStream);
    try
      MemoryStream.Position := 0;
      lForm := TFormClass(Form1.ClassType).CreateNew(Application) ;
      MemoryStream.ReadComponent(lForm) ;

      lForm.Left := form1.Left + 10;
      lForm.Top := form1.Top + 10;
      lForm.Show;
    finally
      MemoryStream.Free;
      FileStream.Free;
    End;
  End;

[messie]

Das hatten wir vor ein paar Wochen schonmal... da kam es darauf an, daß der Memorystream erst eine Zuweisung von Speicher benötigt, dem die Daten aus dem Filestream zugewiesen werden können - also gib' dem MemoryStream soviel Byte wie die Datei groß ist.
Ich kann's nicht weiter ausprobieren wie das genau ging, Delphi läuft grad' nicht (scheiß Quickreport-Bibliotheken).

Grüße, Messie

[Muetze1]

Das ist falsch, da ein TMemoryStream selbstständig den Speicher anfordert und sich vergrössert bei einem CopyFrom() und genauso auch bei einem LoadFromStream() oder LoadFromFile() wie es hier der Fall ist.

[Union]

Aber es ist sinnvoll, den Speicher vorher anzufordern, da sonst bei grossen Datenmengen die Performance absackt. Der Speichermanager reserviert nämlich ansonsten selbständig neue Speicherblöcke, wenn er es für richtig hält.

[luckystar85]

Ich habe jetzt MemoryStream.Size zugewiesen, aber es kommt immer noch die Meldung "Ungültiges Stream-Format.". Habt ihr noch eine andere Idee?

[Union]

In welchem Format liegt denn das dfm vor? Wenn es binär ist, sollte es funktionieren. Wenn nicht, sieh Dir mal ObjectTextToResource an.

Du musst nur eine Zeile ändern, das läuft:

Delphi-Quellcode:

// MemoryStream.LoadFromStream(FileStream);
ObjectTextToBinary(FileStream, MemoryStream);

[luckystar85]

Danke schön. Jetzt geht es.