Discussion :

[dymyver]

Bonjour à tous,

j'utilise une dll pour récupérer l'adresse d'un serveur.
mais j'ai une erreur à la fin de l'installation.

message d'erreur :
access violation at adress
read of address

merci de votre aide

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
 
 
[Files]
Source: serverIP.dll; Destdir: {tmp}; flags: dontcopy
 
[Registry]
Root: HKCU; SubKey: Software\MonProgramme\PROJECT1; ValueType: string; ValueName: Build; ValueData: {code:GetIPServer}
 
 
Code
function getServer (drive1: PChar) : AnsiString; 
external 'getServer@files:serverIP.dll stdcall  setuponly';
 
 
function GetIPServer(param : string) : String;
begin
  result := getServer('c:\'); 
end;

[Ph. B.]

Bonjour,

Le fait que la fonction exportée renvoie un AnsiString pourrait me laisser penser que la dll en question a été développée avec Delphi. Est ce le cas ?
Avez vous le prototype de la fonction exportée et les conventions d'appel ?
Avez vous testé le fonctionnement de la dll depuis un programme Delphi "basique" ?

[dymyver]

Bonjour Philippe,

merci de t'être penché sur mon problème.

Le fait que la fonction exportée renvoie un AnsiString pourrait me laisser penser que la dll en question a été développée avec Delphi. Est ce le cas ?

//oui mais nous n'avons pas les sources.


Avez vous le prototype de la fonction exportée et les conventions d'appel ?
//non

Avez vous testé le fonctionnement de la dll depuis un programme Delphi "basique" ?

//Oui depuis delphi aucun problème.

merci

[Ph. B.]

Bonjour,

Le fait que la fonction exportée renvoie un AnsiString pourrait me laisser penser que la dll en question a été développée avec Delphi. Est ce le cas ?
//oui mais nous n'avons pas les sources.

Avez vous le prototype de la fonction exportée et les conventions d'appel ?
//non

Avez vous testé le fonctionnement de la dll depuis un programme Delphi "basique" ?

//Oui depuis delphi aucun problème.

Quelle version de Delphi ?
Quel est le gestionnaire de mémoire utilisé avec Delphi ? ShareMem et BorlndMM.dll ? FastMM ?
Puisque testé depuis un programme Delphi, peut-on voir comment est déclarée la fonction et comment elle est appelée ? avec la convention stdcall ?

[dymyver]

Bonjour Philippe,

ma version de delphi 2010
FastMM


merci
code delphi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
const
  DLLName = 'serverIP.dll';
 
  function getServer (drive1: PChar) : AnsiString;  stdcall; external DLLName;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(getServer('c:\'));
end;

[Ph. B.]

Bonjour,

Le programme basique Delphi fonctionne car lui et la dll doivent s'appuyer sur l'unité FastShareMem et permettre le partage de ressources dont les string.
Innosetup n'utilise pas ce partage d'une part et d'autre part il est développé avec une autre version de Delphi (2, 5 ou 2009 pour unicode). Ils n'utilisent donc pas le même tas (=heap) et l'erreur doit se produire lorsqu'Innosetup essaie de libérer la mémoire qui ne lui appartient pas...

Sans pouvoir modifier les sources de la dll qui propose la fonction initiale, je ne vois qu'une solution alambiquée : créer une dll qui va encapsuler cet appel initial (ceci suivant les mêmes règles que le programme basique) et en proposer le résultat sous une forme exploitable par Innosetup, par exemple function GetServerIP(Drive1, ServerIP: PChar; LenServerIp: Integer): Integer;.
Côté Innosetup, il faudra initialiser une chaine de caractères et en transmettre le pointeur et la taille à la fonction . Cette chaine sera remplie à concurrence de LenServerIP caractères (Ansichar) par la fonction appelée qui renverra également le nb de caractères réellement utiles...