mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 10:19:05 +02:00
f6ddabde85
resource compilation happens and that the standard FPC resource
helpers are not available. What happens is that all files specified
in {$r xxx} statements are packed together into an <appname>.jar
file, under the namespace "org.freepascal.rawresources". They
can be loaded using the java.lang.Class.getResource/getResourceAsStream()
api
git-svn-id: branches/jvmbackend@18776 -
108 lines
2.5 KiB
ObjectPascal
108 lines
2.5 KiB
ObjectPascal
{
|
|
|
|
FPCRes - Free Pascal Resource Converter
|
|
Part of the Free Pascal distribution
|
|
Copyright (C) 2008 by Giulio Bernardi
|
|
|
|
Source files handling
|
|
|
|
See the file COPYING, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
}
|
|
|
|
unit sourcehandler;
|
|
|
|
{$MODE OBJFPC} {$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, resource;
|
|
|
|
type
|
|
ESourceFilesException = class(Exception);
|
|
ECantOpenFileException = class(ESourceFilesException);
|
|
EUnknownInputFormatException = class(ESourceFilesException);
|
|
|
|
type
|
|
|
|
{ TSourceFiles }
|
|
|
|
TSourceFiles = class
|
|
private
|
|
protected
|
|
fFileList : TStringList;
|
|
fStreamList : TFPList;
|
|
public
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
procedure Load(aResources : TResources);
|
|
property FileList : TStringList read fFileList;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses msghandler, closablefilestream;
|
|
|
|
{ TSourceFiles }
|
|
|
|
constructor TSourceFiles.Create;
|
|
begin
|
|
fFileList:=TStringList.Create;
|
|
fStreamList:=TFPList.Create;
|
|
end;
|
|
|
|
destructor TSourceFiles.Destroy;
|
|
var i : integer;
|
|
begin
|
|
fFileList.Free;
|
|
for i:=0 to fStreamList.Count-1 do
|
|
TStream(fStreamList[i]).Free;
|
|
fStreamList.Free;
|
|
end;
|
|
|
|
procedure TSourceFiles.Load(aResources: TResources);
|
|
var aReader : TAbstractResourceReader;
|
|
aStream : TClosableFileStream;
|
|
i : integer;
|
|
tmpres : TResources;
|
|
begin
|
|
tmpres:=TResources.Create;
|
|
try
|
|
for i:=0 to fFileList.Count-1 do
|
|
begin
|
|
Messages.DoVerbose(Format('Trying to open file %s...',[fFileList[i]]));
|
|
try
|
|
aStream:=TClosableFileStream.Create(fFileList[i],fmOpenRead or fmShareDenyWrite);
|
|
except
|
|
raise ECantOpenFileException.Create(fFileList[i]);
|
|
end;
|
|
fStreamList.Add(aStream);
|
|
try
|
|
aReader:=TResources.FindReader(aStream);
|
|
except
|
|
raise EUnknownInputFormatException.Create(fFileList[i]);
|
|
end;
|
|
Messages.DoVerbose(Format('Chosen reader: %s',[aReader.Description]));
|
|
try
|
|
Messages.DoVerbose('Reading resource information...');
|
|
tmpres.LoadFromStream(aStream,aReader);
|
|
aResources.MoveFrom(tmpres);
|
|
Messages.DoVerbose('Resource information read');
|
|
finally
|
|
aReader.Free;
|
|
end;
|
|
end;
|
|
Messages.DoVerbose(Format('%d resources read.',[aResources.Count]));
|
|
finally
|
|
tmpres.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|