Discussion :

[BobaL]

Bonjour,

Je cherche à utiliser une DLL C++ externe dans mon application Delphi.
Mon problème est que je ne comprend pas comment accéder aux déclarations des fonctions vu qu'elles sont en C++.
Voici un extrait du code (fichier complet en pièce jointe) :

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
#pragma once
namespace Rimage { namespace Rapid { namespace Impl {
 
class InternClientSession;
class WinSubclasser;
 
}}}
 
namespace Rimage { namespace Rapid { namespace Api {
 
class Connection;
class ISessionStatusListener;
class IJobStatusListener;
class IXmlModifyListener;
class ServerAlert;
class ImageOnlyJob;
class ProductionOnlyJob;
class ImageAndRecordJob;
 
...
 
class SIMPLECLIENT_API ClientSession
{
public:
	// No public constructor
	virtual ~ClientSession();
 
	virtual Connection* Connect(LPCTSTR clientId, LPCTSTR host=NULL, LPCTSTR port=NULL);
...

Côté Delphi voici comment j'ai essayé d'y accéder :

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
type
  RimageRapidApiConnection = record
  end;
  PRimageRapidApiConnection = ^RimageRapidApiConnection;
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FPRimageRapidApiConnection: PRimageRapidApiConnection;
  end;
 
var
  Form1: TForm1;
 
  TRimageRapidApiClientSessionConnect: function(ClientID: PAnsiChar; Host: PAnsiChar = nil; Port: PAnsiChar = nil): PRimageRapidApiConnection; cdecl;
  function fRimageRapidApiClientSessionConnect(const ADLLHandle: HModule; AClientID: PAnsiChar; AHost: PAnsiChar = nil; APort: PAnsiChar = nil): PRimageRapidApiConnection;
 
implementation
 
{$R *.dfm}
 
function fRimageRapidApiClientSessionConnect(const ADLLHandle: HModule; AClientID: PAnsiChar; AHost: PAnsiChar = nil; APort: PAnsiChar = nil): PRimageRapidApiConnection;
begin
  Result := nil;
  try
//    @TRimageRapidApiClientSessionConnect := GetProcAddress(ADLLHandle, 'Rimage.Rapid.Api.ClientSession.Connect');
//    @TRimageRapidApiClientSessionConnect := GetProcAddress(ADLLHandle, 'Rapid.Api.ClientSession.Connect');
//    @TRimageRapidApiClientSessionConnect := GetProcAddress(ADLLHandle, 'Api.ClientSession.Connect');
//    @TRimageRapidApiClientSessionConnect := GetProcAddress(ADLLHandle, 'ClientSession.Connect');
    @TRimageRapidApiClientSessionConnect := GetProcAddress(ADLLHandle, 'Connect');
    if Assigned(TRimageRapidApiClientSessionConnect) then
      Result := TRimageRapidApiClientSessionConnect(AClientID, AHost, APort);
  except
    //
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  DLLHandle: THandle;
begin
  DLLHandle := LoadLibrary(PChar(ExtractFilePath(Application.ExeName) + 'Rimage.Rapid.Api.dll'));
  if DLLHandle >= 32 then
  begin
    FPRimageRapidApiConnection := fRimageRapidApiClientSessionConnect(DLLHandle, 'test');
    if FPRimageRapidApiConnection <> nil then
      ShowMessage('cool');
    FreeLibrary(DLLHandle);
  end;
end;
 
end.

J'ai essayé quelques variantes mais sans trop savoir quoi modifier et surtout sans succès.

Du coup si quelqu'un à une idée ou une piste pour moi...

Merci.

[Paul TOTH]

c'est en théorie réalisable, en pratique c'est assez complexe.

de ce fait, la solution généralement utilisée est de passer par un "wrapper", une DLL C/C++ qui expose les objets sous forme de fonctions. Le sujet a été abordé plusieurs fois déjà.

[BobaL]

Merci.

J'avais déjà ouvert mon VisualStudio mais j'ai tenté ma chance au cas ou quelqu'un aurait découvert un moyen

[ShaiLeTroll]

selon la documentation, il existe une version .NET

The Rapid API has been compiled using the Visual Studio 2005 VC8 compiler
Microsoft Visual C++ 2008 SP1 Redistributable Package is required.

The Rapid API has been compiled using Visual Studio 2005 and .NET Version 2.0.

Et dans cas, il y a plus simple, via Visual Studio.NET hérite les classes une par une en y ajoutant l'interop-COM
Ainsi, tu pourrais importer cette nouvelle assembly interop-COM comme une TLB classique et ainsi l'utiliser toujours comme un Objet

Mon responsable a procédé ainsi pour Crystal Report 2008

Si tu veux utiliser la version du C++ (cela me semble plus pénible)
Il existe aussi C++Builder qui peut le faire pas forcément besoin de VisualStudio !
C++Builder te fournira un accès au classe exportée par ta DLL C++ et en plus te fournira la VCL

Personnellement, je préfère encapsuler via des Interfaces (DelphiInterface en C++Builder)
Ainsi, au lieu de remettre tout à plat, et d'avoir bcp de fonctions avec bcp de paramètres, on conserve un code OO proche !