Discussion :

[petitcoucou31]

Bonsoir

Toujours dans mes dialogues série.

J'essaie de passer par des exemples de code en utilisant les API de Windows.

Voici la fonction que j'utilise pour écrire sur le port série, et qui a où semble avoir un fonctionnement bizarre.

Si je comprend bien la fonction "WriteFile" ci dessous :
On stocke la valeur à envoyer dans une variable "Buffer" et on indique le nombre de caractères de la chaine à envoyer dans la variable suivante.

Je ne comprends pas pourquoi on ne déclare dans la variable buffer que le 1er caractère de la chaine ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function WriteStr(st:string):integer;
var s:string;
    bytesWritten: DWORD;
begin
    Result:=0;
    if hComm = INVALID_HANDLE_VALUE then result:=-1
    else
    begin
         if not WriteFile(hComm,st[1], Length(St), bytesWritten, nil) then Result:=-2;
    end;
end;

Voici la bizarrerie que je ne comprends pas et que je constate dans la routine ci-dessus.

Quand j’envoie une chaine, seuls la valeur les caractères impair sont bien envoyés et les valeurs des caractères pair est toujours égal à "0".
je dois donc faire des envoies caractères par caractères, ce qui me semble pas normal.

Qu'en pensez vous ?

[Bernard B]

La variable String est de fait depuis un certain temps en réalité une WideString où chaque caractère est codé sur 2 octets pour pouvoir afficher tous les caractères de tourtes la langues possibles.
Dans ta fonction, tu dois déclarer st : AnsiString pour n'avoir qu'un seul octet par caractère et les caractère à "0" n'existerons plus.

[Andnotor]

Un paramètre non typé est passé par référence. st[1] est traité comme un pointeur sur le premier élément du buffer et le deuxième paramètre donne sa taille.

La donnée est unicode, donc sur 16 bits. Les caractères sur 8 bits sont alignés avec un 0. Déclare ta variable ansistring si tu ne traites que de l'ANSI.

[petitcoucou31]

bonjour

En effet je ne traite que des caractères sur un octet.

Merci à vous deux.