Charger un style à partir d'un fichier DLL

**XeGregory** · 09/08/2024, 21h24

Bonjour a tous,

Je suis à la recherche d'une méthode pour charger un style à partir d'un DLL.
Je rencontre un problème avec un message d'erreur : Le point d'entrée de procédure StyleFromResource est introuvable dans la bibliothèque de liens dynamiques.

Ma DLL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
{ StyleFromResource }
function StyleFromResource(const StyleResource: String): Boolean; stdcall;
begin
  try
    TStyleManager.LoadFromResource(HInstance, StyleResource);
    Result := True;
  except
    Result := False;
  end;
end;
 
exports
  StyleFromResource;

Projet

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
const
  DLLRes = 'Ressources.dll';
  { StyleFromResource }
function StyleFromResource(const StyleResource: String): Boolean; stdcall; external DLLRes;
 
procedure GetStyle(const StyleName: String);
begin
  if StyleFromResource(StyleName) then
  else
    TStyleManager.TrySetStyle('Clear Day');
end;
 
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'MyForm';
 
  IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
 
  case IniFile.ReadInteger('APP', 'Style', 0) of
    0:
      TStyleManager.TrySetStyle('Clear Day');
    1:
      GetStyle('Style_Gainsboro');
    2:
      GetStyle('Style_Malibu');
    3:
      GetStyle('Style_Material');
    4:
      GetStyle('Style_Waikawa');
    5:
      GetStyle('Style_W10Clear');
    6:
      GetStyle('Style_Win10Malibu');
    7:
      GetStyle('Style_Win10Material');
    8:
      GetStyle('Style_Win10Office');
  else
    TStyleManager.TrySetStyle('Clear Day');
  end;
 
  FreeAndNil(IniFile);
 
  Application.CreateForm(TMyForm, MyForm);
  Application.Run;
end.

Pourriez-vous m'expliquer l'origine du problème ?
Merci

**ShaiLeTroll** · 09/08/2024, 21h59

1- const String, cela fonctionne mais attention à ne pas être tenté de toujours utilisé dans String sans un FastShareMem ou autre.

Que donne un LoadLibrary et GetProcAddress ?
Je ne fais jamais de liaison statique sur mes DLL, sinon ben, je ne ferais pas de DLL

Un TDump ou DependancyWalker affiche bien ta fonctionne sur la DLL, export c'est dans le DPR uniquement ! non ?

Car la je suppose que tu as l'erreur dès le début du programme
Voir aussi un éventuel "delayed"

Ensuite, tu pense que TStyleManager dans l'espace mémoire de la DLL a un lien avec le TStyleManager dans l'espace mémoire de l'EXE ???
Pour cela, il faudrait que la DLL et l'EXE soit compilé en mode Package, ainsi cela utiliserait l'espace mémoire d'un BPL pour le TStyleManager, ce qui garantirait qu'il soit commun.

**XeGregory** · 10/08/2024, 08h05

Bonjour ShaiLeTroll,

Oui, effectivement, le problème vient d'un problème de liaison entre le projet et la Dll et TStyleManager.

J'ai fait une tentative de mettre en paramètre TStyleMenager dans la fonction, J'ai plus le message d'erreur (Le point d'entrée de procédure...), Mais j'ai une expression qui se soulève (Handle du style est non valide).

Projet 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
{ StyleFromResource }
function StyleFromResource(StyleManager: TStyleManager; const StyleResource: String)
  : Boolean; stdcall;
var
  Style: TStyleManager.TStyleServicesHandle;
begin
  Result := False;
 
  try
    StyleManager.TryLoadFromResource(HInstance, PChar(StyleResource), RT_RCDATA, Style);
    StyleManager.SetStyle(Style);
    Result := True;
  except
    on E: Exception do
      ShowMessage(E.Message);  // Handle du style est non valide
  end;
end;

Projet Form :

Code :

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

1
2
3
4
5
6
7
8
procedure GetStyle(const StyleName: String);
var
  StyleManager: TStyleManager;
begin
  if StyleFromResource(StyleManager, StyleName) then
  else
    TStyleManager.TrySetStyle('Clear Day');
end;

**Andnotor** · 10/08/2024, 11h23

Parce que les ressources sont compilées dans l'exe et non dans la dll. Il faut donc utiliser MainInstance et non HInstance.

Et s'assurer que la ressource existe avant de la charger ne serait pas inutile

**XeGregory** · 10/08/2024, 12h11

Bonjour Andnotor,

Non, justement, les styles (*.vsf) son sont inclus dans ma DLL.
Nom : Capture2.PNG
Affichages : 216
Taille : 44,5 Ko

**Andnotor** · 10/08/2024, 12h47

On ne voit pas d'identificateur Clear Day dans cette liste.

**XeGregory** · 11/08/2024, 21h12

Envoyé par Andnotor

On ne voit pas d'identificateur Clear Day dans cette liste.

C'est le style par défaut du projet. Il n'est pas inclus dans la dll.

Code :

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

TStyleManager.TrySetStyle('Clear Day');

**ShaiLeTroll** · 12/08/2024, 14h05

Je ferais l'inverse

Je ferais un simple LoadRessource depuis la DLL comme pour les resourcestring : Utilisation des DLL de ressources

Donc tout côté EXE pour le code

Je suis convaincu d'avoir déjà écrit ce genre de code LoadLibrary + LoadResource mais ça date de D6 ou D7, peut-être c'était via LoadPackage avec un BPL d'ailleurs.

Mais un doute existe :

Totalement théorique !
En Delphi 4, mon maitre d'apprentissage avait géré des DLL de ressources, je ne sais plus en détail mais toutes les images étaient dedans, l'application avait un style graphique avec un skin maison, cela semblait ultra facile, juste le chargement de la DLL, quelques API sur les ressources, et je n'ai pas souvenir que le reste du code s'occupait de savoir si les images en ressource était dans l'exe ou dans la DLL ... mais je n'ai aucun souvenir de l'astuce utilisé !

Depuis, je n'ai jamais fait de DLL de Ressource, je ne fais que des DLL de fonctions ou d'Interface (faux COM), voire de TForm (la dfm est une ressource 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
 
procedure GetStyle(const StyleName: String);
 
  function StyleFromResource(const StyleResource: String): Boolean;
  const
    DLLRes = 'Ressources.dll';
  var
    Style: TStyleManager.TStyleServicesHandle;
    HandleDLL: THandle;
  begin
    Result := False;
 
    try
      HandleDLL := LoadLibrary(DLLRes);  // pour une Dll statique, je me demande si HInstance ne fonctionnerait pas directement
      try
        TStyleManager.TryLoadFromResource(HandleDLL, PChar(StyleResource), RT_RCDATA, Style);
        TStyleManager.SetStyle(Style);
        Result := True;
      finally
        FreeLibrary(HandleDLL);
      end;
    except
      on E: Exception do
        ShowMessage(E.Message);  // Handle du style est non valide
    end;
  end;
 
begin
  if not StyleFromResource(StyleName) then // if not c'est mieux que if then else 
    TStyleManager.TrySetStyle('Clear Day');
end;
 
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'MyForm';
 
  IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
 
  case IniFile.ReadInteger('APP', 'Style', 0) of
    0:
      TStyleManager.TrySetStyle('Clear Day');
    1:
      GetStyle('Style_Gainsboro');
    2:
      GetStyle('Style_Malibu');
    3:
      GetStyle('Style_Material');
    4:
      GetStyle('Style_Waikawa');
    5:
      GetStyle('Style_W10Clear');
    6:
      GetStyle('Style_Win10Malibu');
    7:
      GetStyle('Style_Win10Material');
    8:
      GetStyle('Style_Win10Office');
  else
    TStyleManager.TrySetStyle('Clear Day');
  end;
 
  FreeAndNil(IniFile);
 
  Application.CreateForm(TMyForm, MyForm);
  Application.Run;
end.

**XeGregory** · 12/08/2024, 20h38

J'ai tenté de faire le contraire en chargeant les styles inclus dans la dll depuis le Projet Form.
Le problème persiste : Handle du style est non valide.

L'erreur se déclenche avec SetStyle :

Code :

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

TStyleManager.SetStyle(Style);

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
function StyleFromResource(const StyleResource: String): Boolean;
  const
    DLLRes = 'Ressources.dll';
  var
    Style: TStyleManager.TStyleServicesHandle;
    HandleDLL: THandle;
  begin
    Result := False;
 
    HandleDLL := LoadLibrary(DLLRes);
    try
      TStyleManager.TryLoadFromResource(HandleDLL, PChar(StyleResource), RT_RCDATA, Style);
      try
        TStyleManager.SetStyle(Style); // Handle du style est non valide
      except
        on E: Exception do
          ShowMessage(E.Message);
      end;
      Result := True;
    finally
      FreeLibrary(HandleDLL);
    end;
  end;

**SergioMaster** · 13/08/2024, 08h40

Bonjour,

depuis que je lis cette discussion je me pose la question de la pertinence de l'utilisation d'une DLL ?

**ShaiLeTroll** · 13/08/2024, 10h49

Envoyé par XeGregory

J'ai tenté de faire le contraire en chargeant les styles inclus dans la dll depuis le Projet Form.
Le problème persiste : Handle du style est non valide.

L'erreur se déclenche avec SetStyle :

Euh, c'est plutôt TryLoadFromResource qui doit retourner False ! non ?
Si tu utilisais LoadFromResource, c'est à mon avis là qu'il y aurait l'exception.

Fait un FindResource et LoadResource pour étudier au moins si la ressource est trouvée

D'ailleurs, tu es sûr pour RC_DATA ?
As-tu tenté ceci :

Code :

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

TStyleManager.TryLoadFromResource(HandleDLL, PChar(StyleResource), 'VCLSTYLE', Style);

En étudiant le code de LoadFromResource, le resource type semble bien compliqué, je ne pense pas que TryLoadFromResource est conçue pour être appelé directement par un développeur.
Pour moi, TryLoadFromResource est une méthode conçue pour DiscoverStyleResources.
Tu dois plutôt utiliser LoadFromResource.

Envoyé par SergioMaster

depuis que je lis cette discussion je me pose la question de la pertinence de l'utilisation d'une DLL ?

Le seul intérêt c'est si l'on plusieurs Exe, compilé en BPL, de fournir les styles qu'une seule fois, pour réduire la taille du Setup et la taille une fois déployée.

Après, vouloir faire payer une option "skin", un peu vicieux mais j'ai travaillé sur une application où la présence/absence de DLL limitait tout simplement les fonctionnalités dans le cadre d'une gestion de licence.

Sinon, comme tous les sujets dans "Débuter", souvent les débutants veulent faire des choses que les professionnels ne font jamais

**Papy214** · 13/08/2024, 12h20

D'accord avec Shaï ... J'ai aussi eu des problèmes de ce genre et j'ai mettre VCLSTYLE comme type de ressource dans le projet.

D'ailleurs, en faisant ça, le TStyleManager trouve tout seul le style quand lui fournit le nom du style. Même pas besoin de charger la ressource.
Mais pour le charger depuis une dll, je ne sais pas si change quelque chose

**XeGregory** · 13/08/2024, 12h26

Envoyé par ShaiLeTroll

D'ailleurs, tu es sûr pour RC_DATA ?
As-tu tenté ceci :

Code :

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

TStyleManager.TryLoadFromResource(HandleDLL, PChar(StyleResource), 'VCLSTYLE', Style);

Non, je n'ai pas testé. J'avais vu ça quelque part sur le web VCLSTYLE.
Quelle est la différence ?
Delphi ne propose pas le type VCLSTYLE dans l'ajout des ressources.

Envoyé par ShaiLeTroll

Sinon, comme tous les sujets dans "Débuter", souvent les débutants veulent faire des choses que les professionnels ne font jamais

Non, j'ai eu l'idée de créer une dll de ressource car j'ai plein d'autres fichiers qui sont également liés à l'exécutable.
Des bibliothèques icones & d'illustrations dans d'un format xml (DATAPACKET).
Des polices de fonts.
Dictionnaire, etc...

Il y avait un grand nombre de fichiers accessibles autour de l'exécutable.

Donc, je me suis dit, si j'intégré tout ça dans une dll, pourquoi pas intégré les styles aussi ! Cela permettrait aussi de diminuer la taille de l'exécutable.

La dll est aussi avantageuse car elle ne demande pas de contrôler tous les fichiers autour de l'exécutable.
Si la dll des ressources est absente, cela fonctionne pas !

**ShaiLeTroll** · 13/08/2024, 13h08

Du coup, pourquoi une DLL, si un seul EXE et une seule DLL ?

Autant faire un seul EXE autonome qui lui contient déjà toutes les ressources.

Envoyé par XeGregory

Non, je n'ai pas testé. J'avais vu ça quelque part sur le web VCLSTYLE.
Quelle est la différence ?
Delphi ne propose pas le type VCLSTYLE dans l'ajout des ressources.

C'est surement le type de ressource quand c'est les Style intégré par le projet directement dans Application > Apparence

Différent de l'intégration manuelle de fichier VSF par ressource et non par les options de PROJET

Sinon, j'utilise uniquement un fichier RC, je ne connais même pas le gestionnaire de ressources de l'IDE, je ne vois pas ce qu'il apporte, c'est un pauvre fichier texte.

**Papy214** · 13/08/2024, 18h28

Delphi ne propose pas le type VCLSTYLE dans l'ajout des ressources.

Delphi ne propose pas ça mais en fait tu peux mettre un peu ce que tu veux si j'en crois mon expérience.
J'ai déjà mis JPEG comme type de ressource et ça n'a pas posé de problème (ne pas me demander pourquoi, je n'en sais rien

)
Peut-être qu'il prend RC_DATA par défaut quand il ne trouve pas de correspondance.

Comme je le disais, l'avantage d'indiquer VCLSTYLE comme type de ressource, c'est qu'il suffit de faire :

Code :

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

1
2
 
TStyleManager.SetStyle('NomDuStyle');

et ça fonctionne tout seul. Le TStyleManager vérifie que la ressource nommée est dans les ressources du projet.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TGesStyles.SetStyle(const Value: string);
begin
  // Vérifier que le style est disponible
  if not MatchText(Value, TStyleManager.StyleNames) then
    raise Exception.CreateFmt('Le style %s n''est pas disponible', [Value]);
 
  // Enregistrer le nom du style dans les paramètres utilisateur
  SaveStyle(Value);
 
  // Appliquer le style
  TStyleManager.SetStyle(Value);
end;

**Lung** · 14/08/2024, 09h02

Envoyé par Papy214

Peut-être qu'il prend RC_DATA par défaut quand il ne trouve pas de correspondance.

De ce que je comprend, c'est tout comme :
https://learn.microsoft.com/fr-fr/wi...ion-statements
https://learn.microsoft.com/fr-fr/wi...fined-resource

**XeGregory** · 15/08/2024, 08h31

C'est dommage qu'il n'y ait pas la possibilité de charger les Styles directement depuis un TStream.

Un TStyleManager.LoadFromStream aurait été beaucoup plus simple de charger un style à partir d'une ressource externe.

J'ai quand même exploré le fichier projet (.dproj) pour trouver quel type Delphi affectait les styles sélectionnés depuis le gestionnaire des styles.
Nom : Capture4.PNG
Affichages : 64
Taille : 9,6 Ko

Nom : Capture4.PNG
Affichages : 64
Taille : 9,6 Ko

Donc le type des styles sont bien du type 'VCLSTYLE' et non 'RT_RCDATA'.

Après réflexion, je vais laisser les styles dans le projet. Après tout, pas grand intérêt de les ajouter à la dll, mis à part réduire la taille de l'exécutable.

**SergioMaster** · 15/08/2024, 10h45

Envoyé par XeGregory

Donc le type des styles sont bien du type 'VCLSTYLE' et non 'RT_RCDATA'.

Je pense que tu confonds ce qui est une déclaration dans le dproj et un type de ressource dans un fichier ressource.

Je maitrise très mal les styles VCL (je leur prèfère le terme apparences) les styles FMX sont pour moi plus simples car c'est ce que j'utilise

**XeGregory** · 15/08/2024, 11h00

D'après ce que j'ai trouvé, VCLSTYLE est un type de ressource. Il est donc possible d'ajouter manuellement ce type dans le gestionnaire des ressources Delphi.

Nom : Capture6.PNG
Affichages : 60
Taille : 90,0 Ko

Nom : Capture6.PNG
Affichages : 60
Taille : 90,0 Ko

Nom : MHj34.png
Affichages : 59
Taille : 31,4 Ko

**Papy214** · 15/08/2024, 12h51

Chargement à partir d'un BPL :

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
  BPL: string;
  H: THandle;
  Sh: TStyleManager.TStyleServicesHandle;
begin
  BPL := TPath.Combine(ExtractFilePath(ParamStr(0)),  '..\..\..\BPL\Win32\Debug\Package1.bpl');
  H := LoadPackage(PChar(BPL));
  if H = 0 then
    raise Exception.Create('BPL non trouvé');
  Sh := TStyleManager.LoadFromResource(H, 'Resource_1', 'VCLSTYLE');
  TStyleManager.SetStyle(Sh);
  UnloadPackage(H);
end;