Discussion :

[mactwist69]

Bonjour tout le monde,

Bon, alors déjà je suis débutant en Delphi et InnoSetup. J'ai "hérité" d'un projet InnoSetup qui installe un projet de mon entreprise.

On m'a fais une démonstration courte de comment ça fonctionne, hélas sans le tester et la personne est partis.

Or au premier test, au lancement du Setup, bimmm un problème:

Code :

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

1
2
Runtime Error (at -1:0):
Cannot Import dll:C:\DOCUMENT~1\Rd\LOCAL.....\IPUtils.dll

Je suis donc allez voir dans le code, j'ai trouvé:

Code :

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

1
2
[Files]
Source: "..\Setup Files Global\IPUtils.dll";  DestDir: {tmp}; Flags: dontcopy;

Or si je me déplace un dossier au dessus, dans Setup Files Global, la dll existe bien.

Dans le code plus loin il y a:

Code :

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

1
2
function GetLocalIPAddress: PChar;
external 'GetLocalIPAddress@files:IPUtils.dll stdcall';

Ce que j'ai compris de ça, c'est que à l'installation, l'instaleur fais appel a la dll, c'est pourquoi il place la dll dans "tmp".

Question: pourquoi ne trouve il pas la dll ? Pourquoi le flag est a "dont copy" ?

Je vous remercie d'avance.

[Cl@udius]

Salut

Pourquoi le flag est a "dont copy" ?

Ce flag précise que cette DLL sera ignorée pendant la phase de copie des fichiers. Elle ne sera donc pas copiée sur la machine cible, mais utilisée uniquement pendant la phase d'installation et supprimée en fin d'installation.

A noter que le DestDir: {tmp} me semble inutile.

pourquoi ne trouve il pas la dll ?

Tu peux nous montrer la partie du code qui appelle ta fonction.

@+ Claudius.

[mactwist69]

Merci pour la réponse très compréhensive:

Le code qui fait appel a la fonction (qui fait appel a la DLL):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
{ EditIpMachine }
  EditIpMachine := TEdit.Create(Page);
  with EditIpMachine do
  begin
    Parent := Page.Surface;
    Left := ScaleX(224);
    Top := ScaleY(111);
    Width := ScaleX(153);
    Height := ScaleY(21);
    TabOrder := 1;
    Text := GetLocalIPAddress();
  end;

Le truc c'est que cette partie là était "censé" marcher à la base... Je n'ai pas rajouter de code...

[Cl@udius]

Bon rien de spécial dans l'appel.

Je ne vois a priori pas d'erreur dans le script.
Donc il faut chercher ailleurs:

• La DLL fait-elle appel à d'autres DLLs (dépendances)
• Ta DLL est 32 ou 64 bits ?
• Ton environnement de déploiement est-il 32 ou 64 bits ?

Voilà pour les questions en vrac qui me viennent à l'esprit.

Visiblement il trouve la DLL, mais il n'arrive pas à la charger.

@+ Claudius.

[mactwist69]

Et bien c'est bien ce qui me fait peur...

Rien de spécial, la dll est indépendante. L'environnement de développement n'a pas changé depuis que j'ai repris le projet...

Je suis dans la mouise !! lol