TServerSocket: ReceiveLength gibt immer 0 zurück

[Viktorii]

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?

[Astat]

Zitat von Viktorii:

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?

HI, lass mal das "ServerSocket." weg!

Delphi-Quellcode:

procedure TMainForm.ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  RecSize         : Cardinal;
  SizeRec         : Cardinal;

begin
  if FConnected then
  begin

    if (Socket.ActiveConnections > 0) then
    begin
      SizeRec := Socket.ReceiveLength();
      RecSize := Socket.Connections[0].ReceiveBuf(FpaReceiveBuffer, SizeRec);
    end;

    inc(Cardinal(FpaReceiveBuffer), RecSize);

  ...
  ...
  ...

lg.