Discussion :

[sgign]

Bonjour,

J'ai besoin d'utiliser une dll écrite en delphi 7 (que je ne peux pas modifier).
Je connais le prototypage des fonctions en delphi, mais je n'arrive pas à appeler les différentes fonctions.

Prototypage de la fonction delphi:

Code :

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

procedure p_PROC(var a,b,c,d,e:T_Single_Ptr);

Côté C# je ne sais pas comment déclarer des pointeurs vers des réels sur 4 (T_single_ptr).

J'ai cherché du côté de DllImport mais je patauge pour l'instant.

Code :

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

1
2
[DllImport("DELPHI.dll", CharSet = CharSet.Ansi, EntryPoint = "p_PROC")]
        public static extern void p_PROC(? a, ? b, ? c, ? d, ? e);

Auriez-vous une idée de comment faire pour utiliser une dll delphi pour appeler des fonctions de cette dll ?

Merci d'avance pour votre aide.

[PatteDePoule]

J'utilise une DLL C++ dans un projet DotNet 4.0, voici des bouts de code qui vont surement t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
[DllImport("kernel32", SetLastError = true, CharSet = CharSet.Unicode)]
static extern IntPtr LoadLibrary(string lpFileName);
 
[DllImport("kernel32", CharSet = CharSet.Ansi, ExactSpelling = true, SetLastError = true)]
static extern UIntPtr GetProcAddress(IntPtr hModule, string procName);
 
internal static class UnsafeNativeMethods
{
	[DllImport("kernel32", CharSet = CharSet.Ansi, ExactSpelling = true, SetLastError = true)]
	internal static extern IntPtr GetProcAddress(IntPtr hModule, string procName);
}
 
[UnmanagedFunctionPointer(CallingConvention.Cdecl, CharSet = CharSet.Ansi)]
internal delegate int MaMethodeInvoker(string pProfile, string pPW, string pIniFile, string pInputFile, string pOutputFile, [MarshalAs(UnmanagedType.LPStr)] StringBuilder ErrBuff, int BuffLen);

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
IntPtr hmod = LoadLibrary(@"C:\blabla\Gazou.dll");
 
if (hmod == (IntPtr)0)
	throw new ApplicationException("Impossible de charger la DLL");
 
IntPtr fptr = UnsafeNativeMethods.GetProcAddress(hmod, "MaMethode");
MaMethodeInvoker maMethode = (MaMethodeInvoker)Marshal.GetDelegateForFunctionPointer(fptr, typeof(MaMethodeInvoker));
 
string pInputFile = @"C:\toto.txt"
 
int buflen = 500;
 
int result = maMethode(epf, password, enTrustIni, pInputFile, pOutputFile, ErrBuff, buflen);