Discussion :

[joc02]

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 :

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

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 :

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
 
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.

[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 delphi :

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

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 c# :

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

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).

[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.

[smyley]

C'est la seule fonction que tu appelles dans la DLL ? il n'y a pas une fonction à laquelle tu passes des arguments ?

[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 :

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

cnx.Connected := true;

C'est vraiment l'ouverture de la connexion à la BDD qui pose problème....

[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