Discussion :

[Oscar02]

Bonjour à Tous,

j'ai besoin d'un coup de pouce pour comprendre mon problème.
Voilà depuis Delphi (sous Windows) j'envoi via TCPServer un buffer de type Record avec le code suivant

Structure du record dans Lazarus et Delphi

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
tMonRecord = Packed Record
 
MaVar1:String[20];
MaVar2:array[0..5] of array[0..5] of String[1];
MaVar3:array[0..5] of array[0..5] of String[1];
 
End;
 
Var
MonRecord:^tMonRecord;
 
Procedure .....envoi
 
 For i := 0 To Form1.ServerSocket4.Socket.ActiveConnections - 1 Do
      Form1.ServerSocket4.Socket.Connections[i].Sendbuf(MonRecord, Sizeof(tMonRecord));
 
 
end;

Sous Lazarus (Linux) avec {$Mode Delphi}{$H+}

j'utilise le composant indy TidTCPclient

La structure du record est identique à la différence de ma déclaration de variable MonRecord:TMonrecord sans ^ qui provoque une erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Var 
MonRecord:TMonrecord
RecBuf:TidBytes
et je réceptionne avec le code suivant
 
Procedure .....reception
 
idTCPClient1.socket.readBytes(Recbuf, Sizeof(tMonRecord));
BytesofRaw(RecBuf,MonRecord,Sizeof(tMonRecord));
 
end;

Lorsque je reçois les données j'ai des caractères genre °°°°°°° qui n'on rien à voir et des carrés avec 2 chiffres en haut et en bas ,
un petit coup de main serais bienvenue
Merci d'avance

Cordialement

Oscar

[tourlourou]

Bonjour,
La définition des caractères est-elle la même des 2 côtés ? Style AnsiString vs UTF-8 ?
As-tu le même problème en envoyant un tableau à 0 ou avec que des 'A', par exemple ?

[Oscar02]

Salut désolé pour cette réponse tardive, je n'ai pas reçu de mail d'info

Je ne sait pas comment je peux voir ca sur Lazarus

cdt

Oscar

[Paul TOTH]

première chose à faire, comparer le Sizeof(tMonRecord) des deux côtés

ensuite SizeOf(MonRecord.MaVar1), etc...

il y a probablement des différences

[BeanzMaster]

Salut

De quelle nature est RecBuf:TidBytes ? un pointeur ?

Si oui essayes
BytesofRaw(RecBuf^,MonRecord,Sizeof(tMonRecord));ou tu peux essayer BytesofRaw(@RecBuf,@MonRecord,Sizeof(tMonRecord));
Pour pouvoir déclarer MonRecord:^tMonRecord; il faut que tu passes par une définition de type supplémentaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Type
  TMonRecord = Packed Record
 
    MaVar1:String[20];
    MaVar2:array[0..5] of array[0..5] of String[1];
    MaVar3:array[0..5] of array[0..5] of String[1];
  End;
  PMonRecord = ^TMonRecord;
 
Var 
  MonRecord : PMonRecord;

Attention vu que c'est un "pointer" tu devras l'initialiser et le libérer avec GetMem/FreeMem

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Try
  Try
    GetMem(MonRecord, Sizeof(TMonRecord));
    MonRecord^MaVar1 := 'Var1';
    MonRecord^MaVar1[0][0]:='V';
    ...
    BytesofRaw(RecBuf,MonRecord^,Sizeof(tMonRecord)); // ou BytesofRaw(RecBuf^,MonRecord^,Sizeof(tMonRecord)); suivant réponse à ma question
   Except
      // Gestion Erreurs
   End;
finally
  FreeMem(MonRecord);
end;

[Oscar02]

Merci je vais essayer ce week end

je vous tiens au courant

Oscar

[Oscar02]

Bonsoir,

je galère toujours

RecBuf est un TidBytes

Oscar

[Paul TOTH]

TIdBytes c'est un array of Byte.

Je ne sais pas ce que fait BytesofRaw, mais au pire un Move(RecBuf[0],MonRecord,Sizeof(tMonRecord)); devrait fait l'affaire.

Reste à savoir comment Delphi et FreePascal gèrent les records contenant des string[x] ; comme dit plus haut, il faut comparer les SizeOf().

[Oscar02]

Ok

Merci à tous vous m'avez bien aidé

Mon erreur était effectivement un problème de pointer
le problème vient de l'envoi sous Delphi il faut mettre le ^

Code :

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

1
2
3
4
5
Var
pMonRecord:^Monrecord
 
For i := 0 To Form1.ServerSocket4.Socket.ActiveConnections - 1 Do
    Form1.ServerSocket4.Socket.Connections[i].Sendbuf(pMonRecord^, Sizeof(tMonRecord));

Tous est rentré dans l'ordre

Encore Merci

Oscar