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.