Ok, ich bin nun nen bisl weiter gekommen. Mein Server schickt dem client die Nachricht "ok" aber irgendwie kommt immer nur ein "k" beim client an ( server wurde getestet, da geht alles richtig)
Delphi-Quellcode:
var
recv: string[2];
VERSION: string;
begin
VERSION := '0001';
TcpClient.SendBuf(VERSION[1], length(VERSION)); // Server Version schicken
while TcpClient.WaitForData(1000) do
begin
TcpClient.ReceiveBuf(recv, sizeof(recv)); // Nachricht darauf empfangen
showmessage(recv);
end;
TcpClient.Close;
end;
Ich hoffe ihr koennt mir helfen