Charger une ressource icon

**Magohamoths** · 31/05/2013, 01h10

Bonsoir,

Sous delphi XE4

J'ai le fichier RC ci-dessous:

Code :

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

1
2
3
ICOTEST ICON "icotest.ico"
ACTION1 ICON "action1.ico"
BRIEFCASE ICON "Briefcase.ico"

Je compile avec cgrc.exe. Aucun problème pour le .res

J'ai essayé plusieurs codes sans succès. L'icone est introuvable dans le fichier de ressource.

Code :

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

1
2
3
4
5
6
7
8
var
  icon: TIcon ; 
begin
  icon := TIcon.create;
  iconname:=  'BRIEFCASE';
  icon.LoadFromResourceName(HInstance, iconname); 
//ou la variante
icon.LoadFromResourceName(0, iconname);

Code :

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

1
2
3
4
5
6
7
8
var
Icone: TIcon;
Res: TResourceStream;
begin
	Icone := TIcon.Create;
	Icone.Handle := LoadIcon(HInstance, 'BRIEFCASE');
	Image1.Picture.Icon := Icone;
	Icone.free;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
Icone: TIcon;
Res: TResourceStream;
begin
 Res := TResourceStream.Create(hInstance, 'BRIEFCASE', 'RT_ICON'); //ou GROUP_RT_ICON
  try
    icon := TIcon.Create;
    icon.LoadFromStream(Res);
    Image1.Canvas.StretchDraw(Image1.Canvas.ClipRect, icon);
    icon.Free;
  finally
    Res.Free;
  end;

Dans tous les cas l'icone n'est pas trouvé dans le fichier de ressource.

Par contre avec des PNG en RCDATA pas de problème.

Si quelqu'un à la solution.

Merci

**Rayek** · 31/05/2013, 10h09

Dans le dernier code tu as une erreur, le RT_ICON de doit pas être entre quote

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
Icone: TIcon;
Res: TResourceStream;
begin
 Res := TResourceStream.Create(hInstance, 'BRIEFCASE', RT_ICON); //ou GROUP_RT_ICON
  try
    icon := TIcon.Create;
    icon.LoadFromStream(Res);
    Image1.Canvas.StretchDraw(Image1.Canvas.ClipRect, icon);
    icon.Free;
  finally
    Res.Free;
  end;

**Magohamoths** · 31/05/2013, 13h54

Envoyé par Rayek

Dans le dernier code tu as une erreur, le RT_ICON de doit pas être entre quote

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
Icone: TIcon;
Res: TResourceStream;
begin
 Res := TResourceStream.Create(hInstance, 'BRIEFCASE', RT_ICON); //ou GROUP_RT_ICON
  try
    icon := TIcon.Create;
    icon.LoadFromStream(Res);
    Image1.Canvas.StretchDraw(Image1.Canvas.ClipRect, icon);
    icon.Free;
  finally
    Res.Free;
  end;

Merci pour l'info mais la ressource est toujours introuvable.

**Paul TOTH** · 31/05/2013, 14h19

le .RES est bien lié au projet par un {$R fichier.RES} ?

**Magohamoths** · 31/05/2013, 15h28

Envoyé par Paul TOTH

le .RES est bien lié au projet par un {$R fichier.RES} ?

Oui
De plus si j'ouvre l'exe avec un editeur de resource, la resource est bien présente.

Si la même ressource est définie en RCDATA il n'y a pas de problème pour récupérer la ressource.

Je pense qu'il y a un problème avec les ressources de type ICON.

**Paul TOTH** · 31/05/2013, 16h34

et avec la fonction LoadIcon(hInstance, 'ICOTEST') ?

j'utilise cela pour des ID numériques

Code :

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

1
2
3
4
5
6
 
function GetIcon(ID: Integer): TIcon;
begin
  Result := TIcon.Create;
  Result.Handle := LoadIcon(hInstance, PChar(ID));
end;

ça doit fonctionner aussi avec des ID alpha

Code :

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

1
2
3
4
5
6
 
function GetIcon(ID: string): TIcon;
begin
  Result := TIcon.Create;
  Result.Handle := LoadIcon(hInstance, PChar(ID));
end;

**Magohamoths** · 04/06/2013, 12h58

Envoyé par Paul TOTH

Code :

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

1
2
3
4
5
6
 
function GetIcon(ID: Integer): TIcon;
begin
  Result := TIcon.Create;
  Result.Handle := LoadIcon(hInstance, PChar(ID));
end;

[/code]

Merci Paul, effectivement avec des ID numériques ça fonctionne.

Pour le fichier de resource j'ai utilisé 2 méthodes
1 - Je suis passé par ResEdit de Julien Audo et j'utilise Pelles C pour créer la dll et compiler le fichier .rc en .res et l'inclure dans le dll.
2 - Je compile un fichier .rc avec cgrc -v -fotest.res test.rc et l'inclus dans mon source avec {$R test.res}

Les 2 fichiers fonctionnes.

fichier .rc

Code :

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

1
2
1001 ICON "ico\\Briefcase.ico"
8001 ICON "ico\\action1.ico"

Code pour charger à partir de la DLL

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
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button3Click(Sender: TObject);
var
  h: THandle;
  icon: TIcon; // TIcon;
  iconID: Integer;
begin
  FreeLibrary(h); // Pour être sur que la lib soit fermée
  h := LoadLibrary('resourcelib.dll');
  try
    if h <> 0 then
    begin
      icon := TIcon.create;
      iconID := 8001;
      icon.Handle := LoadIcon(h, PWideChar(iconID));
      Image1.Picture.icon.Assign(icon);
      Application.icon.Assign(icon);
    end
    else
    begin
      ShowMessage('Load Resource DLL FAILED!');
    end;
  finally
    FreeLibrary(h);
    FreeAndNil(icon);
  end;
end;

**Andnotor** · 04/06/2013, 15h48

euh.. sous XE+, tu peux inclure des images en ressource depuis l'EDI : Menu Projet/Ressources et images.

ps : pas eu de soucis avec un identifiant texte par loadIcon ou LoadImage.

**Magohamoths** · 04/06/2013, 17h02

Envoyé par Andnotor

euh.. sous XE+, tu peux inclure des images en ressource depuis l'EDI : Menu Projet/Ressources et images.

ps : pas eu de soucis avec un identifiant texte par loadIcon ou LoadImage.

Ca fonctionne que l'id soit un identifiant numérique ou une chaine. Plus besoin de passer par la compilation c++ pour la DLL.

Je reviens à delphi après 4 ans d'absences (delphi 2007) et je ne connaissez pas cette option.

Par contre en passant directement pas cgrc ça ne fonctionne pas. Je laisse tombé.

Merci à tous et spécialement à Andnotor et Paul Toth que je suis heureux de retrouver dans le forum delphi.

**Paul TOTH** · 05/06/2013, 16h07

NB: Delphi sait compiler un .rc il suffit de l'ajouter au projet, il ajoutera une ligne

Code :

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

1
2
 
{$R 'fichier.res' 'fichier.rc'}

et le .rc sera compilé automatiquement en .res

**Lung** · 05/06/2013, 18h12

Envoyé par Paul TOTH

NB: Delphi sait compiler un .rc il suffit de l'ajouter au projet, il ajoutera une ligne

Code :

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

1
2
 
{$R 'fichier.res' 'fichier.rc'}

et le .rc sera compilé automatiquement en .res

Je ne connaissais pas.

Ca existe depuis la nuit des temps, je suppose ?

**Paul TOTH** · 05/06/2013, 19h06

Envoyé par Lung

Je ne connaissais pas.

Ca existe depuis la nuit des temps, je suppose ?

je suppose, en tout cas sous D6 déjà

attention ça ne fonctionne pas en ligne de commande (dcc32.exe), uniquement depuis l'IDE. En ligne de commande il faut passer par brcc32.exe pour compiler le .rc

**Magohamoths** · 05/06/2013, 20h58

Envoyé par Paul TOTH

NB: Delphi sait compiler un .rc il suffit de l'ajouter au projet, il ajoutera une ligne

Code :

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

1
2
 
{$R 'fichier.res' 'fichier.rc'}

et le .rc sera compilé automatiquement en .res

Exact mais les ressources ICON sont introuvables dans ce cas. J'avais essayé.

Merci

**Paul TOTH** · 05/06/2013, 21h36

voici pourtant un projet qui compile et fonctionne sous D6 et XE2 32 et 64 bits
ICONS.zip

Code :

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

1
2
Execute ICON Execute.ico
101 ICON Execute.ico

Code :

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

1
2
3
program Project1;
 
{$R 'resource.res' 'resource.rc'}

Code :

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

1
2
3
4
5
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.Icon.Handle := LoadIcon(hInstance, 'Execute');
  Image2.Picture.Icon.Handle := LoadIcon(hInstance, PChar(101));
end;

Charger une ressource icon

Langage Delphi

Discussions similaires

Partager

Partager