Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 7
Всего онлайн: 7
Зарегистрировано юзеров: 7550
Комментариев на сайте: 670
Новый юзер: dolginaolha



Последние комментарии
c
Amard прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
Всем привет! В Школе Частных Прорабов Prorab2.ru обучают как сделать дешевый и недорогой фундамент своими руками используя Строительные Нормы и Правила (СНиП), технологии для фундаментов и Технику Безопасности (ТБ) на объекте с помощью одной из лучших онлайн школ в мире ,а также единственной онлайн школы в России и на просторах бывшего СНГ Вы реально научитесь строить Фундамент за пол цены от рыночной стоимости работ – это не шутка, не розыгрыш и не мечта. Фундамент за 50 процентов – это реальность! Недавно я нашел крутую онлайн школу. Мужики реально крутая школа, все объясняют без заумных слов. Все нужно делать заблаговременно и разумно экономно! Там изучают множество тем о фундаментах. Одна из них: [url=https://prorab2.ru/category/fundament]Фундамент из бруса.[/url] До новых встреч!
CarolineWrifs прокомментировал "Урок 3 - Конструкция IF...THEN...ELSE":
[img]https://kapsuly-lipocarnit.ru/files/lipocarnit_1/img/product-head1.png[/img] [url=https://kapsuly-lipocarnit.ru/][img]https://karga.info/wp-content/uploads/2019/02/orig.jpg[/img][/url] Lipocarnit (ЛипоКарнит) - [url=https://kapsuly-lipocarnit.ru/]липокарнит капсулы для похудения цена екатеринбург[/url] для похудения в Екатеринбурге Цена: 990 руб. [url=https://kapsuly-lipocarnit.ru/]lipocarnit отзывы[/url] - Полная конфиденциальность Наименование и назначение товара не указаны на посылке. В соответствии с политикой конфиденциальности мы не передаем информацию третьим лицам. Аудио обзоры нашего магазина Липокарнит (LipoKarnit) - капсулы для похудения - описание Кто такие представители прекрасного пола ради похудения? Часы физических упражнений, строгие диеты, даже липосакция. Но, по мнению большинства врачей, лучше всего получить твердое натуральное средство для похудения с гарантированным эффектом. Среди тех, кто заменяет упражнения и осанку, профессионалы включают продукт для похудения Lipocarnit. По словам производителей, любая капсула бьет избыток жира на клеточном уровне, ускоряя обмен веществ и снижая уровень глюкозы в крови. LipoCarnit превращает жир в энергию и снижает уровень холестерина. Это, если верить словам клиентов, приводит к обещанной и быстрой потере веса. Почему мы набираем вес? Есть много причин, почему мы набираем вес. К ним относятся диетические излишки и фиксированный образ жизни и генетическая предрасположенность. Однако наименее реальным бедствием современной цивилизации является изменение в процессе обмена веществ. Нарушение обмена веществ возникает в результате: отсутствие компонентов, пригодных для обработки жировых клеток; сбой в процессе образования и разложения жира; отсутствие деталей, необходимых для осуществления химических реакций. Начальные признаки избыточного веса Дамы считают, что образования с избыточным весом наверняка не будет недостатка. Однако не только стрелки весов способны говорить о неточном ходе жирового обмена. Сначала вес может не измениться, однако другие симптомы нарушения обмена веществ будут наименее очевидными: апельсиновая корка; храп; постоянный аппетит; слабость; высокое кровяное давление; Боли в спине и суставах. Сказать, что все эти плохие реакции на тело означают заботиться о себе! Помогает ли нам бездействие? Если вам кажется, что лишний вес - это не та проблема, из-за которой вы должны изменить свой обычный образ жизни, вот лишь несколько несоответствий, которые могут привести к избыточному весу и неправильному обмену веществ. : высокое кровяное давление; избыток холестерина; уровень сахара в крови; проблемы с поджелудочной железой; Риск склероза и инфаркта миокарда. Не волнуйтесь, получите естественное и неопасное лечение для контроля жира - капсулы Липокарнит. Липокарнит (Li Капсулы ЛипоКарнит разрушают жировые отложения за счет действия состава природного баланса; Липоевая кислота нормализует уровень глюкозы в крови, очищает и сохраняет печень, ускоряет выделение энергии липидными клетками; Pycinate Pycollinate уменьшает чувство голода, расщепляет жир и нормализует кровяное давление; L-карнитин превращает липиды в энергию, снижает уровень холестерина. Поступление таким образом, чтобы улучшить ум, а не состав, значительно уменьшить избыточный вес. И сразу же для похудения не стоит ограничиваться едой. Продукт «переконфигурирует» организм для максимально быстрого удаления жиров и в то же время не вызывает привыкания или побочных эффектов.

Работа с форматом M3U

Формат этого файла таков: в начале файла есть служебное слово [#EXTM3U], означающее, что выбранный нами файл действительно m3u. Далее идут строки вида:

#EXTINF:120,Вася барабанщик – Kill My
My Music\Kill_My.mp3

Где [#EXTINF:] служебное слово, [120] – длина трека в секундах, [Вася барабанщик – Kill My ] – тэг, а [ My Music\Kill_My.mp3] – путь к файлу. Причём путь к файлу не полный и зависит от места расположения m3u файла. Пример: m3u файл находится в папке X:\ Music, а муз. файлы в X:\Music\My Music\Kill_My.mp3, тогда путь к файлу в плей листе будет My Music\Kill_My.mp3. А если файл музыки и файл плей листа будут на разных дисках, то путь будет полным. К чему такие сложности я не знаю, ведь можно просто писать полный путь и никаких проблем не будет. И ещё, если переместить файл плей листа, то WinAmp (и др. программы) не смогут воспроизвести файл, так как не найдут путь к нему. (При условии, что путь неполный).

Казалось бы неполный путь к файлу создаёт нам дополнительные проблемы. Это так. Но я написал функцию, которая восстанавливает этот путь. Итак, рассмотрим на примере, как можно загрузить в ListView данные из m3u файла. На форму помещаем ListView с тремя колонками. 1-я колонка – тэг, 2-я – длина трека, 3-я – путь. И добавим OpenDialog, для открытия файла, и кнопочку.

function NotFullPathToFullPath(FM3U, FM: string): string; 
(*Из неполного пути -> полный*) 
var 
  Ress: string; 
begin 
  Ress := ''; 
  Result := ''; 
(*Если 1-й символ ‘\’, то просто добавляем букву диска*) 
  if FM[1] = '\' then 
  begin 
    Result := ExtractFileDrive(FM3U) + FM; 
    exit; 
  end else 
  begin 
(*Путь к m3u + неполный путь к файлу*) 
    if FileExists(ExtractFilePath(FM3U) + FM) then 
    begin 
      Result := ExtractFilePath(FM3U) + FM; 
      exit; 
    end; 
(*А вдруг путь уже полный?*) 
    if FileExists(FM) then 
    begin 
      Result := FM; 
      exit; 
    end; 
  end; 
end; 

procedure ReadM3U(files: string); 
(*Чтение m3u*) 
(*Думаю всё и так понятно без комментариев ;)*) 
var List: TStringList; 
  i, n: integer; 
  s, a: string; 
  ListItem: TListItem; 
begin 
(*Очищаем ЛистВив*) 
  Form1.ListView1.Clear; 
  List := TStringList.Create; 
  try 
    List.LoadFromFile(files); 
    for i := 0 to List.Count - 1 do 
    begin 
(*Первая строка – «#EXTM3U»? Если да, то это файл m3u*) 
      if List.Strings[0] = '#EXTM3U' then 
      begin 
        s := List.Strings[i]; 
        if s[1] <> '#' then 
        begin 
          ListItem.SubItems.Add(''); 
          s := NotFullPathToFullPath(Files, s); 
          ListItem.SubItems[1] := s; 
        end else 
        begin 
          if s <> '#EXTM3U' then 
          begin 
            Delete(S, 1, 8); 
            a := ''; 
            n := 1; 
            repeat 
              a := a + s[n]; 
              Inc(n); 
            until s[n] = ','; 
            Delete(S, 1, Length(a) + 1); 
            ListItem := Form1.ListView1.Items.Add; 
            ListItem.Caption := s; 
            ListItem.SubItems.Add(Format('%d:%.2d', [StrToInt(a) div 60, StrToInt(a) mod 60])); 
          end; 
        end; 
      end; 
    end; 
  finally 
    List.Free; 
  end; 
end;
А вызывать будем по кнопке:
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if OpenDialog1.Execute then 
    ReadM3U(OpenDialog1.FileName) else exit; 
end;
Так. Открытие мы сделали. Можете открыть свой плей лист, сохраненный в WinAmp'е и вглянуть на то, что получилось. Перейдём к сохранению. Положите на форму ещё одну кнопку и в путь. Не забудьте подключить модуль StrUtils.
function ExtNotFullPath(FM3U, FM: string): string; 
(*Из полного пути в неполный*) 
var 
  i: integer; 
  Ress: string; 
begin 
  Ress := ''; 
  Result := ''; 
  for i := 1 to Length(FM3U) do 
  begin 
    if FM3U[i] = FM[i] then 
    begin 
      Ress := Ress + FM3U[i]; 
      if FM3U[i] = '\' then Result := Ress; 
    end else exit; 
  end; 
end; 

function MinToSec(tim: string): string; 
(*Это такой компьютерный юмор, функция из минут в секунды, результат String ;)*) 
(*Помнишь мы секунды преобразовывали в минуты? Вот теперь всё наоборот*) 
var n: integer; 
  a: string; 
begin 
  n := 1; 
  a := ''; 
  repeat 
    a := a + tim[n]; 
    Inc(n); 
  until tim[n] = ':'; 
  Delete(tim, 1, Length(a) + 1); 
  result := IntToStr((StrToInt(a) * 60) + StrToInt(tim)); 
end; 

procedure SaveList(SaveFile: string); 
(*Сохранение...*) 
var List: TStringList; 
  i: integer; 
  b, s: string; 
begin 
  List := TStringList.Create; 
  List.Add('#EXTM3U'); 
  for i := 0 to Form1.ListView1.Items.Count - 1 do 
  begin 
    s := ''; 
    List.Add('#EXTINF:' + MinToSec(Form1.ListView1.Items.Item[i].SubItems.Strings[0]) + ',' + Form1.ListView1.Items.Item[i].Caption); 
    b := ExtNotFullPath(SaveFile, Form1.ListView1.Items.Item[i].SubItems.Strings[1]); 
    if Length(b) < Length(ExtractFilePath(SaveFile)) then 
    begin 
      s := Form1.ListView1.Items.Item[i].SubItems.Strings[1]; 
      if b<>`` then //проверка, на одинаковых ли дисках? 
        Delete(s, 1, 2); 
    end else 
      s := AnsiReplaceText(Form1.ListView1.Items.Item[i].SubItems.Strings[1], b, ''); 
    List.Add(s); 
  end; 
(*Сохраняем в файл*) 
  List.SaveToFile(SaveFile); 
  List.Free; 
end;
А вот и кнопочка пригодилась :-)
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  if SaveDialog1.Execute then 
  begin 
    if ExtractFileExt(SaveDialog1.FileName) = '.m3u' then 
      SaveList(SaveDialog1.FileName) else SaveList(SaveDialog1.FileName + '.m3u'); 
  end; 
end;

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 24 Августа 2014
Просмотров:


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.