Icon aus DLL laden

[Pseudemys Nelsoni]

der text ist schon wieder zu schwierig für mich (ich versteh immer gern was ich tue, daher kopier icht nicht gern), ich lass es erstmal lieber, danke dir aber

gibt es vielleicht eine art TIconList?

edit: das war an aya gerichtet, ich guck mir deins gerade mal an christian

[Pseudemys Nelsoni]

juhu das geht

vielen dank

[Pseudemys Nelsoni]

noch eine frage, was ist HINST? sonst weiss ich soweit den code (instanz?)

[HomerGER]

ich hab das gleich problem
mein code

Code:

//******************************************************************************
//Global
//Icon aus Image.dll
Function Icon_Lesen_GU(icon_nr_s : String) : TIcon;
var
lib_h : THandle;
res_s : TResourceStream;
icon_ic : TIcon;
begin
    lib_h := LoadLibrary('Image.dll');

    if (lib_h <> 0) then
    begin
        res_s := TResourceStream.Create(lib_h, icon_nr_s, RT_ICON);
        icon_ic := TIcon.Create;
        try
            icon_ic.LoadFromStream(res_s);
            Result := icon_ic;
        finally
            res_s.Free;
            icon_ic.Free;
        end;
        FreeLibrary(lib_h);
    end;
end;

mit einem anderen progamm hab ich mal in die ddl geschaut, ist alles drin
er zeigt mir immer wieder die resurce nicht gefunden an
der code ist doch richtig ? warum geht es nicht

[HomerGER]

hilfe

[Sharky]

Zitat von HomerGER:

hilfe

Wird kommen wenn es jamand weiss. Das Pushen bringt also nichts.

[Christian Seehase]

Moin Homer,

was übergibst Du denn in icon_nr_s, und ist sichergestellt, dass der Resourcentyp RT_ICON ist?

[HomerGER]

Hi chritian
in der resource steht
Config_Icon1 ICON F:\Homers_XP_Tool_V3\3_Ressourcen\Progress_Icon\Co nfig_Icon1.ico
Config_Icon2 ICON F:\Homers_XP_Tool_V3\3_Ressourcen\Progress_Icon\Co nfig_Icon2.ico

aus der mach ich dann eine dll

und der function übergeb ich "config_Icon1"

mit einem icongrabber kann ich sehen das die icon da sind


@Sharky - sorry

[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