Discussion :

[afriad]

quelqu'un peut m'aider à convertir ce bout de code en delphi

Code C :

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

1
2
3
4
5
6
7
8
9
10
 
static private byte[] MakeRequest()
 {
 // request for reading Analog Input is always 8 bytes long.
 byte[] write = new byte[8];
 write[0] = _Id; // device id
 write[1] = 0x04; // Read A I
 byte[] start = BitConverter.GetBytes((ushort)_StartAddress); // ushort = 2 bytes
 write[2] = start[1]; // msb first
 write[3] = start[0];

[tourlourou]

Bonjour, peut-être un code de ce 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
type 
  TRequest = array [0..7] of Byte;
 
 // request for reading Analog Input is always 8 bytes long.
function MakeRequest: TRequest;
var
  Start: array of Byte;
begin
  Result[0] := _Id; // device id
  Result[1] := 4; // Read A I
  Start := BitConverter.GetBytes( Word( _StartAddress)); // Word = ushort = 2 bytes
  Result[2] := Start[1]; // msb first
  Result[3] := Start[0];
  SetLength(Start, 0); // pour libérer le tableau dynamique

[afriad]

bonjour en fait voila le code que j'ai

Code C :

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
20
static private byte[] MakeRequest()
{
// request for reading Analog Input is always 8 bytes long.
byte[] write = new byte[8];
write[0] = _Id; // device id
write[1] = 0x04; // Read A I
byte[] start = BitConverter.GetBytes((ushort)_StartAddress); // ushort = 2 bytes
write[2] = start[1]; // msb first
write[3] = start[0];
byte[] noReg = BitConverter.GetBytes(_NoAI); // ushort = 2 bytes
write[4] = noReg[1]; // msb first
write[5] = noReg[0];
byte[] writeTemp = { write[0], write[1], write[2], write[3], write[4], write[5], 0, 0 };
// Note two zeros at the end.
byte[] _crc = new byte[2];
crcCalculator(writeTemp, ref _crc);
write[6] = _crc[0];
write[7] = _crc[1];
return write;
}

[tourlourou]

Donc, en fait, il vous reste à finir de le traduire sur ce modèle (et à tester/déboguer)...

[afriad]

j'ai essayé de suivre ton modèle mais lorsque je compile je reçois des erreurs

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
Function   MakeRequest : Byte;
 var
 start: array of byte;
 noReg: array of byte;
begin
  char[0] := Id; // device id
  char[1] := 0x04; //read
  start   := BitConverter.GetBytes((Word)_StartAddress));
  char[2] := start[1];   //msb first
  char[3] := start[0];
  SetLength(Start, 0);
  noReg   := BitConverter.getBytes(_NoAI);
  char[4] := noReg[1];   //msb first
  char[5] := noReg[0];
  SetLength(noReg, 0);
  charT   := char[0] + char[1] + char[2] + char[3] + char[4] + char[5] + 0 + 0 ;
end;

[afriad]

premier erreur c'est là char[0] := Id;

[tourlourou]

Char est un mot réservé du langage Pascal. Dans la syntaxe Char[0], il attend que l'on transtype en Char la variable suivante, comme dans Char(8) ; il ne s'agit pas d'un tableau de Char : tu as changé de syntaxe en changeant de langage !
Il faut donc nommer une variable de type tableau de 8 octets (Byte) ou caractères (Char), équivalents.La fonction est censée retourner ce tableau, et pas un octet seul : ton code ne respecte pas l'exemple ni la source.

[afriad]

oui effectivement vous avez raison

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   MakeRequest : TRequest;
 var
 start: array of byte;
 noReg: array of byte;
 
begin
  result[0] := Id; // device id
  result[1] := 0x04; //read
  start   := BitConverter.GetBytes((Word)_StartAddress));
  result[2] := start[1];   //msb first
  result[3] := start[0];
  SetLength(Start, 0);
  noReg   := BitConverter.getBytes(_NoAI);
  result[4] := noReg[1];   //msb first
  result[5] := noReg[0];
  SetLength(noReg, 0);
  resultT   := result[0] + result[1] + result[2] + result[3] + result[4] + result[5] + 0 + 0 ;
end;

[afriad]

et pour declarer id et converter

[ShaiLeTroll]

BitConverter étant un objet de votre projet (une classe Microsoft), il faut le réinventer
D'ailleurs, les + entre result[] me semble totalement hors sujet, c'est une simple addition et non une concaténation

Vous faites mention à des variables qu'il faut déclarer et affecter, traduire un bout de code sans tout son contexte n'est pas une bonne façon de faire.
A mon avis, il sera plus simple de repartir du besoin d'origine, en Delphi, cette construction de TRequest doit pouvoir être nettement plus simple

Que doit recevoir en Entrée cette fonction MakeRequet et que doit-elle fournir en Sortie ?
Refaites l'analyse technique de cela, ensuite, on pourra vous aider à faire un code Delphi écrit en Delphi et non un bricolage à partir d'un code C++ qui n'a pas la même logique