Hallo mitnander!
Ich möchte eine schlanken server und client programmieren die daten austauschen.
Kommuniziert wird über
TCP also:
S := socket (AF_INET, SOCK_STREAM , 0);
Es funktioniert alles bis auf die send/recv finktionen. Die Verbindung zwischen client und server steht(State= established),
dann will ich vom client zum server etwas senden:
Delphi-Quellcode:
function TNet_client.Winsock_sendTCP;
var bytecount:integer;
begin
buffer:='Ein wichtiges Datenpaket';
bytecount:=send(S, buffer, strlen(buffer), 0);
hier gibt mir WSAGetLastError 5 aus.
Delphi-Quellcode:
function TNet.Winsock_reciveTCP;
var datacount: integer;
begin
datacount:=recv(S, buffer, sizeof(buffer),0);
end;
hier wird mir für datacount -1 ausgegeben (Socket error)
und natürlich ist der buffer leer.
Weiss jemand wieso? Wenn ja, dann postet mal fleißig!
Danke schonmal!