Discussion :

[Oscar02]

Bonjour à tous,

Je suis à la recherche d'une aide pour récupérer des données d'un traqueur GPS Via TCP.
Le traqueur se connecte correctement mais je ne parviens pas à récupérer les données.
La première donnée que je dois récupérer est IMEI et ensuite je dois lui transmettre la Valeur 0X01 pour recevoir le paquet de données AVL

Je vous mets le lien du protocole utilisé par le traqueur =>https://wiki.teltonika-gps.com/view/Codec

J'utilise IdTcpServer

Je ne sais pas quel Read utiliser : Stream / Buffer ?? Je voudrais afficher l'IMEI dans un Edit.text

Je ne suis pas un professionnel, si vous avez une solution simple pour que je puisse démarrer le projet je vous en serais très reconnaissant.

Cordialement

Oscar

[pprem]

Bonjour

Quelle version de Delphi utilises-tu ?

Dans le cas qui t'occupe, ton programme n'est pas le serveur mais un client, ce n'est donc pas ce composant qu'il faut utiliser.

Tu dois déjà te connecter au tracker (IP+port en TCP), puis une fois la connexion établie tu pourras lui envoyer des octets et recevoir ses réponses.

[Oscar02]

Bonjour et Merci pour votre interet à ma demande

Je suis sur RadStudio 10

Concernant le traqueur c'est bien lui qui se connecte automatiquement au serveur Via une URL

La Première Chose Qu'il doit m'envoyer c'est IMEI avec le code ci dessous je ne reçois pas la totalité de IMEI

J'ai beau changé la valeur (8) en Plus grande Valeur Pas plus de 8 Chiffres et il manque le Dernier et les Premier

Exemple Si IMEI est 256379854875612 je reçois 85487561

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
AVL: TStringStream;
 
begin
  AVL := TStringStream.Create;
  try
   AContext.Connection.IOHandler.ReadStream(AVL,8);
          Edit2.Text:= AVL.DataString ;
  finally
   AVL.Free;
  end;
end;

Merci pour Votre Aide

Cordialement

Oscar

[Oscar02]

Bonjour,

Petit avancement sur mon code, j'ai fait l'erreur de vouloir directement utilisé le Edit.text pour afficher mon résultat. Etant donner que je reçois pas tout mon IMEI en un seul bloc Edit ne pouvait pas l'afficher.
En utilisant le Memo.lines.add je reçois bien tous le N° Chiffre par Chiffre en mettant la Valeur (1)

Ensuite j'arrive bien à Envoyer mon 0x01 au client pour confirmer la réception

et je reçois le Reste des Data Mais pas en Hexa Donc pour le moment Bloqué

Je continue à Chercher

Cordialement
Oscar

[free07]

Bonjour,

et je reçois le Reste des Data Mais pas en Hexa Donc pour le moment Bloqué

J'ai du mal à comprendre, tu dois recevoir des octets non ? De quelle taille : 8, 16 ou 32 bits ? Ensuite c'est une histoire de conversion ( binaire, décimal, hexa, etc )

[pprem]

J'ai du mal à comprendre, tu dois recevoir des octets non ? De quelle taille : 8, 16 ou 32 bits ? Ensuite c'est une histoire de conversion ( binaire, décimal, hexa, etc )

euh... des octets de 16 ou 32 bits ? tu ne voulais pas parler de caractères plutôt ?

[pprem]

Ok, donc si c'est toi le serveur et lui le client, c'était la bonne approche.

et je reçois le Reste des Data Mais pas en Hexa Donc pour le moment Bloqué

D'après ce que je comprends de la doc il n'envoie pas de l'hexagone mais bien des octets à interpréter ensuite. L'affichage en hexadécimal dans la doc est juste pour ceux comprendre ce qu'on reçoit.

Par rapport au contenu des trames, tu peux t'en sortir en ajoutant un délai sur la réception pour t'assurer que tu as tout reçu mais c'est moche. Le mieux est d'interpréter les trames au fur et à mesure que tu reçois leur contenu et qu'une fois seulement tu as la trame complète, tu l'interprète.

Ca a fait l'objet d'un exercice sur l'Advent of Code l'an dernier : https://adventofcode.com/2021/day/16

C'était sur du traitement de données dans un fichier texte, mais avec une lecture caractère par caractère (ou plutôt octet par octet) tu dois pouvoir comprendre le fonctionnement de ma solution et t'en inspirer pour traiter les données que tu reçois. Ce sont les procédures Jour16_01 et Jour16_02 dans :
https://github.com/DeveloppeurPascal...ee/master/2021

[Oscar02]

Bonjour à tous et merci pour votre aide.

Avec le code ci-dessous, mon client se connecte correctement. Il m'envoie l'IMEI que je récupère Via Memo 1 chiffre par ligne.
Ensuite j'envoie le 0X01 pour accepter la connexion et je reçois tout un paquet de données mais sous la forme ci -essous :

™íp6‹tK�Ãïï
ð
PÈE
qHµ ¶B/FCßDyñÇ&
ž
ƒ[™ñX6‹tK�Ãðï
ð
PÈE
qHµ ¶B/FCßDyñÇ&
ž
ƒ[šçp6‹tK�ÃïïðPÈE
qHµ ¶B/DCéDyñÇ&
ž¥²

Peut-être que je n'utilise pas le bon protocole ? Dans mon premier message j'ai mis le lien correspondant au traqueur et il parle de Codec 8 Protocol FM (pouvez-vous m'en dire plus si vous connaissez ?).

Encore merci pour vos retours.

Oscar

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
20
21
22
23
24
25
26
27
procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
begin
     Edit1.Text :='Client Connecter';
     AContext.Connection.IOHandler.Write($01); // Reponse envoyer au Client 0x01
 
end;
 
procedure TForm1.IdTCPServer1Disconnect(AContext: TIdContext);
begin
   Edit1.Text :='Client Deconnecter';
end;
 
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
AVL: TStringStream;
 
begin
  AVL := TStringStream.Create;
  try
          AContext.Connection.IOHandler.ReadStream(AVL,1,False);//lecture du Flux
         Memo1.Lines.Add(AVL.DataString) ; // Afffichage du Flux
 
 
  finally
      AVL.Free
  end;
end;

[free07]

euh... des octets de 16 ou 32 bits ? tu ne voulais pas parler de caractères plutôt ?

Bien évidemment

[Oscar02]

Merci Merci

Cela va Beaucoup m'aider

Mais je pense que je ne récupère pas correctement les données du Socket je devrais peux être utilisé le TidBytes non?

Quand pensez vous

Cordialement

Oscar

[Oscar02]

Bonjour,

Résolu pour la récupération de données
Merci à Tous pour votre intérêt à ma demande, il ne me reste plus qu'à traiter les données et optimiser le tout "Gros Boulot !!"

@Bientôt
Oscar

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
20
21
22
23
 
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
 
var
 
Size:Integer;
Buffer:TidBytes;
Data:LongInt;
B:String;
 
begin
 
  try
 
           Size:= AContext.Connection.IOHandler.RecvBufferSize.Size;
           AContext.Connection.IOHandler.ReadBytes(Buffer,Size);
           BytesToRaw(Buffer,Data,Size);
 
  finally
           Memo1.Lines.Add(BinTostr(Buffer));
 
  end;
end;