Laden und Speichern von Icons (Icon Parser, für Icon Dateien oder Resourcen)

[Zacherl]

Hallo zusammen,

die hier vorgestellte Unit beinhaltet eine Klasse zum Laden und Speichern von Icons. Die Icons können sowohl aus einer Icon Datei, als auch aus einer Resource (beliebige PE Datei) geladen werden. Die Klasse stellt dann sämtliche Einzelbilder des geladenen Icons in einer Liste zur Verfügung. Bei Bedarf können auch die entsprechenden GDI Handles zum Zeichnen des Icons (per DrawIcon) erstellt werden (CreateIconHandles auf true setzen).

Das Hinzufügen, Entfernen oder Bearbeiten von Bildern wird nicht unterstüzt. Allerdings kann die Klasse beispielsweise dazu verwendet werden, um einer beliebigen PE Datei ein Icon hinzuzufügen, oder das bestehende Icon zu ersetzen.

Viele Grüße
Zacherl

[Bummi]

Hi Zacherl, das funktioniert schön:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
 ir:TdxIconResource;
 ic:TIcon;
 i:Integer;
begin
   ic := TIcon.Create;
   ir:=TdxIconResource.Create;
   ir.CreateIconHandles := true;
   ir.LoadFromFile('C:\Icons\IconCollection\ix_ap_all\ico-files\add.ico');
   Caption := IntToStr(ir.ImageCount);
   For i := 0 to ir.ImageCount - 1 do
       begin
       memo1.Lines.Add(Format('H: %d  W:%d NB:%d HD:',[ir.Images[i].Width,ir.Images[i].Height,ir.Images[i].Numbytes,ir.Images[i].Handle])) ;
       ic.Handle := ir.Images[i].Handle;
       canvas.Draw(i*50,i*20,ic);
       end;
   ic.Free;
   ir.Free;
end;

wie soll das mit den PE - Dateien gehen,oder verstehe ich etwas anderes als Du darunter?

[Zacherl]

Hallo Bummi,

analog zum Laden aus einer Icon Datei, kannst du folgendes machen, um z.b. das Icon deiner eigenen EXE zu laden:
ir.LoadFromResource(hInstance, 'MAINICON'); Wenn du Icons aus externen PE Dateien extrahieren willst, kannst du wie folgt vorgehen:

Delphi-Quellcode:

var
  hModule: THandle;
begin
  hModule := LoadLibraryEx('ExterneExeDatei.exe', 0, LOAD_LIBRARY_AS_DATAFILE);
  if (hModule <> 0) and (hModule <> INVALID_HANDLE_VALUE) then
  try
    ir.LoadResource(hModule, 'ICONRESOURCENAME');
  finally
    FreeLibrary(hModule);
  end;
end;

Beim Speichern eines Icons in eine PE Datei funktioniert es etwas anders. Dort muss zum einen der Icon Header als RT_GROUPICON Resource angelegt werden und die Einzelbilder dann jeweils als eigene RT_ICON Resource. Deshalb übernimmt die SaveToResource() Funktion in diesem Falle den Dateinamen der Zieldatei als Parameter.

ir.SaveToResource('ExterneExeDatei.exe', 'ICONRESOURCENAME'); Wenn deine Zieldatei mehrere Icons besitzt könnte meine Methode allerdings teilweise die Einzelbilder überschreiben. Dafür habe ich bisher noch keinen Check eingebaut

[Bummi]

Da ich keine Möglichkeit fand unbenannte Icongroups zu laden habe ich den Code etwas erweitert. Ich habe die geänderte Datei als dxIconUtils_modi.pas beigelegt, da ich nicht sicher bin ob die Änderungen so wie sie vorgenommen wurden für Dich akzeptabel sind.

EDIT:

Rückgebaut siehe Folgepost

[Zacherl]

Hallo Bummi,

die Funktion zum Enumerieren der Resourcen passt sehr gut dazu Für Erweiterungen der Unit, bzw. allgemein meiner Codes bin ich immer offen und dankbar. Danke auch für deine Demo Anwendung! Um eine unbenannte bzw. ID Resource zu laden, wäre alternativ auch folgende Lösung mit meiner originalen LoadFromResource Funktion möglich gewesen:
ir.LoadFromResource('PEDatei.exe', PChar(12345)); Wobei 12345 hier für die ID der IconGroup Resource steht. Die Windows APIs zum Laden von Resourcen erwarten einen PChar Parameter und erkennen automatisch, ob man hier wirlich einen Namen oder nur eine ID übergeben hat. Aus diesem Grund habe ich den ResourceName Parameter der LoadFromResource Funktion ebenfalls als PChar deklariert und nicht, wie man es vermutlich normalerweise machen würde, als String

[Bummi]

Danke ... ich bau das zurück, was ein didn't know

[Ghostwalker]

Der Thread ist zwar schon was älter, aber, denk ich, nach wie vor aktuell.

Ich hab mir Zacherl's Code vorgenommen um noch ein paar extra Features dazu zu bauen.

Schließlich ist aber trotzdem eine eigene Klasse dazu gekommen (siehe Anhang)


Wichtiger Hinweiß:

Da mein Delphi keinen nativen PNG-Support bietet, bin ich auf eine externe Lib ausgewichen.
http://pngdelphi.sourceforge.net


Bisher hab ich das ganze nur rudimentär getestet (oder anders gesagt: Der Compiler meckert nicht).

Wer also Lust hat......

Natürlich sind auch Verbesserungen/Featurewünsche gern gesehen.

[Ghostwalker]

Kleiner Fix beim Laden aus der Resource.

Die Tests (laden und speichern) laufen bisher gut.