Код следующий
hInternetOpen:= InternetOpen( 'DownLoad Updates',
INTERNET_OPEN_TYPE_PRECONFIG,
nil,
nil,
INTERNET_FLAG_ASYNC);
if Assigned(hInternetOpen) then
begin
hInternetConnect:= nil;
hInternetConnect:= InternetConnect( hInternetOpen,
'192.168.116.129',
INTERNET_DEFAULT_FTP_PORT,
'username',
'password',
INTERNET_SERVICE_FTP,
0,
0);
if Assigned(hInternetConnect) then
begin
hFindFile:= nil;
hFindFile:= FtpFindFirstFile( hInternetConnect,
'*.*',
Win32FindDataA,
INTERNET_FLAG_NEED_FILE,
0); // эта команда выполняется нормально
if Assigned(hFindFile) then
begin
repeat
ListBox1.AddItem(string(Win32FindDataA.cFileName), nil);

until not(InternetFindNextFile( hFindFile, @Win32FindDataA)); // здесь стабильно ошибка ERROR_IO_PENDING при первом же цикле выполнения
InternetCloseHandle(hFindFile);
end;
InternetCloseHandle(hInternetConnect);
end;
InternetCloseHandle(hInternetOpen);

Может кто знает в чем проблема - все хендлы порождаются и уничтожаются нормально все работает нормально во только из-за этой ошибки отображается только один файл с сервера - тот который с получен с помощью FtpFindFirstFile

Извените что код на Паскале - но я думаю проблем не будет

2 CEMb

Огромное тебе спасибо за ответ - не повериш но утра раскинул вопрос по разным форумам и вот уже 9 часов вопрос лежит и только первый ответ подоспел...

Кадал вопрос на разные форумы но вот первым ответ пришел с форума о С++


так вот теперь о теме

в MSDN говорится иммено так проверять успешность выполнения InternetFindNextFile а потом уже GetLastError дает тебе информацию о типе ошибке

а то что предложил until not(ERROR_NO_MORE_FILES != GetLastError()) я конечно попробовал - код впадает в бесконечный цикл топомучто всегда GetLastError() = ERROR_IO_PENDING

2 CEMb

спасибо за ответ - сегодня ночью наконец -то нашел - убрать в InternetOpen флаг INTERNET_FLAG_ASYNC - тогда все нормально работает иначе файл занят предыдущей операцией -


спасибо, Bayburin Marat