У компонента NMFTP есть такая процедурка TForm1.NMFTP1ListItem(Listing: String). Так вот она запускается при выполнени NMFTP1.List, а при вызове процедуры каждый раз в Listing оказывается строчка, содержащая информацию об одном файле. 
Так вот она "переберет" все файлы в текущей папке на сервере, встает в end и, собственно говоря, и усё. Дальше алгоритм не выполняется, а проц грузится на 90-98% от этого процесса. 
Что делать с этим? Памагите кто знает.   

А самое интересное, что это не происходит не всегда. Только при Passive = true. 

ошибка в 17 строке

используй инди 

что значит ошибка в 17 строке?

IdFTP - вообще отказывается выполнять следующую строку
IdFTP.List(a)

Говорит:
'Access violation at address 00457C9B in module 'Project1.exe'. Read of address 88D88B7F' 

а ты а инициализировал? (креате вызови).

Добавлено @ 12:09 

читай faq. 

Инициализировал. Все работает.
Спасибо.

Но всетаки мне интересно насчет NMFTP (на нем всетаки вся прога работает, переделывать страшно не хочется)

Эту проблему получить не сложно (проблема потому что ошибки Delphi не выдал). Достаточно поставит пассивный режим и запустить лист.

NMFTP1.Passive:=true;
NMFTP1.Connect;
NMFTP1.ChangeDir('private');
NMFTP1.List;

Вот и все. В режиме отладки курсор останавливается на этой строчке, а процессор на 90-98% загружен программой.

Если же есть обработчик события ListItem. Вот, например, такая процедура:
procedure TForm1.NMFTP1ListItem(Listing: String);
begin
Memo1.Lines.Add(listing);
end;

То список файлов выводится в Memo1, а потом в режме отладки курсор встает в end процедуры и опять двадцать пять. Если только не давать проге дойти до энда, но как.

Но это зависание происходит не всегда, а в 70-50% 
  

Это сообщение отредактировал(а) harry - 31.7.2006, 12:55