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