Appel DLL delphi depuis C#

Version imprimable

Bonjour,

J'ai travaillé sur l'appel d'une dll Delphi en C#.
J'arrive à faire quelques manipulations (afficher un texte, écrire dans un fichier, ....).

Mon souci est le suivant :
Je n'arrive pas à ouvrir une base de données depuis la dll.
J'appelle la même dll depuis un exe Delphi ca marche....

Voici l'appel en C#

Code:

1
2
3
4
5
6
7
8
 
[DllImport("YMsSqlDbUpdate.dll", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)]
        static extern int yConnectedDatabase();
 
        static public void MainUpdate()
        {
            yConnectedDatabase();
        }

Et voilà le code en Delphi 7

Code:

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
 
procedure yConnectedDatabase; StdCall;
begin
    fMsSqlDbUpdate.yConnectedByDLL;
end;
 
procedure TfMsSqlDbUpdate.yConnectedByDLL;
var
    cnx : TYSqlConnection;
begin
    try
       cnx := TYSqlConnection.Create(nil);
      cnx.Connected      := false;
      cnx.ConnectionName := 'SQLServerConnection';
      cnx.DriverName     := 'SQLServer';
      cnx.GetDriverFunc  := 'getSQLDriverSQLServer';
      cnx.KeepConnection := true;
      cnx.LoginPrompt    := false;
      cnx.LibraryName    := 'dbexpsda.dll';
      cnx.VendorLib      := 'sqloledb.dll';
 
      cnx.Params.Values['DriverName']  := 'SQLServer';
      cnx.Params.Values['HostName']    := 'MyServer';
      cnx.Params.Values['DataBase']    := 'MyBDD';
      cnx.Params.Values['User_Name']   := 'USER';
      cnx.Params.Values['Password']    := '1';
 
      cnx.Params.Values['BlobSize']    := '-1';
      cnx.Params.Values['LongStrings'] := 'True';
      cnx.Params.Values['EnableBCD']   := 'False';
      cnx.Params.Values['FetchAll']    := 'True';
 
      try
         cnx.Connected := true;
        except
          on e:Exception do
             DebugSource('c:\tltl.txt', e.Message);
      end;
   finally
        DetruitObjet(cnx);
   end;
end;

Voila, merci pour votre aide.

13/05/2009, 23h41
smyley
Alors pour moi il y a deux erreurs.

* D'abord côté Delphi, ça fait un moment que j'ai pas touché à ça mais que je sache il faut explicitement exporter les fonctions avec Delphi ce qui donne
Code:

1 2 3 4 5 6 7 8 9 procedure yConnectedDatabase; StdCall;export; begin fMsSqlDbUpdate.yConnectedByDLL; end; ... exports yConnectedDatabase;
* Et ensuite en C# ça devrais être
Code:

1 2 [DllImport("YMsSqlDbUpdate.dll", CallingConvention = CallingConvention.StdCall)] static extern void yConnectedDatabase();
Il n'y a pas de raison que la fonction en C# renvoi int alors qu'en Delphi c'est une procédure (qui ne renvois rien donc).
14/05/2009, 08h18
joc02

Tu as raison sur les 2 points.

L'export était plus bas dans mon code (mais pas mit dans le poste). Je l'ai reprisé dans sur la description de la procédure.
Idem j'ai changé le int en void coté C#.

Je résume mon problème.
L'appel se fait bien car je peux affciher un message, écrire dans un fichier.
C'est lorsque la DLL ouvre une connexion à la base de données, ou la j'ai une violation d'accès.
14/05/2009, 13h23
smyley

C'est la seule fonction que tu appelles dans la DLL ? il n'y a pas une fonction à laquelle tu passes des arguments ?
14/05/2009, 13h49
joc02

Pour mes essais j'ai élagué au maximum ma dll.
Il ne reste que cette procédure, sans paramétre.

Si je trace sa pète sur le

Code:

cnx.Connected := true;

C'est vraiment l'ouverture de la connexion à la BDD qui pose problème....
14/05/2009, 16h23
joc02

Bon ben j'ai résolu mon problème....

En fait ca ne venait ni du code Delphi ni du code C#, mais une dll d'accès aux données coté Delphi qui ne permettait pas l'ouverture de base dans un contexte d'appel de la dll depuis C#

Il faut donc la dll : dbexpsda.dll en version 4.25.0.10

Merci pour votre aide