Discussion :

[Etienne]

Bonjour,

J'ai un programme en visual basic 6.0 qui utilise la fonction FileTreat d'une DLL. Cette fonction transforme un fichier source en un fichier destination.

Voici son écriture

Code :

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

1
2
3
4
 
Public Function TraiteFichier(ByVal NomFicSrc As String)
NomFicDst = App.Path & "\OutFile.txt"
Res = FileTreat(ByVal NomFicSrc, ByVal NomFicDst)

Cette fonction marche très bien. NomFicSrc contient le chemin du fichier source et le fichier de destination est correctement généré.

Je veux utiliser la même fonction dans un programme Delphi. J'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function FileTreat( Src:PChar; Dst:PChar):Integer; external 'treat.dll';
 
Function TraiteFichier:Integer;
Const
   SrcName = 'c:\FichierOrg.txt';
   DstName = 'c:\FicherDst.txt';
Begin
  Result:= FileTreat(PChar(SrcName),PChar(DstName));
End;

Cette fonction se lance normalement mais elle renvoie un result indiquant une erreur d'argument. Comme si mes noms de fichiers n'étaient pas vus correctement.

Est-ce qu'il y a une subtilité dans le passage des paramètres entre VB et Delphi ? En particulier en ce qui concerne les chaines ?

Merci

[ShaiLeTroll]

ajoute un "stdcall"

Code :

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

Function FileTreat( Src:PChar; Dst:PChar):Integer; stdcall; external 'treat.dll';

Par défaut, c'est en register qui transmet les paramètres dans l'ordre naturel (De gauche à droite) contrairement au standard C qui transmet en partant du dernier paramètre au dernier (De droite à gauche)

[Etienne]

Merci,

C'est celà, je n'arrive pas à me faire que StdCall n'est pas le mode par défaut...

Et.