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.