Discussion :

[afriad]

quelqu'un peut m'aider à résoudre l'erreur (l'erreur c'est là CRC16(frame);

[dcc32 Erreur] modbus1.pas(102): E2010 Types incompatibles : 'string' et 'array[0..7] of Byte'

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
 function CRC16(Data: string):byte;
var
  crc : word;
  i,j : Integer;
 
begin
  crc := $FFFF;
  for i := 1 to Length(Data) do begin
    crc := Ord(Data[i]) xor crc;
    for j := 1 to 8 do begin
      if (CRC and $01) = 1
        then CRC := (CRC shr 1) xor $A001
        else CRC := CRC shr 1;
    end;
  end;
  Result := crc;
 
end ;

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
function Readcoils(address : byte; fct: byte; startadress: word; registers : longword  ) : byte;
 var
  CRC : array[0..1] of byte;
  frame : array[0..7] of byte;
 
  begin
            frame[0] := address;
            frame[1] := fct;
            frame[2] := (startadress shr 8);   
            frame[3] := startadress;
            frame[4] := (registers shr 8);   
            frame[5] := registers;
 
            CRC16(frame); 
            frame[length.frame - 2] := CRC[0];
            frame[length.frame - 1] := CRC[1];
            result := frame;
  end ;

[pprem]

C'est normal : une string n'est pas un tableau d'octets. Ca pourrait passer avec un "array of ansichar", mais tu peux aussi jouer avec un RECORD mappant les deux tableaux ("case" dans le record) sur la même zone mémoire.

Méfie toi aussi de ton

Code :

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

1
2
3
4
frame[2] := (startadress shr 8);
frame[3] := startadress;
frame[4] := (registers shr 8);
frame[5] := registers;

Pour récupérer la partie haute et la partie basse d'un Word je recommande de jouer avec les DIV et MOD plutôt que les décalages comme tu le fais (surtout pour la seconde ligne de chaque).

[afriad]

désolé j'ai pas bien compris la première partie que ta expliquer

[tourlourou]

Code :

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

1
2
3
4
5
6
7
function Readcoils(address : byte; fct: byte; startadress: word; registers : longword  ) : byte;
 var
  frame : array[0..7] of byte;
begin
 
  result := frame;
end;

Le message est très clair. Du coup, dans ton code, il n'y a vraiment rien qui te pique les yeux ?

[afriad]

ce que je sais c'est que "data" est en string par contre "frame" c'est array[0..7] of byte

[SergioMaster]

Puisqu'il faut être clair

[sergio_is_back]

ce que je sais c'est que "data" est en string par contre "frame" c'est array[0..7] of byte

Il faut apprendre la déclaration de types :

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
 
interface
 
type TModbusFrame = array[0..7] of Byte;
 
implementation
 
function Readcoils(address : byte; fct: byte; startadress: word; registers : longword  ) : TModbusFrame;
var
    frame : TModbusFrame;
begin
    // ...
    // ton code
    // ...
    result := frame;
end;

[Andnotor]

@Tourlourou et @Sergio

Le compilateur n'a pas encore atteint cette ligne, c'est plus haut que ça se passe (pour l'instant )

@afriad

Déclare simplement le paramètre de CRC16 en array of byte et modifie la boucle :

Code :

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

1
2
3
function CRC16(Data: array of byte):byte;
begin
  for i := 0 to High(Data) do

Après, il y a pas mal d'erreurs. En vrac :

CRC16

• crc est un word mais Result un byte.

Readcoils

• Pour récupérer les deux octets d'un mot, Lo(startadress) et Hi(startadress).
• Register, un LongWord dans un byte. A revoir !
• frame[length.frame - 2] impossible ! frame[Length(frame) -2] ou frame[High(frame) -1].
• CRC16 ne retourne rien. Le contenu de CRC[] est indéterminé.
• Et enfin bien sûr ce Result := Frame. A l'arrivée, tu devras déclarer un nouveau type :

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
type
  TCRCFrame :array[0..7] of byte;
 
function CRC16(Data: TCRCFrame):word;
begin
end;
 
function Readcoils(address :byte; fct :byte; startadress :word; registers :longword) :TCRCFrame;
var
  CRC :word;
  Frame :TCRCFrame;
begin
  ...
  CRC := CRC16(frame);
  frame[6] := Lo(CRC);
  frame[7] := Hi(CRC);
 
  Result := Frame;
end;