Icon aus DLL laden

[Christian Seehase]

Moin Homer,

versteh' ich jetzt nicht so ganz, aber probier doch mal die Version mit dem LoadIcon (siehe weiter oben im Thread).

[HomerGER]

moin christian
ich will nicht nur icon in die dll tun sondern auch bmp's
mit der function bekomme ich immer die meldung recource nicht gefunden
und mit der function die meinst

Delphi-Quellcode:

//******************************************************************************
//Global
//Icon aus Image.dll
Function Icon_Lesen_GU(icon_nr_s : String) : TIcon;
var 
  h :HINST; 
  ic :TIcon; 
  i :integer; 
begin 
  h := LoadLibrary('Image.dll');
  if h <> 0 then 
  begin 
    ic := TIcon.Create; 
    try 
      ic.Handle := LoadIcon(h, PChar(icon_nr_s));
      Result := ic;
    finally 
      ic.Free; 
    end; 
  end; 
  FreeLibrary(h);
end;

und so rufe ich sie dann auf
Haupt_Form.Image1.Picture.Icon.Assign(Icon_Lesen_G U('Config_Icon1'));

bekomme ich immer eine Zugriffsverletzung

[Christian Seehase]

Moin Homer,

hast Du auch schon mal die Kurzform probiert?

Delphi-Quellcode:

Function Icon_Lesen_GU(icon_nr_s : String) : TIcon;

var
  h :HINST;

begin
  Result := nil;
  h := LoadLibrary('image.dll');
  try
    if h <> 0 then
    begin
      Result        := TIcon.Create;
      Result.Handle := LoadIcon(h, PChar(icon_nr_s));
    end;
  finally
    FreeLibrary(h);
  end;
end;

Für Bitmaps gibt's auch LoadBitmap.

[HomerGER]

hier liegt die würze in der kürze
danke
aber nur den handle übergeben .. hmm und nicht das icon ? verstehen tu ich es aber nicht

[Christian Seehase]

Moin Homer,

da das Result als TIcon deklariert ist, wird ja nicht nur das Handle übergeben.
Bei derartigen Funktionsergebnistypen würde ich das eh' eher so machen, dass das Ergebnis als Parameter zurückgeliefert wird, und nicht im Result. Ist aber wohl auch Geschmackssache.

[HomerGER]

geschmackssache ???
nur so geht es. also bei icons.

[Christian Seehase]

Moin Homer,

wenn ich das so mache, kann ich das Icon, was ich zurückerhalten will auch als Parameter übergeben:

Delphi-Quellcode:

function (const AsIconname : string;const AicResult : TIcon) : boolean; // true = Success
var
  h :HINST;

begin
  Result := false;
  h := LoadLibrary('image.dll');
  try
    if h <> 0 then begin
      AicResult.Handle := LoadIcon(h, PChar(AsIconname));
      Result := true;
    end;
  finally
    FreeLibrary(h);
  end;
end;

Die Funktion lässt sich dann nur nicht so schön einbinden, aber ich habe eine bessere Übersicht über die belegten Resourcen.

[HomerGER]

ne las mal deine kurzform funktioniert wunderbar
genau so wie es haben wollt
ich glaube es gib mit TICON ein generelles Problem
auch aus einer resource oder dll zu laden

hier meine function um es aus dll usw zu extrahieren

Code:

//******************************************************************************
// HauptFunction
//Icon aus exe dll usw  ins Image ausgeben
Procedure Icon_Extract_GU(input_s : String; kompo_s : String);
var
bild_path_s : String;
icon : TIcon;
path_s : String;
pos_i : Integer;
index_i : Integer;
begin

    try
        //Platzhalter ersetzen //für %Root% und so
        bild_path_s := Platzhalter_Ersetzen_GU(input_s);

        //Alles rücksetzen
        icon := TIcon.Create;
        path_s := '';

        //Kein Komma verhanden
        if pos(',', bild_path_s) = 0 then
         begin
            bild_path_s := bild_path_s + ',0';
            pos_i := pos(',', bild_path_s);
        end
        //Komma vorhanden
        else
        begin
            pos_i := pos(',', bild_path_s);
        end;

        //Path filtern
        path_s := copy(bild_path_s, 1, pos_i - 1);

        //Index filtern
        index_i := StrToInt(copy(bild_path_s, pos_i + 1, Length(bild_path_s)));

        icon.Handle := ExtractIcon(hInstance,PChar(path_s),index_i);

        (Haupt_Form.FindComponent(kompo_s) as TImage).Picture.Icon := icon;
    finally
        icon.Free;
    end;
end;