Discussion :

[waici]

Bonjour,

Je débute à la fois dans le développement Delphi pour .net (avec D2005 Ed. Personnelle) et dans la création et l'utilisation de DLL.

J'ai donc commencé à écrire une DLL de classe toute simple, en suivant le tutoriel de Tony Baheux:
Projet DLL (Data.dll) avec une unité pour ma classe (DataAccess.pas) : j'ai une classe TDataAccess avec une variable publique (sans importance ici) et son constructeur. J'y ai créé une fonction CreateData renvoyant un TDataAccess dont le résultat est "TDataAccess.Create;"

Seulement, lorsque je veux compiler ma DLL, j'ai le message d'erreur suivant : "E2297 La définition de procédure doit être la convention d'appel ILCODE" et rien de plus dans l'aide.

Voici le code de mon unité DataAccess.pas : la compilation plante sur la ligne 27.

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
unit DataAccess;
 
interface
 
uses System.Data;
 
type
  TDataAccess = class
  private
    { Déclarations privées }
  public
    DS: DataSet;
    constructor Create;
  end;
 
  function CreateData: TDataAccess; stdcall; export;
 
implementation
 
constructor TDataAccess.Create;
begin
  inherited Create;
  // TODO: Ajouter ici le code du constructeur
  DS.ReadXMLSchema('DataSchema.xml');
end;
 
function CreateData: TDataAccess; stdcall; export;
begin
  Result := TDataAccess.Create;
end;
 
end.

Merci d'avance !

waici

[waici]

Ah... euh... bon ça marche en enlevant la directive "stdcall;"

Mais.. j'ai maintenant une nouvelle erreur
"E2395 Procédure non protégée autorisée uniquement en compilant avec {$UNSAFECODE ON}"

Cette option ne rendrait-elle pas la DLL instable ?

[waici]

Alors... lié ou non ? :
J'ai placé la directive

Code :

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

{UNSAFECODE ON}

dans ma DLL, elle s'est donc bien compilée.

Mais, lorsque j'appelle la procédure CreateData de ma DLL à partir de mon application hôte, j'ai l'erreur suivante à l'exécution :
System.Runtime.InteropServices.MarshalDirectiveException "Can not marshal return value: The type definition of this type has no layout information"

Les idées sont les bienvenues !

waici

[Jayceblaster]

Alors moi quand je parle de DLL simple je fais vraiment un truc simple qui ne renvoie pas des types space genre TDataAccess (contente toi de renvoyer un INT deja un bon début)...
Moi je me souvient j'ai fais comme toi, j'ai commencé par une DLL...la mienne faisait une addition...
par exemple:

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
 
unit Addition;
 
 
type
  Addition = class
  private
    { Déclarations privées }
  public
  end;
 
implementation
 
 
 
function Addition(a : integer; b : integer): Integer; stdcall; 
begin
  Addition:= a + b;
end;
 
exports Addition;
end.

voila alors ca ca marche a coup sur ...et il me semble que le STDCALL est indispensable il définit la convention d'appelle entre tes fonction de DLL et ton programme...