Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 31.10.2011, 20:19
Petros9n Petros9n вне форума
Прохожий
 
Регистрация: 13.10.2011
Сообщения: 34
Репутация: 10
По умолчанию ошибка file not found при нестандартных символах в названии файла

Есть программа которая считывает все mp3 файлы из папки в tstringlist, ошибка file not found возникает, когда в названии файла есть нестандартные символы например "19. Coeur De Légionnaire.mp3" то-есть если заменить "é" на "e" то все будет ок, подскажите как подобного можно избежать ?
считываю таким кодом:
Код:
SetCurrentDir(ExtractFilePath(Application.ExeName)+'\music');
  mlist:=tstringlist.create;
if FindFirst('*.mp3', faanyfile, searchResult) = 0 then
  begin
    repeat
      mlist.Add(copy(searchresult.Name, 0, length(searchresult.Name)));
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
Ответить с цитированием
  #2  
Старый 31.10.2011, 20:42
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию

На какой строчке выдает данную ошибку?
Ответить с цитированием
  #3  
Старый 31.10.2011, 21:02
Petros9n Petros9n вне форума
Прохожий
 
Регистрация: 13.10.2011
Сообщения: 34
Репутация: 10
По умолчанию

на ошибке выделят строчку из модуля ID3v2: Reset(SourceFile, 1);
я использую данный модуль для считывания тегов из mp3:
Код:
for n:=0 to 3 do
  begin

    if l[n].Caption='' then begin if FileTag.ReadFromFile(mList1.Strings[n]) then
    l[n].Caption:=FileTag.Artist+' - '+FileTag.Title; end;
   end;
Ответить с цитированием
  #4  
Старый 31.10.2011, 21:22
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию

... Перед тем, как добавить файл в список, проверяй его имя на наличие сторонних символов и выполняй какие-то действия с этими файлами (например, предложи их переименовать).
Ответить с цитированием
  #5  
Старый 31.10.2011, 21:31
Petros9n Petros9n вне форума
Прохожий
 
Регистрация: 13.10.2011
Сообщения: 34
Репутация: 10
По умолчанию

какие символы считаются сторонними ?
Ответить с цитированием
  #6  
Старый 31.10.2011, 21:33
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Те, языки которых не проставлены в системе.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:00.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025