BinaryDFM > TextDFM

[Hawkeye219]

Hallo Andreas,

der folgende Code zeigt dir die prinzipielle Vorgehensweise:

Delphi-Quellcode:

procedure TForm1.Button1Click (Sender: TObject);
var
  FileStream   : TFileStream;
  StringStream : TStringStream;
begin
  // Formulardatei zum Lesen öffnen
  FileStream := TFileStream.Create('form_Main.dfm', fmOpenRead);
  try
    // Header der Ressourcendatei überlesen
    FileStream.ReadResHeader;
    // Ziel-Stream öffnen
    StringStream := TStringStream.Create('');
    try
      // Konvertierung binär -> Text
      ObjectBinaryToText (FileStream, StringStream);
      // Textinhalt in Memo anzeigen
      StringStream.Seek(0, soFromBeginning);
      Memo1.Text := StringStream.DataString;
    finally
      // Ziel-Stream schließen
      StringStream.Free;
    end;
  finally
    // Quell-Stream schließen
    FileStream.Free
  end;
end;

Bei der Übernahme solltest du selbstverständlich eine Fehlerbehandlung ergänzen.

Gruß Hawkeye