C vers Delphi et type CHAR

Version imprimable

03/06/2021, 15h40
popeyes

C vers Delphi et type CHAR
Bonjour à tous,

Je suis un peu perdu dans la mise en place d'une fonction dans Delphi qui est basé sur du C à l'origine. La fonction à l'origine est celle ci-dessous :
Code:

1 2 3 4 5 6 7 8 Cnt_manage ( unsigned short session char civilite[3] char nom[35] short* status unsigned short* error_num )
Les informations sur les variables sont les suivantes :

Citation:

ENTREE :
session

SORTIE :
civilite : tableau de 2 caractères
nom : tableau de 35 caractères
status : entier court (16 bits)
error_num : entier court (16 bits) non signé

en Delphi, en me basant sur ce que j'ai pu lire, j'ai appliqué les valeurs suivantes :

Citation:

Variables en sortie : (pas de souci en entrée)
appli_civilite: PAnsiChar;
appli_nom: PAnsiString;
appli_status: word;
appli_error: word;

mais je n'arrive pas du tout à lire les valeurs civilité et nom donc je soupçonne que ma définition n'est pas bonne mais je vois pas laquelle utiliser ?
=> si je la lis en tant que text, le retour est toujours vide

Merci à vous

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
(*
Cnt_manage (
unsigned short	session
char	civilite[3]
char	nom[35]
short*	status
unsigned short*	error_num
)
*)
type
  TCivilite = array[0..2] of Char; // ou AnsiChar selon l'API
  TNom = array[0..34] of Char; // ou AnsiChar selon l'API
 
procedure Cnt_manage(session: Word; var civilite: TCivilite; var nom: TNom; var status: Word; var error_nim: Word);

il est aussi possible d'utiliser des PWord au lieu de "var ... Word" afin de pouvoir passer "nil" au besoin

03/06/2021, 17h29
popeyes
Citation:
Envoyé par Paul TOTH

Code:

1 2 3 4 type TCivilite = array[0..2] of Char; // ou AnsiChar selon l'API TNom = array[0..34] of Char; // ou AnsiChar selon l'API
.
C'est parfait, je voyais pas cela aussi simple alors que j'avais travaillé sur cette idée aussi du array of char ;-)
Et en effet, il est nécessaire de mettre Ansichar pour avoir le bon encodage.

Grand merci à toi
03/06/2021, 18h07
foetus
/HS :oops:

Pourquoi dans ta structure tu as 2 pointeurs, mais
- des pointeurs sur 1 statut et 1 code erreur :koi: ce sont censé être des codes (en gros des valeurs énumérées) et non pas des données dynamiques
- des pointeurs sur des valeurs de types inférieurs à 32/ 64 bits et d'autant + des types entier :koi: (ici short) génère 1 perte de place (pointeur 32 ou 64 bits + la valeur pointée qui peut être alignée)
03/06/2021, 19h01
popeyes
Citation:
Envoyé par foetus

/HS :oops:

Pourquoi dans ta structure tu as 2 pointeurs, mais

des pointeurs sur 1 statut et 1 code erreur :koi: ce sont censé être des codes (en gros des valeurs énumérées) et non pas des données dynamiques
des pointeurs sur des valeurs de types inférieurs à 32/ 64 bits et d'autant + des types entier :koi: (ici short) génère 1 perte de place (pointeur 32 ou 64 bits + la valeur pointée qui peut être alignée)
Je suis preneur de toute amélioration !
Tu remplacerais par quoi ?
03/06/2021, 19h07
Paul TOTH
Citation:
Envoyé par foetus

/HS :oops:

Pourquoi dans ta structure tu as 2 pointeurs, mais

des pointeurs sur 1 statut et 1 code erreur :koi: ce sont censé être des codes (en gros des valeurs énumérées) et non pas des données dynamiques
des pointeurs sur des valeurs de types inférieurs à 32/ 64 bits et d'autant + des types entier :koi: (ici short) génère 1 perte de place (pointeur 32 ou 64 bits + la valeur pointée qui peut être alignée)
car ce sont des valeurs reçues et non envoyées...en Pascal on peut utiliser le mot clé VAR (ou OUT) mais il n'existe pas en C
et comme je le disais, si la fonction accepte que le paramètre ne soit pas transmis (et donc à nil) on peut passer par un PWord
04/06/2021, 01h22
foetus

Citation:

Envoyé par Paul TOTH

car ce sont des valeurs reçues et non envoyées...en Pascal on peut utiliser le mot clé VAR (ou OUT) mais il n'existe pas en C

Effectivement tu as raison :mrgreen: mais il y a confusion entre passage de paramètres (entrée, sortie, entrée et sortie) et stockage dans 1 structure.

Parce que si tu appelles 1 fonction et que tu veux modifier 1 paramètre, en C, il faut avoir 1 pointeur (et transmettre l'adresse d'1 variable) ... + éventuellement 1 booléen pour dire si cette fonction s'est déroulée correctement ou pas (et donc savoir si les paramètres retour erreur ont des valeurs valides)

Mais des pointeurs dans 1 structure pour 1 statut et 1 code erreur :koi:
Il faudrait voir le code, mais je pense que ces 2 champs n'ont rien à faire dans cette structure. Tu as des données de connexion avec 1 id, 1 nom et 1 civilité seulement.
Et que tu transmets par pointeur pour être rempli (pour initialiser, en cas de connexion, en cas de déconnexion, ...) et qu'à chaque fois, tu as des données qui accompagnent pour le déroulement de la fonction (c'est du classique en C)

Et que si tu veux quand même avoir ces 2 valeurs dans ta structure, tu rajoutes 1 ou 2 valeurs pour "pas d'erreur" et/ ou "non initialisé" en + des autres valeurs ... au lieu de NULL ou d'1 pointeur valide.
Parce que ta structure est déjà transmise par pointeur pour être modifiée, donc ce n'est pas la peine d'avoir des champs pointeur pour des données non dynamiques.

Dans la signature de ton constructeur Cnt_manage, tu peux donc modifier ta civilité et ton nom (parce que ce sont des tableaux et donc, je pense comme en C, des pointeurs) et ton statut et ton code erreur (parce que ce sont des paramètres sortie avec le mot clef var) ... mais pas ton identifiant de session.
C'est bizarre :weird: :koi: ... après c'est sûrement 1 exemple pour montrer le "concept"
04/06/2021, 08h51
popeyes

Citation:

Envoyé par foetus

C'est bizarre :weird: :koi: ... après c'est sûrement 1 exemple pour montrer le "concept"

La fonction indiquée est une fonction non existante mais reprenant l'idée générale de mon souci - la vrai fonction est soumise à des restrictions de divulgation.

La procédure fournie par Paul Toth marche bien comme souhaité et permet de récupérer les informations dans chaque valeur et passer la valeur "session" comme il faut - je l'utilise de manière un peu différente mais l'idée générale est parfaite.
04/06/2021, 09h40
Paul TOTH

Citation:

Envoyé par foetus

C'est bizarre :weird: :koi: ... après c'est sûrement 1 exemple pour montrer le "concept"

euh mais en fait c'est pas une structure, c'est un prototype de fonction pour moi :)