Ошибка "Файл не найден" при выборе большого числа файлов

[Smerch66]

Здравствуйте уважаемые знатоки! Прошу вашей помощи.
При выборе большого количества файлов, с помощью компонента opendialog, выводится ошибка, что какой-либо файл, из выбранных, не найден.
В районе 600 файлов открывает нормально, без ошибок.
Почему так происходит? Как мне преодолеть эту ошибку.
Тут дело в том, что у меня проигрыватель аудиофайлов, и нужно в плейлист загружать ну хотя бы пару тысяч песен.

[ben95]

Код в студию.

[Smerch66]

Сообщение от ben95

Код в студию.

Какой код? Там одна строка для открытия opendialog.
Открывается opendialog, в нём я выделяю кучу файлов, нажимаю открыть, и не открывает он. ругается. а вот если поменьше выбрать, то всё норм.
Проанализировал, что если имена файлов короткие, то можно больше открыть, чем при длинных именах файлов.

[Smitt&Wesson]

Скажите хотябы, что за ошибка? Что компилятор выдаёт?
У меня подозрение, что под буфер выделяется мало памяти, такое иногда случается.
Но не проанализировав сообщение компилятора, трудно сказать что-либо более внятное.

[NoName_emaNoN]

Может быть из-за того что в OpenDialog файлы передаются через TStrings, а его размер ограничен максимальным числом Integer или же параметр Text это тип string и он тоже ограничен каким-то максимальным размером?
Попробуйте посчитать размер OpenDialog1.Files.Text может он окажется 65535...

UPD: Да, скорей всего всё ограничивается размером типа string (если судить по тому что если открывать файлы с короткими именами, то "влезает" больше.

[asmodey1]

Сообщение от Smerch66

В районе 600 файлов открывает нормально, без ошибок.

А на кой нужно одновременно открывать столько файлов ???
Это что - новая разновидность мазохизма ?
Или просто желание напакостить в системе ?

[evg_m]

нужно в плейлист загружать ну хотя бы пару тысяч песен.

заставлять пользователя выбирать столько файлов?!

SelectDirectory + FindFirst + while + FindNext = узнать все файлы в указанной папке.
как пользоваться
примеры в справке (F1 Delphi Example)
поиск по форуму
google поиск
использовать в любом порядке.

P.S. SelectDirectory есть ДВЕ функции с одинаковым прототипом (delphi7)
uses Qdialog
uses fileCtrl

[veniside]

Сообщение от Smerch66

Почему так происходит?

Так захотел Борланд:

MultiSelectBufferSize = High(Word) - 16;

Сообщение от Smerch66

Как мне преодолеть эту ошибку.

Вызвать GetOpenFileName() руками, и задать в nMaxFile буфер побольше.

[Smerch66]

Вызвать GetOpenFileName() руками, и задать в nMaxFile буфер побольше.

Я немного не понял как пользоваться этой функцией.. Не могли бы вы привести пример кода?
И как потом из этой функции извлечь: имена файлов полные, имена файлов обычные, и путь к директории где они лежат?
Буду очень признателен, если с комментариями напишите.

[Ghost of Night]

Попробуй драг & дроп юзать