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