hallo, sorry ist dann auch mein letzter thread für heute (bis 0 uhr ).
alsoich habe eine dll erstellt in dem alle icons sind(z.G sind sie auch transparent)...aber ich bekomme diese nicht geladen. Ich habe es dem code aus der code library abgeschaut, bloss das ich statt JPG icon genomme habe. Also das ganze sah dann so aus:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  h :HINST;
  r :TResourceStream;
  ic :TIcon;
  i :integer;
begin
  h := LoadLibrary('icons.dll');
  if h <> 0 then
  begin
    r := TResourceStream.Create(h, 'connect', 'ICON');
    ic := TIcon.Create;
      try
        ic.LoadFromStream(r);
        Image1.Picture.Icon.Assign(ic);
      finally
        ic.Free;
        r.Free;
      end;
  end;
  FreeLibrary(h);
end;

wieos geht das nun nicht? bei einem klick auf den button passiert gar nichts

ach es ging doch, die dll war nur im falschen ordner....ich bekomme nur die fehlermeldung "Resource connect wurde nicht gefunden"... sie is aber drin und ich hab es so in die res eingetragen:

connect ICON "connect.ico"

ist das falsch?

Moin silent,

versuch's mal RT_ICON statt mit ICON.

[EDIT]
Ich meine für die Typangabe in TResourceStream.Create.
Nicht in der Resourcendatei
[/EDIT]

hallo christian,

ich denke mal du meintest das so, oder?:

    r := TResourceStream.Create(h, 'connect', 'RT_ICON'); kommt aber selber fehler :\

Moin Silent,

seltsam, so ist es zumindest dokumentiert, und ansonsten sieht alles richtig aus.

Hast Du ein Programm, mit dem Du Dir Resourcen ansehen kannst?
Damit würde ich jetzt mal die DLL anschauen, ob die Resource von einem anderem Programm gefunden wird.
Du könntest auch mit Hilfe einer der Demos die bei Delphi eigentlich mitgeliefert werden, nämlich dem ResourceExplorer, nachschauen, wenn Du sonst nichts dafür hast.

Hi,

versuch es mal so:

markieren

Delphi-Quellcode:

r := TResourceStream.Create(h, 'connect', RT_ICON);
//oder
r := TResourceStream.Create(h, 'connect', RT_GROUP_ICON);

Au'revoir,
Aya~

hallo christian, doch die resourcen sind da, siehe hier:

http://www.angelfire.com/bug/delphi/reshack.JPG

hallo aya,

bei dem erstem kommt das gleiche, also das "connect" nicht gefunden wird...bei letzterem kommt "systemresourcen erschöpft"

Hi,

dann versuch es mal mit LoadImage.

Ico.Handle:=LoadImage(h,MAKEINTRESOURCE(ResID),IMAGE_ICON,0,0,LR_DEFAULTCOLOR); Au'revoir,
Aya~

Moin silent,

dann mal ohne ResourceStream:

zusammenfalten · markieren

Delphi-Quellcode:

var
  h :HINST;
  ic :TIcon;
  i :integer;
begin
  h := LoadLibrary('icons.dll');
  if h <> 0 then
  begin
    ic := TIcon.Create;
    try
      ic.Handle := LoadIcon(h,'connect');
      Image1.Picture.Icon.Assign(ic);
    finally
      ic.Free;
    end;
  end;
  FreeLibrary(h);
end;