convertir en delphi

Version imprimable

convertir en delphi

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

Code:

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];

Bonjour, peut-être un code de ce type ?

Code:

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

bonjour en fait voila le code que j'ai

Code:

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;
}

21/05/2019, 09h46
tourlourou

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

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

Code:

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;

21/05/2019, 10h31
afriad

1 pièce(s) jointe(s)

premier erreur c'est là char[0] := Id;
21/05/2019, 10h35
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.

oui effectivement vous avez raison

Code:

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;

21/05/2019, 10h58
afriad

1 pièce(s) jointe(s)

et pour declarer id et converter
21/05/2019, 11h13
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