paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 16:16:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: xmlresource

Browse Source 
git-svn-id: trunk@42864 -
This commit is contained in:
mattias 2013-09-18 15:14:28 +00:00
parent bf148ad189
commit dfb5099c23
2 changed files with 6 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
examples/xmlresource/xmlresource.pas
View File

@ -19,24 +19,3 @@ end;
initialization
RegisterPackage('xmlresource', @Register);
end.
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit xmlresource;
interface
uses
xmlresourcefile, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('xmlresourcefile', @xmlresourcefile.Register);
end;
initialization
RegisterPackage('xmlresource', @Register);
end.

10
examples/xmlresource/xmlresourcefile.pas
View File

@ -21,11 +21,12 @@ type
public
class function FindResourceDirective(Source: TObject): boolean; override;
class function ResourceDirectiveFilename: string; override;
class function GetUnitResourceFilename(AUnitFilenae: string): string; override;
class function GetUnitResourceFilename(AUnitFilename: string;
{%H-}Loading: boolean): string; override;
class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); override;
class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); override;
class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; override;
class function CreateReader(s: TStream; var DestroyDriver: boolean): TReader; override;
class function CreateReader(s: TStream; var {%H-}DestroyDriver: boolean): TReader; override;
class function CreateWriter(s: TStream; var DestroyDriver: boolean): TWriter; override;
class function QuickCheckResourceBuffer(PascalBuffer, LFMBuffer: TObject;
out LFMType, LFMComponentName, LFMClassName: string; out
@ -624,9 +625,9 @@ begin
end;
class function TXMLUnitResourcefileFormat.GetUnitResourceFilename(
AUnitFilenae: string): string;
AUnitFilename: string; Loading: boolean): string;
begin
result := ChangeFileExt(AUnitFilenae,'.xml');
result := ChangeFileExt(AUnitFilename,'.xml');
end;
class procedure TXMLUnitResourcefileFormat.TextStreamToBinStream(ATxtStream,
@ -677,6 +678,7 @@ class function TXMLUnitResourcefileFormat.QuickCheckResourceBuffer(
var
ms: TStringStream;
begin
Result:=mrOk;
ms := TStringStream.Create((LFMBuffer as TCodeBuffer).Source);
try
QuickReadXML(ms, LFMComponentName, LFMClassName, LCLVersion);