Discussion :

[Nulenprogra]

Bonjour,

voilà, j'ai une DLL dans laquelle se trouve une fonction ReadTime (la DLL est développée par une société de lecteur de badge).

j'ai su utiliser les autres fonctions de la DLL, mais Delphi bloque sur ReadTime.

Pourtant, je la déclare comme les autres.

Voici le bout de code qui la déclare:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  function ReadRecord(DevNo: String; pRecord: PAnsiChar): Integer; stdcall external 'JS868NETCOM.DLL';
  function WriteTime(DevNo: String; pTime: pWideChar): Integer; stdcall external 'JS868NETCOM.DLL';
  function ReadTime(DevNo: String; pTime: Pointer): Integer; stdcall external 'JS868NETCOM.DLL';

Et voici le bout de code de l'appel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.b_set_timeClick(Sender: TObject);
var
  res3: integer;
  ReadTime: String;
  pReadTime: Pointer;
begin
  pReadTime := @ReadTime;
  res3 := ReadTime(dev_address, pReadTime);
  steps.Text := 'ReadTime';
  showMessage (ReadTime);
end;

Et, voici le message d'erreur lors de la compilation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[Erreur] badgeuse_u1.pas(345): Opérateur ou point-virgule manquant

Auriez-vous une idée ? Est-ce que ReadTime est une fonction déjà existante ?


Merci

[Jipété]

Auriez-vous une idée ? Est-ce que ReadTime est une fonction déjà existante ?

1- Non
2- Oui ! F1 sur ReadTime...

[Nulenprogra]

Ok, ReadTime existe

Autre question alors: y a-t-il moyen de changer le nom d'une fonction dans une DLL ?
Lors de la déclaration ?


Merci

[Jipété]

Pas à ma connaissance -- mais je ne sais pas tout.
Ceci étant, si j'étais face à ce problème, et que ça ne soit pas possible, j'attaquerais la dll avec un éditeur hexa et je remplacerais partout "readtime" par "readtome", par exemple.
Mais encore une fois, je ne suis pas spécialiste de l'appel de fonctions dans des dll's tierces.

[evarisnea]

Ok, ReadTime existe

Autre question alors: y a-t-il moyen de changer le nom d'une fonction dans une DLL ?
Lors de la déclaration ?

tu peux faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
function ReadTime2(DevNo: String; pTime: Pointer): Integer; stdcall; external 'JS868NETCOM.DLL' name 'ReadTime';
...
procedure TForm1.b_set_timeClick(Sender: TObject);
var
  res3: integer;
  sReadTime: String;
  pReadTime: Pointer;
begin
  pReadTime := @sReadTime;
  res3 := ReadTime2(dev_address, pReadTime);
  steps.Text := 'ReadTime';
  showMessage (sReadTime);
end;

[Nulenprogra]

Ok,

merci !!!

[evarisnea]

Ok,

merci !!!