Wie sieht denn nun eigentlich der Lösungsansatz genau aus? Nach den hier vorliegenden Hinweisen würde ich einen Parser vermuten, der aus der
DFM die Deklarationen einer Image/ImageList-Komponente extrahiert und isoliert um darauf den jeweiligen Componentreader loszulassen. Ich würde mir noch nicht einmal die Mühe machen, das Hexkauderwelsch zu verstehen.
Das sollte doch für alle Komponenten gleich funktionieren. Man müsste sie nur registrieren und die Bildextrahierlogik auf Basis der konkreten Properties individuell programmieren. Dafür bietet sich eine Factory an. Der Pseudocode sähe so aus:
Delphi-Quellcode:
Procedure ExtractImages (aDFM :
string; aImages : TList);
var
index : Integer;
imageComponentDFM :
string;
classType : TComponentClass;
definition :
string;
extractor : IComponentImageExtractor;
Begin
repeat
imageComponentDFM := ExtractNextPortion(aDFM,
index);
// get next component definition
if imageComponentDFM='
'
then break;
// no more components
SplitDFMIntoClassAndDefinition(imageComponentDFM, classType, definition);
extractor := TComponentImageExtractorFactory.Create(classType);
if extractor =
nil then continue;
// the class is not registered
extractor.ReadComponentData(definition);
extractor.ExtractImages(aImages);
until false;
end;
type
IComponentImageExtractor :
interface
Procedure ReadComponentData (aDefinition :
String);
// Will initialize the component from the DFM definition
Procedure ExtractImages (aImages : TList);
// Will copy the images from the component to the list
end;
TComponentImageExtractorFactory :
class
class procedure Create (aComponentClass : TComponentClass);
class procedure Register (aExtractor : IComponentImageExtractor; aComponentClass : TComponentClass);
end;
Für jede Komponente, die Bildinformationen enthält, implementiert man einen 'ComponentImageExtractor', der die beiden recht banalen Methoden implementiert und registriert die Klasse zusammen mit der Komponente, für die der Extractor gedacht ist (also TImage, TImageList, TBitBtn usw.)
Die Methode 'ReadComponentData' ist vermutlich für alle Komponenten gleich. Sie erwartet einen String der Form (o.ä.)
'object ImageList: TImageList #13#10 Bitmap = {494...} end'
und liest die Daten über
TStream.ReadComponent
ein.
Über die Factory kann man das dann problemlos und beliebig erweitern. Unübersichtlich ist es auch nicht, das die Aufgaben schon komplett verteilt sind.