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:

Delphi-Quellcode:

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