Wie Image aus VCL-Formular-Datei (.dfm) auslesen

[Furtbichler]

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.