Moin zusammen.
Ich möchte in meiner Anwendung vom Client Daten empfangen. Das sieht im Moment so aus:
Delphi-Quellcode:
procedure TMainForm.ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
RecSize : Cardinal;
SizeRec : Cardinal;
begin
if FConnected then
begin
if (ServerSocket.Socket.ActiveConnections > 0) then
begin
SizeRec := ServerSocket.Socket.ReceiveLength();
RecSize := ServerSocket.Socket.Connections[0].ReceiveBuf(FpaReceiveBuffer, SizeRec);
end;
inc(Cardinal(FpaReceiveBuffer), RecSize);
...
...
...
Mein Problem ist, dass ReceiveLength immer 0 zurück gibt. Wenn ich von Hand bei ReceiveBuf eine Größe angeben, werden auch Daten empfangen....
Wieso gibt ReceiveLength immer 0 zurück?