Discussion :

[Xavier]

Excusez moi, je pense que cela est un vieux sujet. Comme je n'ai pas pu trouver la solution, je le pose ici pour avoir des aides.
J'ai un DLL conçu pour Delphi5 et je voudrais l'intégrer dans mon appli sous CBuilder 6. Comme il n'y a pas de fichier *.lib, je ne sais pas du tout comment le faire.
Merci d'avance

[TABZ]

Il faut utiliser implib.exe, présent en principe dans le répertoire "...CBuilderN\bin", de la façon suivante :

implib MyFile.lib MyFile.dll

Le .lib est créé à partir de la dll.

Il reste évidemment à déclarer les prototypes des fonctions dans le cpp...
Tabz

[Xavier]

Merci, j'ai obtenu un .lib ajouté dans mon projet CB.
Mais, lors de link, le programme ne peut pas trouver la fonction:

La fonction initiale importée sous Delphi:

Code :

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

function InstRockey(hOwnerWnd:HWND;plValue:PLongInt;pStrValue:LPSTR):LongInt;stdcall;external 'InstDll.Dll';

// Appel sous Delphi:

Code :

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

1
2
3
4
5
var
    retCode :LongInt;
begin
     retCode := InstRockey(self.handle,nil,'/i');
end;

Sous CB, j'ai fait comme suit:

Code :

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

1
2
3
4
5
6
7
// Déclaration CB
//extern "C" __declspec(dllimport) long int InstRockey( HWND hOwnerWnd, long*, char* );
 
// Appel CB
  int retCode;
  long iii;
  retCode = InstRockey( NULL, &iii, "/i");

// Erreur: unresolved externe _InstRockey(*****.

[Xavier]

J'ai eu une réponse: sans passer *.lib. Je ne sais pas pourquoi, mais l'essentiel est que cela marche.

// Je mets ici pour ce qui s'intéresse

// Dans CBuilder:

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
      HINSTANCE handle;
        FARPROC   lpFarProc;
        int (*lpInstRockey)(long,long,char *);
        int retCode;
        char tbuf[80];
 
        handle = LoadLibrary("InstDll.dll");
        if (handle != NULL)
        {
                sprintf(tbuf,"load dll successfully!");
                Memo1->Lines->Add(tbuf);
                lpFarProc = GetProcAddress(handle,"InstRockey");
 
                if (lpFarProc != NULL)
                {
                        sprintf(tbuf,"load function successfully!");
                        Memo1->Lines->Add(tbuf);
                        lpInstRockey=(int(cdecl *)(long,long,char *))lpFarProc;
 
                        Memo1->Lines->Add("Déinstal......");
                        retCode=lpInstRockey(NULL, NULL, "/r");  
                }
         }

Balises [Code] rajoutées par Ricky81
Merci d'y penser à l'avenir