Discussion :

[WebPac]

Salut tout le monde,

dans une form, j'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TfAccueil.FormCreate( Sender : TObject );
var
  Res : TResourceStream;
  Png : TPNGObject;
begin
    Res := TResourceStream.Create( 0, 'logo', 'PNG' );
 
  if Res <> nil then
  begin
    Png := TPNGObject.Create;
    Png.LoadFromStream( Res );
    imLogo.Picture.Assign( Png );
    Png.Free;
    Res.Free;
  end;
end;

logo est une image PNG inclue dans un fichier de ressources .res.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{$R resMyFichier.res}

Ce code dans un projet d'application classique fonctionne sans problème.
Ce même code dans un projet "Bibliothèque de types" avec des objets automation me renvoie ce message d'erreur :

Ressource logo non trouvée

Pourtant, j'ai bien vérifier que l'appel {$R resMyFichier.res}, j'ai vérifier que le fichier .res se trouve dans le répertoire du projet dll.

Avec REsHacker, j'ai regardé les ressources inclues dans la dll et je retrouve l'image PNG nommée logo.

Pourquoi je n'arrive pas à charger l'image PNG nommée logo ?
La dll est appelée depuis un autre programme, est-ce que le problème peut venir de là ?
Merci pour votre aide.

[WebPac]

C'est bon, j'ai trouvé, il fallait remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Res := TResourceStream.Create( 0, 'logo', 'PNG' );

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Res := TResourceStream.Create( hInstance, 'logo', 'PNG' );

En fait, il devait essayer de trouver l'image dans l'exe hôte de la dll et non dans la dll.

Merci, ++.