Delphi-Quellcode:
var
T: TextFile;
begin
AssignFile(T, 'C:\test.txt');
Append(T);
WriteLn(T, 'Lese...');
Result := TRecvSend(SendRet)(s, Buf, len, flags);
WriteLn(T, 'Gelesen: ' + IntToStr(Result));
CloseFile(T);
end;
So passiert gar nichts mehr. Nur wenn ich das CloseFile vor SendRet ausführe sendet er das Paket.