Sam Broadcaster - експорт title в текстовый файл

PAL.WaitForPlayCount(1);

ждет до смены трека

PAL.WaitForTime('+00:00:30');

ждет 30сек с момента вызова этой функции

Song['artist'] 

Song['title']

и так ясно

но как писать в файл не нашел, попалась только функция webToFile,  НО есть же база это 1 и есть html output это 2

Отредактировано tarasian666 (14-01-2013 19:27:20)

пишет tarasian666:

но как писать в файл не нашел

Я нашел как писать в файл, но не получается ничего.

var FileSave : String;
FileSave := 'C:\Directory\test.txt';
SavestringTofile(FileSave, 'some text');

Как это в кучу собрать ума не приложу.

Не знаю на сколько правильное решение, но оно работает.

Скрипт раз в 30 секунд берет из активной деки "Artist - Title" и записывает его в текстовый файл.  (Song.Free;) и (DeleteFile(FileSave);) для перестраховки, на всякий случай

var FileSave : String;
var Song : TSongInfo;
PAL.WaitForTime('+00:00:30');
PAL.Loop := True;
Song.Free;
Song := ActivePlayer.GetSongInfo;
FileSave := 'd:\\TEMP\\NowOnAir.txt';
DeleteFile(FileSave);
SavestringTofile(FileSave, Song['artist'] + ' - '+ Song['title']);
Song.Free;

Второй скрипт делает то же самое, но при каждом старте трека

var FileSave : String;
var Song : TSongInfo;
PAL.WaitForPlayCount(1);
PAL.Loop := True;
Song.Free;
Song := ActivePlayer.GetSongInfo;
FileSave := 'd:\\TEMP\\NowOnAir.txt';
DeleteFile(FileSave);
SavestringTofile(FileSave, Song['artist'] + ' - '+ Song['title']);
Song.Free;

tarasian666, спасибо огромное за помощь !

пишет Render:

Всё это, так же просто выполняет htmloutput.
....
Мне кажется это самым простым и удобным вариантом, так как есть возможность отправки на фтп-сервер

Как запасной вариант так же подойдет. Спасибо.

Но, первый работает отлично. Полет нормальный.