Un fichier Header C++ à partir de Delphi
Bonjour à tous
Je dois passer mes DLL à un développeur C++ mais je ne sais pas écrire le fichier entête pour utiliser quelques fonctions qui fonctionne en DELPHI.
Serait-ce de la compétence de ce forum ?
Code:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
const
_HdegVectorDim = 60; // nombre de secteurs angulaires dans CIE h°
_HDegVectorStep = 6; // Largeur en degré d'un secteur angulaire
_ExePathMask = 'DATA\CALIB\MASK.TXT';
type
// Vecteur couleurs pour l'analyse image agro-alimentaire ISO 11037 angles 6°
TNbrPixelsByHdeg = array[0..pred(_HdegVectorDim)] of Integer;
TPeekDualVector= array[0..1] of TNbrPixelsByHdeg;
TPeekDualVectorPtr = ^TPeekDualVector;
// Type Gamut LCh
TPeekGamutLCH = record
CheckInclude : boolean;
CheckHue : boolean;
CheckChroma : boolean;
CheckLuminance : boolean;
maxHDegree : Single;
maxChroma : Single;
maxLuminance : Single;
minHDegree : Single;
minChroma : Single;
minLuminance : Single;
ImgName : AnsiString;
end;
TPeekGamutLCHPtr = ^TPeekGamutLCH;
// Paramétrage ColorVector
TPeekVectorParams = record
frstCMin: single;
TwinVector: boolean;
CMin,
Lmin,
LMax: single;
ImgName: AnsiString;
end;
TPeekVectorParamsPtr = ^TPeekVectorParams;var
PEEKCOLOR_PATH: AnsiString; // Chemin de l'exe
BMPCopy: TBitmap;// Pour disposer d'une copie bitmap de l'image JPeg
MaskFileName: AnsiString; // Chemin du masque de calibration
//XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Fonctions de PeekISO11037.DLL
// Initialisation dePeekISO11037.DLL
function PEEKDLL_InitISO11037DLL_OK( ExePath: AnsiString) : boolean;
stdCall; external 'PeekISO11037_02.dll';
function PEEKDLL_MakeCalibrate: single;
stdCall; external 'PeekISO11037_02.dll';
function PEEKDLL_CreatChartMaskOk( ChartPtr: HBitmap): boolean;
stdCall; external 'PeekISO11037_02.dll';
//XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Fonctions de PeekIndusVision_02.DLL
// Initialisation de PeekVisionDLL
function PEEKVEC_DLLInit(ExePath: AnsiString): single;
stdCall; external 'PeekIndusVision_02.dll';
// Retourne un vecteur de segments angulaires 36 secteurs de 6°
function PEEKVEC_ColorVectorFromImage( BMPPtr:HBitmap;
ImgFileName,OperName: AnsiString;
VecTorParamsPtr: TPeekVectorParamsPtr;
VecPtr: TPeekDualVectorPtr ):Boolean;
stdCall; external 'PeekIndusVision_02.dll';
// Dessine un graph pour afficher un vecteur couleur d'une image
procedure PEEKVEC_DrawChromaticGraph( BMPPtr: HBitmap;
VecTorParamsPtr: TPeekVectorParamsPtr;
VecPtr: TPeekDualVectorPtr);
stdCall; external 'PeekIndusVision_02.dll';
// Affiche couleurs gamut sélectionné en affichant colorExclude sur les autres
function PEEKVEC_CalcGamut( BMPPtr: HBitmap; GamutPtr: TPeekGamutLCHPtr;
ImgFileName,OperName: AnsiString;
ColorExclude: TColor ): Integer;
stdCall; external 'PeekIndusVision_02.dll'; |
Quelqu'un peut-il m'aider ?
Mille merci d'avance
