Discussion :

[thibaudlosc]

Bonjour à tous,

Voilà mon soucis, j'essaye d'utiliser une dll réalisée en Delphi 7 :

Code :

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

1
2
3
4
5
 
function toto(entree: Integer) : Integer;
begin
    Result := entree * 2;
end;

Et, après avoir cherché sur le net et aprris des tutoriels de Thomas Lebrun et de Nico-pyright je comprend pas pourquoi j'ai une levée d'exception de type : System.EntryPointNotFoundException.

Voici mon code :

Code c# :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Navigation;
using System.Windows.Shapes;
using System.Runtime.InteropServices;
 
namespace test_appel_dll
{
    /// <summary>
    /// Logique d'interaction pour MainWindow.xaml
    /// </summary>
    public partial class MainWindow : Window
    {
        [DllImport("Kinevolutionengine_dll.dll", EntryPoint="toto")]
        public static extern int toto (int entree);
 
        public MainWindow()
        {
            InitializeComponent();
        }
 
        private void button1_Click(object sender, RoutedEventArgs e)
        {
            try
            {
                int par;
                int res;
 
                par = Convert.ToInt32(textBox1.Text);
 
                System.Console.WriteLine(Convert.ToString(par));
                res = toto(par); // exception ici
                label1.Content = Convert.ToString(res);
            }
            catch (Exception)
            {
                return;
            }
        }

Merci d'avance

[phil_tema]

Bonjour,

A priori, la fonction n'est pas exposée dans ta DLL. Le code existe, mais elle n'apparaît pas dans la liste des fonctions disponibles.

Pour confirmer, tu peux télécharger l'utilitaire Dependency Walker de chez MS (http://www.dependencywalker.com) et ouvrir ta dll avec. si ta fonction est publiée, elle apparaîtra dans la zone "E".

Si elle n'existe pas, c'est qu'il y a probablement un paramètre à renseigner dans le projet Delphi (en C, on utilise un fichier de définition .DEF), qui liste les fonctions publiées de la DLL.

@+,

Philippe

[thibaudlosc]

Merci Phil, je n'avais pas vu ta réponse. En fait, j'ai omis le mot clé stdcall(pour gérer les différents types d'appel à fonction) dans Delphi ainsi que le exports (c'est donc normal que la fonction n'était pas visible). Voilà merci beaucoup.