New Tip - ...use RCDATA resources in Kylix ? - sdcnewtip

New Tip - ...use RCDATA resources in Kylix ?

From: "SwissDelphiCenter.ch" <newsletter@xxxxxxxxxxxxxxxxxxxx>
To: sdcnewtip@xxxxxxxxxxxxx
Date: Thu, 7 Mar 2002 20:28:19 +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=1060



Autor:
Elias Zurschmiede <e.zurschmiede@xxxxxxxxxx>
http://www.delight.ch


-------------
...RCDATA Resourcen in Kylix verwenden ?
-------------
Kategorie: Kylix



{
  Resourcedateien (*.res) für Kylix können mit dem Resourcecompiler
  brcc32.exe von Delphi generiert werden.
  Siehe dazu Tip http://www.swissdelphicenter.ch/de/showcode.php?id=1049

  Kylix unterstützt keine benutzerdefinierte Resourcetypen. Deshalb müssen
  alle Resourcen, die keinen vordefinierten ResType haben, als RCDATA
  definiert werden.
  
  Beispiel mit TResourceStream
  Speichert die Resource (in userdefined.res) mit den Namen MYRES1 in die
  Datei test.txt
}

{
  To create resource files (*.res) for Kylix you can use the Delphi
  brcc32.exe resource compiler.
  Take a look at http://www.swissdelphicenter.ch/de/showcode.php?id=1049
  
  Kylix dont support userdefined resourcetypes. Therefore you have to define
  all resources without a predefined ResType as RCDATA.
  
  Example with TResourceStream
  Saves the resource (in userdefined.res) with the name MYRES1 to the file
  test.txt
}

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.xfm}
{$R userdefined.res}

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TResourceStream;
begin
  stream := TResourceStream.Create(HInstance, 'MYRES1', RT_RCDATA);
  with TFileStream.Create('test.txt', fmCreate) do begin
    CopyFrom(stream, stream.Size);
    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=1060



Author:
Elias Zurschmiede <e.zurschmiede@xxxxxxxxxx>
http://www.delight.ch


-------------
...use RCDATA resources in Kylix ?
-------------
Category: Kylix



{
  Resourcedateien (*.res) für Kylix können mit dem Resourcecompiler
  brcc32.exe von Delphi generiert werden.
  Siehe dazu Tip http://www.swissdelphicenter.ch/de/showcode.php?id=1049

  Kylix unterstützt keine benutzerdefinierte Resourcetypen. Deshalb müssen
  alle Resourcen, die keinen vordefinierten ResType haben, als RCDATA
  definiert werden.
  
  Beispiel mit TResourceStream
  Speichert die Resource (in userdefined.res) mit den Namen MYRES1 in die
  Datei test.txt
}

{
  To create resource files (*.res) for Kylix you can use the Delphi
  brcc32.exe resource compiler.
  Take a look at http://www.swissdelphicenter.ch/de/showcode.php?id=1049
  
  Kylix dont support userdefined resourcetypes. Therefore you have to define
  all resources without a predefined ResType as RCDATA.
  
  Example with TResourceStream
  Saves the resource (in userdefined.res) with the name MYRES1 to the file
  test.txt
}

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.xfm}
{$R userdefined.res}

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TResourceStream;
begin
  stream := TResourceStream.Create(HInstance, 'MYRES1', RT_RCDATA);
  with TFileStream.Create('test.txt', fmCreate) do begin
    CopyFrom(stream, stream.Size);
    Free;
  end;
end;



Best Regards
SwissDelphiCenter Team
www.swissdelphicenter.ch
[automatic generated EMail]
New Tip - ...use RCDATA resources in Kylix ?

Other related posts:
