New Tip - ...load Rft Text from a resource file into a TRichEdit ?

  • From: "SwissDelphiCenter.ch" <newsletter@xxxxxxxxxxxxxxxxxxxx>
  • To: sdcnewtip@xxxxxxxxxxxxx
  • Date: Tue, 5 Mar 2002 11:17:42 +0100

* SwissDelphiCenter new Tip newsletter
* www.swissdelphicenter.ch
*
* To unsubscribe send a mail to sdcnewtip-request@xxxxxxxxxxxxx with the
* subject unsubscribe


Hallo,

Folgender neuer Tip ist neu auf SwissDelphiCenter verfügbar:

Besuchen Sie die Programmier Tips unter 
http://www.swissdelphicenter.ch/de/tipsindex.php


Bewerten Sie diesen Tip nach Schwierigkeitsgrad, Nützlichkeit und Gesamthaft auf
http://www.swissdelphicenter.ch/de/showcode.php?id=1049



Autor:
Thomas Stutz <tom@xxxxxxxxxxxxxxxxxxxx>
http://www.swissdelphicenter.ch


-------------
...Rtf Text aus einer Ressource in ein TRichEdit laden ?
-------------
Kategorie: Dateien



(*
  Load RTF file from resource:

  You can store any kind of file as a RCDATA resource.
  The following example shows this with an RTF file.

  Create a text file called textres.rc and put the
  following line in it:

  TESTDOC RCDATA "textdoc.rtf"

  Next, compile that using the Borland Resource Compiler,
  which is provided with Delphi.

  brcc32.exe textres.rc
  
  Your next step is to include the compiled resource (.RES) file into
  your executable, which can be done with the {$R} compiler directive.

*)

(*

  Man kann eine beliebige Datei als RCDATA Ressource in eine
  Exe-Datei einbinden.
  Das folgende Beispiel zeigt, wie man einen RTF-Text aus
  einer Ressource lädt und in einem TRichEdit anzeigt.

  Erstelle zuerst eine Datei "textres.rc" mit folgendem Inhalt:

  TESTDOC RCDATA "textdoc.rtf"

  Kompiliere diese mit brcc32.exe:

  brcc32.exe textres.rc
  
  Es wurde nun eine textres.res Datei erzeugt.

*)


implementation

{$R *.dfm}
{$R textres.res}  // <---- your resource file!

procedure TForm1.Button1Click(Sender: TObject);
var
  rs: TResourceStream;
Begin
  rs := TResourceStream.Create( hinstance, 'TESTDOC', RT_RCDATA );
  try
    Richedit1.PlainText := False;
    TempStream.Position := 0;
    Richedit1.Lines.LoadFromStream(rs);
  finally
    rs.free;
  end;
end;





Best Regards
SwissDelphiCenter Team
www.swissdelphicenter.ch
[automatisch generierte EMail]


----------------------------------------------------
ENGLISH NEWSLETTER
----------------------------------------------------

Hi,

This new tip is new available on SwissDelphiCenter.ch:

Visit the programming tips at http://www.swissdelphicenter.ch/en/tipsindex.php


Rate this tip after skill, useful and overall at
http://www.swissdelphicenter.ch/en/showcode.php?id=1049



Author:
Thomas Stutz <tom@xxxxxxxxxxxxxxxxxxxx>
http://www.swissdelphicenter.ch


-------------
...load Rft Text from a resource file into a TRichEdit ?
-------------
Category: Files



(*
  Load RTF file from resource:

  You can store any kind of file as a RCDATA resource.
  The following example shows this with an RTF file.

  Create a text file called textres.rc and put the
  following line in it:

  TESTDOC RCDATA "textdoc.rtf"

  Next, compile that using the Borland Resource Compiler,
  which is provided with Delphi.

  brcc32.exe textres.rc
  
  Your next step is to include the compiled resource (.RES) file into
  your executable, which can be done with the {$R} compiler directive.

*)

(*

  Man kann eine beliebige Datei als RCDATA Ressource in eine
  Exe-Datei einbinden.
  Das folgende Beispiel zeigt, wie man einen RTF-Text aus
  einer Ressource lädt und in einem TRichEdit anzeigt.

  Erstelle zuerst eine Datei "textres.rc" mit folgendem Inhalt:

  TESTDOC RCDATA "textdoc.rtf"

  Kompiliere diese mit brcc32.exe:

  brcc32.exe textres.rc
  
  Es wurde nun eine textres.res Datei erzeugt.

*)


implementation

{$R *.dfm}
{$R textres.res}  // <---- your resource file!

procedure TForm1.Button1Click(Sender: TObject);
var
  rs: TResourceStream;
Begin
  rs := TResourceStream.Create( hinstance, 'TESTDOC', RT_RCDATA );
  try
    Richedit1.PlainText := False;
    TempStream.Position := 0;
    Richedit1.Lines.LoadFromStream(rs);
  finally
    rs.free;
  end;
end;




Best Regards
SwissDelphiCenter Team
www.swissdelphicenter.ch
[automatic generated EMail]

Other related posts:

  • » New Tip - ...load Rft Text from a resource file into a TRichEdit ?