Discussion :

[ced001]

Bonjour,

Dans mon projet Delphi win32, je dois utiliser des fonctions provenant d'une dll c++ (libsvm). Cette librairie a été compilée avec l'outil c/c++ Builder de Borland avec les fichiers source *.cpp, *.h.

Pour une fonction c qui renvoie une chaine de caractères:

Code :

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

char * PrintHelloyou();

J'arrive à récupérer directement la chaîne de caractères dans delphi. C'était assez fastidieux quand même ^^.

Maintenant je dois utiliser une autre fonction de la dll, qui renvoie un pointeur sur une structure

Code :

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

struct svm_model *svm_train(const struct svm_problem *prob,  struct svm_parameter *param);

et c'est là que ca coince . Lors de l'execution en mode "pas à pas", le programme n'arrive pas à trouver la fonction svm_train de la dll. Pourtant j'ai utilisé le même procédé que pour la fonction PrintHelloYou();

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
 
  //test svm_train
  Handle := LoadLibrary('myDLL.dll');
  if Handle <> 0 then
    begin
      pointeur_tmp := GetProcAddress(Handle, '_svm_train');
    if pointeur_tmp <> nil then
         begin
       showmessage('debut de l''entrainement');
     // my_model := _svm_train(myPsvm_prob, UPsvm_parameter);
       showmessage('fin de l''entrainement');
       end;
 
    end;
    FreeLibrary(Handle);
 
   // Test PrintHello
    Handle := LoadLibrary('myDLL.dll');
    if Handle <> 0 then
    begin
      pointeur_tmp2 := GetProcAddress(Handle, '_PrintHelloYou');
    if pointeur_tmp2 <> nil then
         begin
       showmessage('debut de PrintHello');
       myPCHAR := _PrintHelloYou;
 
       showmessage('fin de PrintHello; message : '+Pansistring(MyPchar));
       end;
 
    end;
    FreeLibrary(Handle);

Ici:
pointeur_tmp2 , pointeur_tmp sont des pointeurs de type pointer

pointeur_tmp n'est pas egal à nil, alors que pointeur_tmp2 = nil.

Donc j'en deduit que le programme n'a pas trouver l'adresse de la fonction svm_train de la dll.

Quelqu'un aurait une idée?
Merci

Si ca peut aider, les codes sources* h, *PAS:

Wrapper C ::

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
unit SVM;
interface
uses Sysutils;
 
type
     svm_node = record
          index : longint;
          value : double;
       end;
 
 
 type
    ADouble = array of double; // array of double
    PA_Double = ^ADouble; // pointer of an array of double
    Asvm_node = array of svm_node;
    PAsvm_node = ^Asvm_node;
 type
      svm_parameter = record
            svm_type : longint;
            kernel_type : longint;
            degree : longint;
            gamma : double;
            coef0 : double;
            cache_size : double;
            eps : double;
            C : double;
            nr_weight :
             longint;
            weight_label : ^longint;
            weight : ^double;
            nu : double;
            p : double;
            shrinking : longint;
            probability : longint;
         end;   
Type
    Pchar  = ^char;
    Plongint  = ^longint;
 
 
    Psvm_node  = ^svm_node;
    type  svm_problem = record
          l : longint;
          y : PA_Double;
          x : PAsvm_node;
       end;
    Psvm_parameter  = ^svm_parameter;
    Psvm_problem  = ^svm_problem;
 type
     svm_model = record
          param : svm_parameter ;    // parameter
          nr_class : longint ;        // number of classes, = 2 in regression/one class svm
          l : integer;            // total #SV
          SV : ^Psvm_node;         // SVs (SV[l])
          sv_coef : ^Pdouble ;    // coefficients for SVs in decision functions (sv_coef[n-1][l])
          rho : Pdouble;        // constants in decision functions (rho[n*(n-1)/2])
          probA:Pdouble;          // pariwise probability information
          probB : Pdouble;
 
          // for classification only
 
          label1 : integer;        // label of each class (label[n])
          nSV: ^longint;        // number of SVs for each class (nSV[n])
          // XXX
          free_sv : longint;        // 1 if svm_model is created by svm_load_model
      end;
type
  Psvm_model = ^svm_model;
 
{$IFDEF FPC}
{$PACKRECORDS C}
{$ENDIF}
 
{$ifndef _LIBSVM_H}
{$define _LIBSVM_H}
{ C++ extern C conditionnal removed }
 
const
DLLName = 'myDLL.DLL';
C_SVC =0;
NU_SVC =1;
ONE_CLASS = 2;
EPSILON_SVR=3;
NU_SVR=4;
 
const
 
LINEAR=0;
POLY =1;
RBF=2;
SIGMOID = 3;
PRECOMPUTED=4;
 
 
 
function _svm_train(prob : Psvm_problem; param:Psvm_parameter):Psvm_model;cdecl;external DLLName;
function _PrintHelloyou():PCHAR; cdecl;external DLLName;
{ C++ end of extern C conditionnal removed }
{$endif}
    { _LIBSVM_H  }
 
implementation
end.

Form PAS:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
unit Test_frame;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,SVM,SDF_SMF_ToSVM;
 
 
type
  TForm4 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form4: TForm4;
  SDF_SMF_ToSVM :TSVMLaunch;
  my_property_Table : Pdouble;
implementation
 
{$R *.dfm}
 
 
procedure TForm4.Button2Click(Sender: TObject);
var
  Handle : Thandle;
  FileExt: string[5];
  my_Smffile: string;
  pointeur_tmp,pointeur_tmp2 : pointer;
  string1 :Pchar;
begin
  SDF_SMF_ToSVM := TSVMLaunch.create;
  Opendialog2.Title := 'Open *.SMF file';
  Opendialog2.DefaultExt := '.SMF';
  Opendialog2.Filter := 'SMF File (*.SMF)|*.SMF';
  if Opendialog2.Execute then
  begin
    FileExt := AnsiUpperCase(ExtractFileExt(Opendialog2.FileName));
    if FileExt = '.SMF' then
    begin
      if FileExists(Opendialog2.FileName) then
      begin
        my_Smffile := Opendialog2.FileName;
        Edit2.Text := ExtractFileName(my_Smffile);
      end
      else
      begin
        MessageDlg('Select an existing SMF file.', mtInformation,
          [mbOk],
          0);
        Exit;
      end;
    end;
 
  end;
  Handle := LoadLibrary('DLL_libsvm3.dll');
   // _PrintHello();
    if Handle <> 0 then
    begin
 
    pointeur_tmp := GetProcAddress(Handle, '_PrintHelloyou');
    if pointeur_tmp <> nil then
         begin
       showmessage('debut de PrintHello');
       string1 := PrintHelloyou;
       showmessage('fin de PrintHello :'+ PAnsiChar(string1));
       end;
    pointeur_tmp2 := GetProcAddress(Handle, '_svm_train');
    if pointeur_tmp2 <> nil then
       begin
       showmessage('debut de svm_train');
       SDF_SMF_ToSVM.Remplissage_svm_problem(my_Smffile); // 
       my_model := _svm_train(SDF_SMF_ToSVM.my_svm_problem, SDF_SMF_ToSVM.UParameter);
       end;
    end;
    FreeLibrary(Handle);
 
 
 SDF_SMF_ToSVM.Free;
end;
end.

fichier *.h

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
50
51
52
53
54
#ifndef _SVM_H
#define _SVM_H
#include <iostream>
#include <string>
#define EXPORTCALL __declspec(dllexport)
using namespace std;
#ifdef __cplusplus
extern "C"  {
#endif
 
struct svm_node
{
    int index;
    double value;
};
 
struct svm_problem
{
    int l;
    double *y;
    struct svm_node **x;
};
 
enum { C_SVC, NU_SVC, ONE_CLASS, EPSILON_SVR, NU_SVR };    /* svm_type */
enum { LINEAR, POLY, RBF, SIGMOID, PRECOMPUTED }; /* kernel_type */
 
struct svm_parameter
{
    int svm_type;
    int kernel_type;
    int degree;    /* for poly */
    double gamma;    /* for poly/rbf/sigmoid */
    double coef0;    /* for poly/sigmoid */
 
    /* these are for training only */
    double cache_size; /* in MB */
    double eps;    /* stopping criteria */
    double C;    /* for C_SVC, EPSILON_SVR and NU_SVR */
    int nr_weight;        /* for C_SVC */
    int *weight_label;    /* for C_SVC */
    double* weight;        /* for C_SVC */
    double nu;    /* for NU_SVC, ONE_CLASS, and NU_SVR */
    double p;    /* for EPSILON_SVR */
    int shrinking;    /* use the shrinking heuristics */
    int probability; /* do probability estimates */
};
 
EXPORTCALL struct svm_model *svm_train(const struct svm_problem *prob,  struct svm_parameter *param);
EXPORTCALL char *PrintHelloyou();
#ifdef __cplusplus
}
#endif
 
#endif /* _SVM_H */

[Eric Boisvert]

a par que tu semble utiliser dans Form PAS la DLL: Handle := LoadLibrary('DLL_libsvm3.dll');
et que tu semble compiler avec "myDLL.dll" dans le code C++?

Et aussi une fois compilé, j'imagine que tu copie la nouvelle DLL dans le repertoire de ton application appelante car lorsque tu utilise LoadLibrary avec juste le nom de la DLL, et dans ce cas, il cherche la DLL dans cet ordre
1- dans le repertoire de l'application
2- dans le repertoire courrant
3- dans le repertoire systeme de window

donc t'as peut-être une veille version de ta dll qui traine dans le repertoire
de ton application pendant que tu copie la nouvelle version dans le repertoire system de window et donc c'est toujours la vielle qui est loadé?

Sinon, faudrait analyser la DLL avec un outil comme
Dependency Walker pour voir la décoration des functions exportées.

et là...j'ai plus d'idée là!

[ced001]

Merci pour ta réponse
je vais essayer Dependency Walker

En fait la librairie MyDLL.dll est la même que DLL_libSVM3.dll

La dll est dans le même repertoire que le projet Delphi.