Daten über TTCPClient empfangen - erledigt

[AJ_Oldendorf]

Hallo zusammen,
bestimmt könnt ihr es schon nicht mehr sehen Immer diese Fragen über TTCPClient und TTCPServer
Ich habe aber glaube ich eine Frage die bisher noch nicht gestellt wurde.
Ich habe ein Endgerät von einem Kunden xyz, der mir Barcodes über Ethernet schickt. Das geht auch alles soweit nur das Problem ist, dass ich im OnReceiveEvent des TTCPClient's folgendes erhalte:


procedure TForm2.TcpClient1Receive(Sender: TObject; Buf: PWideChar; var DataLen: Integer);
In Buf steht dann dies drinne: '〹㌲ㄱ'
DataLeng ist 6, dies stimmt auch, es handelt sich um einen 6stelligen Code.

Habt ihr eine Idee, wie ich das hinbekommen könnte, dass da ordentliche Zahlen ankommen auf meiner Client-Seite?

Viele Grüße
Alex

[AJ_Oldendorf]

erledigt

Habs so gemacht:

Delphi-Quellcode:

var
  tmpStr : AnsiString;
begin
  SetLength(tmpStr, DataLen);
  tmpStr := PAnsiChar(Buf);
  //...
end;

Viele Grüße
Alex