我在區網做FTP的上傳動作,用以下的指令上傳資料,1~255筆時資料很快就傳完了,
到了第256筆以後,就慢慢傳送資料,想請教各位是那裏出問題了?
FOR i:=0 to FileListBox1.Count - 1 do
BEGIN
try
StatusBar1.Panels[0].Text := inttostr(FileListBox1.Count) '-' inttostr(i) '-' '上傳中.....';
StatusBar1.Update;
idFTP1.Put('C:\VTCP\' FileListBox1.Items[i],FileListBox1.Items[i]);
except
on E:Exception do begin
StatusBar1.Panels[0].Text := '檔案上傳失敗' E.message '錯誤';
StatusBar1.Update;
exit;
end;
end;
END;