Discussion :

[Ardely]

Bonjours

J’aimerais bien savoir comment programmer une condition si Mydll.DLL existe ou pas!

C'est-à-dire si Mydll.DLL n’existe pas ne passe pas par la fonction GEM mais par la fonction EMO

Voici un petit example :

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
 
function GetNo; stdcall; external ‘Mydll.DLL‘;
function GEM: string;
begin
..utilise Mydll.dll … 
..
end;
 
function EMO: string;
begin
…utilise pas Mydll.dll 
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
if  Mydll.DLL -> existe then edit1.text := GEM
else edit1.text :=  EMO;
 
end;

Merci beaucoup pour vos aides
Salutation
Ardely

[Modulpro]

Bonjour,

Tu peux trouver dans la FAQ comment tester l'existence d'un fichier. Cette méthode doit pouvoir convenir pour les dll.

Cordialement

[Ardely]

Salut,

Je passe deja des heures à cherche une solution merci pour ta réponse et le lien, je vais tester...

Salutation

[Modulpro]

Bonjour,

En relisant le code de la faq, je me suis rendu compte qu'il faudrait changer le nom de la variable locale Result : boolean, le mot "result" étant réservé par FPC pour renvoyer le résultat de la fonction.

Bonne continuation.

[EpiTouille]

tu fais comme si ta dll était un fichier texte. Puis tu le teste en lecture avec restet, et tu attrape les erreurs :

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
program TesteDll;
 
uses crt;
 
function isDLL(Nom : string) : boolean;var f:text; begin
  assign(f, Nom);
  {$I-}
  reset(f);
  {$I+}
  if ioresult<> 0 then isDLL := false else isDLL := true;
end;
 
begin
  if isDLL then writeln('La DLL existe ! ');
end.

[Modulpro]

Salut titeeee,

Tu as oublié de passer un paramètre à la fonction dans ton code.
De plus, la ligneif ioresult<> 0 then isDLL := false else isDLL := true; peut être remplacée par isDLL := (ioresult = 0); ou encore par Result := (ioresult = 0);.
Enfin pourquoi déclarer une variable de type Text alors que le type File permet de manipuler tous les fichiers ?