Discussion :

[Gruick]

Bonjour,

Je debute en delphi et je dois utiliser les fonctions d'une DLL en C#.

J'ai cru compremdre a travers les nombreux posts que c'est legerement plus complique que d'appeller un simple DLL en C.

J'ai essaye de suivre les instructions sur cette page :
http://www.drbob42.com/examines/examin36.htm

Apres avoir installe ma dll,
quand je fait appel aux fonctions de ma dll, ca leve une Exception 'EAccessViolation'.

Auriez vous une piste pour m'aider a avancer ?

Merci d'avance

PS : je travaille avec delphi 7 c'est pour cela que je n'ais pas poste dans dotnet

[Aka Guymelef]

Bonjour et bienvenue sur les forums de Développez.com

Sans bouts de code de votre part nous permettant de voir comment vous vous y prenez nous ne pourrons pas vous aider.

[Gruick]

Merci et desole pour le manque d'infos.

Code :

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

1
2
3
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, TCMM18Library_TLB;

Ma librairie est TCMM18Library.dll

Code :

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

1
2
3
4
5
6
7
8
9
var
  Form1: TForm1;
 
  NumberOfDevices : Integer;
  ResultComTest : Integer;
  ConfigPath: PChar;
  ThermoPath: PChar;
  PortCOM: PChar;
  mTCMM18Lib : TCMM18Lib;

Code :

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

1
2
3
4
5
6
7
8
9
10
initialization
begin
 
ConfigPath:= 'C:\Documents and Settings\S.T\Desktop\C#\test.xml';
ThermoPath:= 'C:\Documents and Settings\S.T\Desktop\C#\Thermocouples.tcdata';
PortCOM:= 'COM4';
 
 
NumberOfDevices := mTCMM18Lib.SetConfiguration(ConfigPath,2000);
end;

L'execption se leve a l'appel de SetConfiguration.

en C# set configuration :

Code :

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

public int SetConfiguration(string aFileName, double aTimerPeriod)

Il y a deux classes et une structure dans ma dll :

Code :

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

1
2
3
4
 
public struct TempData{}
public class TCMM18Lib{}
public class MeasureDoneArgs : System.EventArgs{}

[Aka Guymelef]

Comme ça brut de fonderie au vu de ce que vous avez envoyé le problème est que vous n'instanciez visiblement pas votre variable mTCMM18Lib.

Si TCMM18Library_TLB est le fichier généré via le module d'importation comme dans les instructions sur la page que vous avez précédemment cité, alors il y devrait y avoir une classe CoCMM18Lib qui existe ou un truc comme ça et vous devez alors faire un mTCMM18Lib := CoCMM18Lib.Create;

[Gruick]

En effet, la classe CoTCMM18Lib a l'air d'exister mais quand je rajoute cette ligne apres le begin d'"initialization":

Code :

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

mTCMM18Lib := CoTCMM18Lib.Create ;

Il me fait une autre exception : EOleSysError : 'CoInitialize has not been called'

Il faut initaliser autre chose je suppose, mais quoi ? :s

[Aka Guymelef]

Mmmh mmh dans ce cas il faut appeler CoInitialize; (définit dans l'unité Windows à priori) avant toute chose

[Gruick]

Quelle est cette entite en Co.... que vous m'avez fait rajouter ?

merci j'ai rajoute ceci :

Code :

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

CoInitialize(nil);

Cela fait une exception apres avec l'interface, je vais chercher un peu.

Merci beaucoup

[Aka Guymelef]

D'après l'aide de Delphi sur le SDK Windows cette fonction permet d'initialiser le moteur COM, c'est une action essentielle à faire avant tout appel à un objet COM. Consultez l'aide pour plus de détails, notamment pour traiter les valeurs qu'elle retourne.

A noter aussi que pour tout CoInitialize il doit y avoir un pendant CoUninitialize (à placer dans la section Finalization du coup dans votre cas).


Bon sinon on va faire un récapépét' parce que je t'ai peut-être embrouillé les pinceaux (et moi aussi ).

En important la DLL le fichier _TLB va contenir plusieurs choses, déjà pour chaque interface de ton objet COM, tu vas avoir autant de IXXX, pour chaque interface qui implémente IDispatch tu vas avoir deux classes supplémentaires : une CoXXX qu'on appelle CoClasse et qui permet d'instancier un objet COM via sa méthode Create (retournant un IXXX) et une TCXXX qui est ce qu'on appelle un "Wrapper" c'est à dire une classe qui englobe l'instance de ton objet COM (normalement stocké dans une variable de type IXXX ou OleVariant) et reproduit la même structure méthodes/propriétés que l'interface mais en langage Delphi.

Donc si ta variable est de type IXXX ou OleVariant tu dois utiliser la CoClasse pour la créer et si tu utilises le Wrapper dans ce cas là tu créé le composant comme de normalement.

[Gruick]

Finallement, je sais pas trop pourquoi mais ca marche.

J'ai bouge mon code de la partie 'initialization' pour le mettre dans une fonction appelle par la creation de la fenetre (FormCreate).

J'ai fait disparaitre tout les 'trucs' avec Co etc, et j'ai rajoute sur le dessin,
la classe que j'utilise (instanciation automatique ?)

Merci pour ton aide Aka Guymelef.