Thema: Delphi ReadComponentResFile

Einzelnen Beitrag anzeigen

Benutzerbild von Fossibaer58809
Fossibaer58809

Registriert seit: 20. Aug 2004
Ort: Lüdenscheid
50 Beiträge
 
Delphi 2007 Professional
 
#6

Re: ReadComponentResFile

  Alt 27. Nov 2004, 11:44
Hallo zusammen,

ich meine mich dunkel erinnern zu können, dass man in Delphi 6 auswählen konnte ob die Formulardateien als Resource oder als Text abgespeichert werden sollen. In Delphi 7 ist das Textformat aber Standard. Deshalb muss die Datei konvertiert werden um sie mit ReadComponentResFile einlesen zu können.

Hier ein kurzes funktionierendes Beispiel (ganz quick and dirty).
Code:
procedure TForm1.Button1Click(Sender: TObject);
var path : string;
    InStream,OutStream : TMemoryStream;
begin
    path:=ExtractFilePath(Paramstr(0));
    Instream := TMemoryStream.Create;
    OutStream := TMemoryStream.Create;
    InStream.LoadFromFile(path+'unit2.dfm');
    InStream.Position := 0;
    ObjectTextToResource(InStream, OutStream);
    OutStream.Position := 0;
    Form2:=TForm2.CreateNew(Application);
    OutStream.ReadComponentRes(Form2);
    InStream.Free;
    OutStream.Free;
    Form2.Show;
end;
Michael Küper
Der Kreis ist eine Figur, bei der an allen Ecken und Kanten gespart wurde.
  Mit Zitat antworten Zitat