Bonjour,
J'ai potassé pas mal de sujet sur le forum en lien avec l'API Sesam mais je désespère d'arriver à quelque chose, je me prends continuellement une erreur 54 quoique je fasse (ça veut au moisn dire que je contacte bien la dll mais pourquoi cette fichue erreur de paramètre ?) !
Y'en a t'il parmis vous qui connaisse cette API (oui je l'ai obtenu du GIE) et qui ont un exemple qui fonctionne ?
Mon code (tout simple ci-dessous) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} function Hn_Init( psChemin : PChar; pusMode:Word; pusCoderreur:Word ): Word; stdcall;external 'api_lec.dll' name 'Hn_Init'; function Hn_Finir( pusCoderreur:Word ): Word; stdcall;external 'api_lec.dll' name 'Hn_Finir'; procedure TForm1.Button1Click(Sender: TObject); var test1: integer; begin //test1:=Hn_Init('C:\soft\data\',1,0); test1:=Hn_Finir(1); edit1.Text:=inttostr(test1); end; end.
Partager