Einzelnen Beitrag anzeigen

Graw

Registriert seit: 26. Apr 2017
77 Beiträge
 
Delphi 11 Alexandria
 
#1

Hex Werte an TCP Server senden und empfangen

  Alt 13. Jul 2021, 16:14
Hallo,

ich habe hier einen Barcodescanner welchen ich über hex Befehle ansteuern kann.
Mit Hilfe von Indy kann ich Befehle senden um den Scanner zu starten und zu beenden.
Code:
procedure TForm1.ButtonStart(Sender: TObject);
begin
  if (IdTCPClient1.Connected) then
  begin
    IdTCPClient1.IOHandler.Write($02734D4920394403);
  end;
end;

procedure TForm1.ButtonStop(Sender: TObject);
begin
  if (IdTCPClient1.Connected) then
  begin
    IdTCPClient1.IOHandler.Write($02734D4920394503);
  end;
end;
Wenn der Scanner gestartet ist, weiß ich das dieser Daten sendet.
Ich kann dies im Terminal der mitgeliferten Software sehen und auch mit Hilfe von WireShark.
Bislang war es mit aber nicht möglich die von dem Scanner gesendeten Daten einzulesen.
Ist das über Indy möglich, bzw. sollte ich lieber etwas anderes nutzen?
Eine Antwort des Scanners sieht im hex Format so aus:

Code:
02 73 53 49 20 42 45 20 33 41 30 20 42 35 37 32 20 30 30 30 30 30 30 30 30 20 43 32 35 34 30 30 30 30 20 43 33 44 41 38 30 30 30 20 30 30 30 30 30 30 30 30 20 30 30 30 30 30 30 30 30 20 30 30 30 30 30 30 30 30 20 30 30 30 30 30 30 30 30 20 30 30 30 30 30 30 30 30 20 30 30 30 30 30 30 30 30 20 34 20 43 31 32 38 20 31 20 31 20 36 20 36 20 35 39 4D 50 34 55 20 34 41 20 34 41 03

Wie kann ich die Daten des Scanners am besten verarbeiten?

Vielen Dank.
  Mit Zitat antworten Zitat