Zitat von
m0sch3r:
Delphi-Quellcode:
for i := 0 to idFTPserver1.Bindings.Count - 1 do
begin
idftpServer1.Bindings.Items[i].CloseSocket;
end;
So knallt das auf jeden Fall... Weil du über den Index hinaus schießt...
Delphi-Quellcode:
for i := idFTPServer1.Bindings.Count - 1 downto 0 do
begin
idftpServer1.Bindings.Items[i].CloseSocket;
end;
Versuchs mal so ^^