[Sibit]

Добрый день. Хочу получить список файлов в папке(Mapinfo 8.5). Пользуюсь следующими функциями

Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Integer

Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Integer, lpFindFileData As WIN32_FIND_DATA) As Integer

Declare Function FindClose Lib "kernel32" Alias "FindClose" (ByVal hFindFile As Integer) As Integer

Вот только проблема: иногда MapInfo падает, пишет что приложение не может прочитать память. Примеры брал из инета, раньше все работало(только файлов было мало).

Делаю примерно так :

FileHnd = FindFirstFile(FileFind,lpFindFileData)

if FileHnd > 0 then
FindMore=FileHnd
while FindMore > 0

fileName = lpFindFileData.cFileName
FindMore=FindNextFile(FileHnd,lpFindFileData)
retClose = FindClose(FindMore)

wend
end if

Такое чувство что какой-то ресурс не освобождается, но вот как правильно делать не понимаю.

[Андрей Могильный]

А зачем вы закрывает хендл после первого FindNextFile? А если будет еще один виток цикла, а хендл у вас закрыт?

Как-то так:

[Sibit]

Да оно и без закрытия не работает. Я его уже потом добавил, думал что так лучше будет Ну и если он не нужен, тогда совсем непонятно, в какой момент его использовать? если после поиска то последний FHandle будет 0. Хранить их в массиве и потом закрывать?

Ну и в целом, вроде все просто, но Мапинфо ломается, в чем может быть причина?

[Андрей Могильный]

Покажите как вы объявили структуру WIN32_FIND_DATA

[Sibit]

Type WIN32_FIND_DATA
dwFileAttributes As Integer
ftCreationTime As Float
ftLastAccessTime As Float
ftLastWriteTime As Float
nFileSizeHigh As Integer
nFileSizeLow As Integer
dwReserved0 As Integer
dwReserved1 As Integer
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

[Андрей Могильный]

Константа MAX_PATH какое значение у вас имеет в MapBasic?

[Sibit]

250

Такое чувство что проблема зависит от количества запусов функции поиска (FindNextFile). Если их немного , то все работает идеально. Если довольно много то мапинфо падает. Причем проблема именно с WinApi - сделал тоже самое без его использования - все нормально работает.

[Андрей Могильный]

А должно быть 260:
http://www.rsdn.ru/forum/winapi/214156.1

Проверьте с 260.

[Sibit]

Вроде заработало Спасибо!

Единственное что непонятно - в какой момент FindClose вызывать надо? И надо ли вообще? Просто если перебор в цикле делать, то хендл будет 0 в его конце(по этому условию и заканчиваем цикл) и смысла вызывать FindClose(0) нет никакого.

[Андрей Могильный]

Я же код привел. С чего вы взяли, что хендл будет равен 0 в конце? Хендл - это по сути указатель. Вы его выделили, вы его будьте добры и освободить. Система не знает о моменте, когда вам его надо освободить. Может вы обратно метнетесь по циклу при достижении конца? Никто не запрещает.
Вот определение функции:
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Integer, lpFindFileData As WIN32_FIND_DATA) As Integer
Здесь hFindFile - ByVal, т.е. по значению. Оно не может превратить входной параметр в 0. Вы где-то ошиблись в отладке.

[Sibit]

Собственно смутил ваш комментарий:

[Андрей Могильный]

Вы неправильно понимаете конструкцию. Хендл возвращает FindFirstFile, в дальнейшем идет работа именно с этим хендлом, он не меняется при следующих вызовах FindNextFile.
Соответственно освобождать его (хендл) надо только когда мы поработали с ним и больше не предвидится по нему вызовов FindNextFile. В вашем случае - за рамками цикла.

[HellSlinger]

Sibit, а Вы не могли бы поделиться полным вариантов кода чтения файлов .mif/.tab из каталога и из подкаталогов?