Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  03:26[Войти] | [Зарегистрироваться]
Ответ на вопрос № 23679

11-07-2004 08:34
Здравствуйте, народ

У меня такая вот небольшая проблема - надо вывести список файлов в папке. Сложность в том, что файлы могут иметь названия на каком угодно языке вплоть до китайского. FindFirst/FindNext возвращают их имена как ascii, про старые "паскальные" функции и говорить нечего. В итоге все специфические символы теряются. Как получить список имен файлов в папке в формате WideString?
Или так - можно ли из виндовского диалога выбора файлов (он все отображает как надо) получить ВСЕ имена?

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

19-07-2004 17:41 | Сообщение от автора вопроса
То есть в вин98 есть, например, русская версия, она понимает русский язык. Есть, скажем, французская, она понимает французский. Можно предположить, что неюникодные варианты функций и компонентов под локализованной виндой и так должны понимать местное наречие? Я под XP  пробовал отобразить в ListView название файла на  испанском. Поставил испанский язык, испанские региональный настройки и даже выбрал испанский язык для неюникодных программ. Прикрутил к списку диалог шрифта, все перепробовал, но оно так и не отобразилось как надо. Тогда собственно и пришлось переходить на юникод. А в 98 значит должно?

19-07-2004 13:43
Судя по MSDN'у, в Windows 98 Unicode-вариантов функций FindFirstFile и FindNextFile нет, поэтому ваша программа в Win 98 даже не запуститься. Но, насколько мне известно, ни одна файловая система, поддерживаемая в Win 98, не допускает использования Unicode, а потому и искать там что-то таким образом не стоит.

19-07-2004 12:52 | Сообщение от автора вопроса
Спасибо огромное, теперь все работает. В справке почему-то такие подробности не приводятся:(

А такой поиск будет одинаково работать под всеми Win32 или для 98 есть какие-то тонкости?



19-07-2004 10:33
Дело в том, что есть две FindClose: функция из kernel32.dll, которая импортируется в модуле Windows, и функция, реализующаяся в модуле SysUtils (эта функция закрывает поиск, начатый функциями FindFirst/FindNext, реализованными в этом же модуле). По умолчанию вызывается вторая из них, т.к. в uses модуль SysUtils стоит после Windows, и его объявления перекрывают одноимённые объявления Windows. Чтобы вызвать FindClose из Windows, надо явно указать имя модуля: Windows.FindClose(...);

18-07-2004 13:51 | Сообщение от автора вопроса
Здравствуйте, народ

Вроде разобрался. Примерно так:

var SR: _WIN32_FIND_DATAW;
    hnd: Cardinal;
...

Потом пользую

hnd:=FindFirstFileW('c:\*.*',SR);
...
FindNextFileW(hnd,SR);
...

Единственный вопрос - не удается "закрыть" поиск. FindClose(SR) и FindClose(hnd) вылетают, FindCloseW не нашел. Как с закрытием быть, подскажите кто-нибудь, пожалуйста.

12-07-2004 23:36 | Сообщение от автора вопроса
Все-таки не выходит... А не знаете ссылку на какой небольшой пример на эту тему? По хэлпу не получается разобраться, в системном программировании я не силен:(

12-07-2004 09:57 | Сообщение от автора вопроса
А, пардон... FindNextFileW есть. Спасибо, теперь должно работать. Хотя все равно не понятно, почему было не сделать совершенно такие же функции FindFirstW и FindNextW.

12-07-2004 09:55 | Сообщение от автора вопроса
А почему же FindNextW отсутствует в прилагаемом к дельфи7 WindowsSDK? И бумажный справочник по WinAPI смотрел, там такого тоже нету... Пробовал написать - компилятор матерится.


12-07-2004 07:43
FindFirstFileW
FindNextFileW

11-07-2004 22:43
можно написать ручками

для начала, в


  TSearchRec = record
    Time: Integer;
    Size: Integer;
    Attr: Integer;
    Name: TFileName;
    ExcludeAttr: Integer;
{$IFDEF MSWINDOWS}
    FindHandle: THandle  platform;
    FindData: TWin32FindData  platform;
{$ENDIF}
{$IFDEF LINUX}
    Mode: mode_t  platform;
    FindHandle: Pointer  platform;
    PathOnly: String  platform;
    Pattern: String  platform;
{$ENDIF}
  end;

заменяем
    FindData: TWin32FindData  platform;
на
    FindData: TWin32FindDataW  platform;
и получаем это все, скажем, в TSearchRecW
все остальное по этому же принципу ...

11-07-2004 15:37 | Сообщение от автора вопроса
Это было первое, про что я подумал. Перерыл хэлп и справочники, нашел FindFirstW, но не нашел FindNextW. Не можете ли подсказать более конкретно, какие именно функции имеются в виду?

11-07-2004 09:05
Надо использовать Unicode-версии API-шных функций. См. раздел "Работа со строками в Win API" в http://www.delphikingdom.com/asp/viewitem.asp?catalogid=169

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Однажды, в студеную зимнюю пору я из лесу вышел, был сильный ЧТО?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования