Bonjour à tous, je n'ai jamais fait de Delphi et la compagnie pour laquelle je travaille m'a demander de faire une modif dans un programme Delphi.

Aucune ressource à l'interne n'est disponible...

Voici en gros ce que j'ai besoin de faire :

obtenir la version courant d'un fichier grâce à une dll de ClearCase (IBM).

En VB voilà ce que ça donne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim CC As New ClearCase.Application
Dim Ver As ClearCase.CCVersion
 
Set Ver = CC.Version(le\path\plus\nom\fichier.c)
GetFileVersion = Ver.VersionNumber
Dans Delphi, j'ai fait un Import Type Librairy de mon fichier DLL (ccauto.dll)

Ensuite j'ai ajouté le nom du fichier dans uses

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
uses
  [b]ClearCase_TLB[/b], Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Db, DBTables, Main, Grids, DBGrids,
  Buttons, ComCtrls, NcPrivate, DBCtrls, ExtCtrls, OleServer;
je déclare mes variables
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
   CC:ClearCase_TLB.Application;
   Ver:ClearCase_TLB.CCVersion;
mais lorsque viens le temps de m'enquérir de la version

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Ver := CC.Version[MbsHeaderFile.Caption];
ça plante avec un vilain message :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Debugger Exception Notification
Project Project1.exe raised exception class EAccessViolation with message : "Access violation at address 00452930 in module Project1.exe"
Proccess stopped. Use step or run to continue.
Est-ce que quelqu'un pourrais me donner un coup de main?

Merci d'avance