Ученик-кочегар
Группа: Участник
Сообщений: 27
|
Pipl'ы подскажите ПЛЗ. Ситуация следующая — ищу файлы с помощью FindFirst() и FindNext(). К примеру 123.htm. При обнаружении такого запускаю IdTrivialFTP->put(). Ошибка следующая:
exeption class EFOpenError with message 'Cannot open file 123.htm'.
Причем интересно, если указать явно файл, т.е. не использовать поиск файлов, то никаких проблем нет  .
Код:
TSearchRec sr;
if(FindFirst("c:\*htm",faAnyFile,sr)==0)
{
IdTrivialFTP->put(sr.Name,sr.Name);
while(FindNext(sr)==0)
IdTrivialFTP->put(sr.Name,sr.Name);
}
FindClose(sr)
|
Отправлено: 19.10.2004, 06:43