Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.08.2015, 14:04   #11
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Цитата:
Содержимое "E:\Список песен.txt" корректно?
Да, вот примерный список:
Код:
E:\Моя музыка\Круг\Круг - Чай С Баранками.mp3
E:\Моя музыка\Валерия\Валерия - Капелька.mp3
E:\Моя музыка\Поручик Ржевский - С раною в груди.mp3
E:\Моя музыка\Натали\Натали - Ты уже не мираж.mp3
E:\Моя музыка\Smash\smash - Птица (radio edit).mp3
E:\Моя музыка\Зверев - Алла.mp3
E:\Моя музыка\Сердючка\Сердючка - Абрикосы.mp3
E:\Моя музыка\VIP - Прощай.mp3
и т.д.

Цитата:
и в конце "испортил" файл. Так и задумано?
Сохраняйте SaveToFile в другой файл что ли...
Это не страшно!

Цитата:
[i+1,sl.Count]
Тоже не страшно!

Главный вопрос на картике в первом посте
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 09.08.2015, 21:59   #12
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

Почему-то у меня код из первого поста нормально работает...
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 09.08.2015, 22:49   #13
ResourceSpace
Форумчанин
 
Аватар для ResourceSpace
 
Регистрация: 30.06.2015
Сообщений: 353
По умолчанию

Да и у меня, и думаю у почти всех. Проблема может быть навскидку:
  • в содержимом текстового файла (у меня было 250 одинаковых строк, один и тот же файл)
  • в 126-м mp3-файле что-то такое что плеер наворачивается
Предлагаю опробовать:
  1. заполняем текстовый файл как у меня и смотрим есть ли ошибка
  2. обмениваемся exe-файлами что бы понять только ли на том компе проблема

И всё же по опыту советую - всё то что "не страшно" фиксить сразу, не откладывая.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,cnt:integer;
    f,dl:string;
    sl:tStringList;
begin
   sl:=tStringList.Create;
   f:='E:\Список песен.txt';//здесь содержатся имена mp3-файлов
   sl.LoadFromFile(f);
   cnt:=sl.Count;
   For i:=sl.Count-1 downto 0 do
   begin
      Label1.Caption:=Format('%d / %d',[cnt-i,cnt]);
      Label1.Repaint;
      Application.ProcessMessages();
      sl[i]:=Trim(sl[i]);
      If Length(sl[i])=0 Then
         Begin
         sl.Delete(i);
         Dec(cnt);
         Continue;
         End;
      If Not FileExists(sl[i]) Then
         Begin
         sl[i]:=sl[i]+' - ERROR_FILE_NOT_EXISTS';
         Dec(cnt);
         Continue;
         End;
      MediaPlayer1.FileName:=sl[i];
      try
         MediaPlayer1.Open;
         dl:=IntToStr(MediaPlayer1.Length);
      except
         On E:Exception Do
            Begin
            ShowMessage(E.ClassName+#13#10+E.Message);
            dl:='ERROR_EXCEPTION';
            End;
      end;
      MediaPlayer1.Close;
      sl[i]:=sl[i]+' - '+dl;
   end;
   sl.SaveToFile(f+'.time.txt');
   sl.Free;
end;
ResourceSpace вне форума Ответить с цитированием
Старый 09.08.2015, 23:50   #14
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

Автор, не увидил, возможно твой ответ, если он был, но какой у тебя делфи стоит? У меня 7 lite. Тестил на ХЕ5. Не знаю какие компиляторы, но все гуд. Какая операционка у тебя? Думаю виста или 7.я смотрел на 7 и 10.
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 10.08.2015, 02:12   #15
ДралсяСошибками
Форумчанин
 
Аватар для ДралсяСошибками
 
Регистрация: 31.05.2011
Сообщений: 301
По умолчанию

Код в первом сообщении работает нормально, список сделал как ResourceSpace, ошибок не наблюдается))
ДралсяСошибками вне форума Ответить с цитированием
Старый 10.08.2015, 02:15   #16
ResourceSpace
Форумчанин
 
Аватар для ResourceSpace
 
Регистрация: 30.06.2015
Сообщений: 353
Стрелка

У меня Win7. Все обновления кроме "Средств удаления (месяц)".
WindowsMediaPlayer никогда не включался и не настраивался. Модных "пакетов кодеков" не ставилось.
Прикладываю тестовый exe для проверки на машине newerow1989.

Виста вообще не ОС, а недоразумение
На Win8 посмотрел минуты 3, с точки зрения пользователя не понравилось вообще никак, снёс нафик.
Вложения
Тип файла: zip t=281052.zip (208.2 Кб, 13 просмотров)
ResourceSpace вне форума Ответить с цитированием
Старый 10.08.2015, 02:29   #17
ДралсяСошибками
Форумчанин
 
Аватар для ДралсяСошибками
 
Регистрация: 31.05.2011
Сообщений: 301
По умолчанию

Возможно ошибка на 126-ом файле из-за того, что в 126-ом году, Бань Юн разбил Хуяня в Западном крае (Восточный Туркестан).
ДралсяСошибками вне форума Ответить с цитированием
Старый 15.08.2015, 05:17   #18
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Цитата:
Прикладываю тестовый exe для проверки на машине newerow1989.
Та же самая ошибка!
Изображения
Тип файла: jpg Безымянный.jpg (44.7 Кб, 142 просмотров)
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 15.08.2015, 12:47   #19
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Стартер, дай 125-й файл. Надо ж с чего-то начинать поиск бага.
Цитата:
На Win8 посмотрел минуты 3, с точки зрения пользователя не понравилось вообще никак, снёс нафик.
Поясни, почему? Я год на 8-ке просидел и доволен был.
Только позавчера накатил поверх неё 10-ку на 2 домашних ноута. А вчера - на работе на свой сервак. Пока доволен, но немного пошкрябать напильником пришлось (обновить видео-дрова). И ставится, сволочь, дооооооооооолгоооооо...
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 15.08.2015, 13:05   #20
ResourceSpace
Форумчанин
 
Аватар для ResourceSpace
 
Регистрация: 30.06.2015
Сообщений: 353
По умолчанию

Ну если проверялось на 250 одинаковых строках из одного и тот же файла - то видимо правда что-то в ОС...
ResourceSpace вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Браузер глючит... Aleksckjy HTML и CSS 3 21.01.2015 11:43
Wi Fi глючит nikox12 Компьютерное железо 5 03.05.2014 20:26
Глючит MediaPlayer или я что-то не то делаю? TUberwer Общие вопросы Delphi 4 14.08.2013 22:50
глючит монитор Aries Компьютерное железо 2 14.04.2011 17:36
Глючит Excel ---FISHER--- Общие вопросы Delphi 34 09.08.2009 20:30