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 :
Dans Delphi, j'ai fait un Import Type Librairy de mon fichier DLL (ccauto.dll)
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
Ensuite j'ai ajouté le nom du fichier dans uses
je déclare mes variables
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;
mais lorsque viens le temps de m'enquérir de la version
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 CC:ClearCase_TLB.Application; Ver:ClearCase_TLB.CCVersion;
ça plante avec un vilain message :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Ver := CC.Version[MbsHeaderFile.Caption];
Est-ce que quelqu'un pourrais me donner un coup de main?
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.
Merci d'avance
Partager