Problème de transfert TCP/IP entre Delphi/Windows et Lazarus/Linux

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:

---

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:

---

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

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 ?

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

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

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:

---

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:

---

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;

---

Merci je vais essayer ce week end

je vous tiens au courant

Oscar

Bonsoir,

je galère toujours

RecBuf est un TidBytes

Oscar

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().

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:

---

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