Comment intégrer un Delphi DLL dans CBuilder

Version imprimable

12/09/2005, 08h28
Xavier

Comment intégrer un Delphi DLL dans CBuilder

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
12/09/2005, 17h35
TABZ

dll Delphi -> C++Builder

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
13/09/2005, 07h30
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:

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

// Appel sous Delphi:
Code:

1 2 3 4 5 var retCode :LongInt; begin retCode := InstRockey(self.handle,nil,'/i'); end;
Sous CB, j'ai fait comme suit:
Code:

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

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:

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