Вывод отыгравших песен на сайт

[Sergey_Belov]

Тогда спрошу иначе...

http://php.net/manual/ru/book.paradox.php
с помощью этого класса можно будет работать с таблицей Rep_YYMM.db?

[Wlad]

с помощью этого класса можно будет работать с таблицей Rep_YYMM.db?

Я не владею PHP в таком объеме, чтобы давать консультации.

[Sergey_Belov]

Ок. Отложим в сторону пока таблицу отчета.

Может быть кто-то натолкнет на мысль, как бы это реализовать. Империя выводит данные в текстовый файл о текущем треке... Как можно эти данные записывать в таблицу MySQL?

Я уже думаю, может стоит написать скрипт, который будет сравнивать строчку из файла txt с последней записью в БД, и если они одинаковые - не записывает, а если отличаются - вносит в БД, добавляя время занесения в базу. Только как этот скрипт запускать каждые 10 сек. например?

Блин, такая хорошая программа эта Империя... и такие грабли с этим выводом отыгравших треков на сайт (( просто ужас.

Влад, скажите, что мешает добавить этот Get запрос, чтоб вместе с данными отправляемыми в отчет, программа выполняла такой запрос... с теми же данными? Это бы сразу сняло массу вопросов как показывать треки на сайте... и не нужен бы был этот текстовый файл...

[Wlad]

Блин, такая хорошая программа эта Империя... и такие грабли с этим выводом отыгравших треков на сайт (( просто ужас.

Сергей, я решу этот вопрос в ближайшей версии программы, чтобы она выводила список воспроизведенных файлов (она помнит 255 элементов эфира).

Для формирования текстового файла из БД - никаких проблем. Программа на Delphi пишется за 1-2 часа.
Основной код может выглядеть так:

Код: выделить все

procedure Form1.ReadBase(ValueDate: TDateTime);
var
xYear,xMonth,xDay: Word;
PathToBase: string;
Q: TQuery;
begin
DecodeDate(ValueDate,xYear,xMonth,xDay);
xYear:=xYear-2000;
//PathToReport = папка с отчетами
PathToBase:=PathToReport+'Rep_'+Format('%2.2d%2.2d',xYear,xMonth)+'.db';
if not FileExists(PathToBase) then exit; //Отчета за этот месяц еще нет или удален
Q:=TQuery.Create(nil); //создаем запрос
with Q do begin
SQL.ADD('SELECT * FROM "'+PathToBase+'"');
SQL.ADD('WHERE FDate="'+DateToStr(ValueDate)+'"')
SQL.ADD('Order By FTime'); //Отсортируем по времени
Open;
while not eof do begin
ReadFName:=FieldByName('FName').AsString; //Это мы зачитываем наименование элемента эфира
ReadFArtist:=FieldByName('FArtist').AsString; //Исполнителя
....
Ну и так далее.
Потом выводим запись в текстовый файл.
Например, через WriteLN();
...
Next; //Переходим на следующую запись
end;
Close;
SQL.Clear;
end; //with
Q.Destroy; //Уничтожаем запрос
end; //procedure


[Sergey_Belov]

ладно, дождусь свежей версии программы)) надеюсь))
с программой на delphi это конечно не для меня... я в этом полный ноль )

просто я наверное рассуждаю "по-тупому", но мне казалось, что в Империи в каком-то месте кода есть строчка, при старте трека записать его название и время старта в базу отчетов... поэтому было бы просто и логично добавить туда еще: ---записать не только в базу отчетов но и обратиться по указанному адресу в настройках ( для примера http://example.com/script.php?song=название трека) передав все те же данные, название трека)

[djbob2000]

Спустя 3 года, столкнулись с той же проблемой - вывода отыгравших песен, и возможно будущих на сайт.
Есть нормальный простой способ?