Discussion :

[yann87]

Bonjour je recherche à déclarer une fonction en paramètre un pointeur ?

Voilà j'ai un tableau

Code :

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

 bAESKey     : array [1..16] of integer = ($09,$2F,$2A,$6C,$B6,$D7,$45,$B5, $51,$5F,$3B,$49,$2F,$9C,$9D,$64);

j'ai un pointeur pointeur:^integer;
pointeur:=@bAESKey;

mais par contre je ne peux pas déclarer une fonction en paramètre un pointeur

Code :

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

  ReadSector(bAESKey:^interger):integer;

Je voudrai passer l'adresse du premier élément du tableau de ce genre

Code :

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

1
2
resultat:integer
resultat:=ReadSector(pointeur);

Avez vous une petite idée ?

[sjrd]

En utilisant PInteger au lieu de ^Integer.

En fait PInteger est défini comme suit dans System :

Code :

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

1
2
type
  PInteger = ^Integer;

Le truc c'est quand, dans les types des paramètres d'une routine/méthode, tu ne peux avoir qu'un nom de type, et pas une spécification de type. Donc si tu as besoin d'une spécification de type, tu dois d'abord créer un type avec un nom pour cette spécification de type, et puis utiliser ce nom de type.

[yann87]

En faite, j'ai une Dll en c que je dois intégrer dans mon application en delphi

la déclaration en c est la suivante :

Code c :

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

*  int_stdcall ReadSector(unsigned char*bAESKey)

Ma déclaration en delphi est la suivante :

Code :

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

* function ReadSector (adresseAESKey:PInteger):integer;stdcall;  external NomDLL;

Déclaration du tableau

Code :

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

 bAESKey     : array [1..16] of integer = ($09,$2F,$2A,$6C,$B6,$D7,$45,$B5, $51,$5F,$3B,$49,$2F,$9C,$9D,$64);

Appelle de la fonction en delphi

Code :

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

Resultat:=ReadSector(@bAESKey);

Je compile pas de il n'y a pas d'erreurs mais par contre il ne retourne pas le résultat attendu et le temps écoulé entre entrée et sortir de la dll est 5 secondes, il me parrait un peu long.


J'ai un doute au niveau de la correspondance entre delphi et le C malgré qu'il n'indique pas de message d'erreur.

Merci pour vos propositions

[sjrd]

unsigned char * ce n'est pas PInteger mais PAnsiChar.