Включить сервер можно тут "Настройки - Сервис - Информация - HTTP сервер"
Один из способов отображения названия при загрузке страницы - использование SSI + СGI.
Для работы нужен HTTP сервер например Apache 1.x или 2.x (c конфигурацией, которая
включает использование SSI + Perl) + Сам ActivePerl интерпретатор
http://www.activestate.com/Products/Dow ... ActivePerl
Допустим, у вас сервер Player подключен на порт 8181.
Предполагаем в примере, что Apache сервер работает на порту 80.
1. В каталоге www, где установлен RADIO Player Pro, создаем файл (songname.htm).
Редактируем, чтобы там была только строка
Код: Выделить всё
[SongTitle]
Для правильного отображения браузерами лучше добавить такое содержимое.
(Для использования скриптом - этого не требуется)
Код: Выделить всё
<html>
<META content="text/html; charset=windows-1251" http-equiv=Content-Type>
[SongTitle]
</html>
3. Так же на сервере создаем скрипт test.pl, который берет название из Player.
Для локального сервера запускаем
http://localhost/test.shtml
Для стороннего вместо localhost пишем IP адрес сервера.
test.shtml
Код: Выделить всё
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<title>Текущий файл</title>
</head>
<body>
<p>Текущий файл =
<!--#include virtual="test.pl" -->
</p>
</body>
</html>
В случае если вебсервер находится на другом компьютере в скрипте вместо localhost нужно указать IP адрес компьютера, где Player.
Код: Выделить всё
#!/usr/bin/perl
require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://localhost:8181/songname.htm');
print ("Content-Type: text/html\n\n");
if ($response->is_success) {
print $response->content;
}
else {
print ("Error loading");
}