1:
2:
3:
4:

WSAStartup(wVersionRequested, wsaData); // OK
WSACleanup(); // OK
WSAStartup(wVersionRequested, wsaData) // OK
WSACleanup(); // ERROR                    

1:

FFTP.IOHandler.SendBufferSize := 65535; // default: 32768                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TIdIOHandler.WriteDirect(const ABuffer: TIdBytes; const ALength: Integer = -1;
  const AOffset: Integer = 0);
var
  LTemp: TIdBytes;
  LPos: Integer;
  LSize: Integer;
  LByteCount: Integer;
  LLastError: Integer;
begin
  // Check if disconnected
  CheckForDisconnect(True, True);
  // TODO: pass offset/size parameters to the Intercept
  // so that a copy is no longer needed here
  LTemp := ToBytes(ABuffer, ALength, AOffset);
  if Intercept <> nil then begin
    Intercept.Send(LTemp);
  end;
  LSize := Length(LTemp);
  LPos := 0;
  while LPos < LSize do
  begin
    LByteCount := WriteDataToTarget(LTemp, LPos, LSize - LPos);
    if LByteCount < 0 then
    begin
      LLastError := GStack.CheckForSocketError(LByteCount, [ID_WSAESHUTDOWN, Id_WSAECONNABORTED, Id_WSAECONNRESET]);
      FClosedGracefully := True;
      Close;
      GStack.RaiseSocketError(LLastError);
    end;
    // TODO - Have a AntiFreeze param which allows the send to be split up so that process
    // can be called more. Maybe a prop of the connection, MaxSendSize?
    TIdAntiFreezeBase.DoProcess(False);
    if LByteCount = 0 then begin
      FClosedGracefully := True;
    end;
    // Check if other side disconnected
    CheckForDisconnect;
    DoWork(wmWrite, LByteCount);
    Inc(LPos, LByteCount);
  end;
end;