Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Сервер радио

Ответить
Настройки темы
[решено] Сервер радио

Аватара для morgan1991

Старожил


Сообщения: 398
Благодарности: 13

Профиль | Сайт | Отправить PM | Цитировать

Здравствуйте!
Написал вот такой простенький скрипт:
Код: Выделить весь код
Global $Ip = @IPAddress1
Global $Port = 8000
Global $MainSocket, $ConnectedSocket = -1, $Temp = 0, $File
Global $head = "HTTP/1.0 200 OK" & @CRLF
$head &= "Content-Type: audio/mpeg" & @CRLF
$head &= "icy-br:192" & @CRLF
$head &= "ice-audio-info: ice-samplerate=44100;ice-bitrate=192;ice-channels=2" & @CRLF
$head &= "icy-br:192" & @CRLF
$head &= "icy-name:Test" & @CRLF
$head &= "icy-pub:0" & @CRLF
$head &= "icy-url:http://" & @IPAddress1 & @CRLF
$head &= "Server: Icecast 2.3.2" & @CRLF
$head &= "Cache-Control: no-cache" & @CRLF & @CRLF

TCPStartUp()

$MainSocket = TCPListen($Ip, $Port)
If $MainSocket = -1 Then Exit

While $ConnectedSocket = -1
    $ConnectedSocket = TCPAccept($MainSocket)
WEnd

While 1
    $recv = TCPRecv($ConnectedSocket, 4096)
    If $recv <> "" Then
        $Temp = 1
        ConsoleWrite($recv)
    EndIf
    If $recv = "" And $Temp = 1 Then ExitLoop
WEnd

TCPSend($ConnectedSocket, $head)
$File = FileOpen("Guf - Mutnie_Zamuti.mp3", 0)

While 1
    TCPSend($ConnectedSocket, FileRead($File, 4096))
    If @error Then
        Exit ShellExecute(@ScriptFullPath)
    EndIf
WEnd
Создаю файл test.m3u, в нём пишу http://my_ip:8000 запускаю в винампе всё отлично, но в остальных плеерах скрипт перезапускается несколько раз, благодоря этой строчке:
Код: Выделить весь код
TCPSend($ConnectedSocket, FileRead($File, 4096))
    If @error Then
        Exit ShellExecute(@ScriptFullPath)
    EndIf
После чего начинает играть музыка в плеере.
Подскажите пожалуйста в чём косяк?

-------
Хочу научиться писать драйвера на с++

Отправлено: 13:36, 08-02-2010

 

Новый участник


Сообщения: 47
Благодарности: 1

Профиль | Отправить PM | Цитировать

У меня чтото не работает вообще данный скрипт

Отправлено: 13:54, 08-02-2010 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для morgan1991

Старожил


Сообщения: 398
Благодарности: 13

Профиль | Сайт | Отправить PM | Цитировать

Hawk37, может из-за этого:
$File = FileOpen("Guf - Mutnie_Zamuti.mp3", 0)
????

Нужно в диррикторий скрипта кинуть mp3 файл

-------
Хочу научиться писать драйвера на с++

Отправлено: 14:05, 08-02-2010 | #3


Новый участник


Сообщения: 47
Благодарности: 1

Профиль | Отправить PM | Цитировать

прости я не силен в этом

Отправлено: 18:34, 08-02-2010 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Сервер радио

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - радио сервер??? PozitiF Другие серверные продукты 2 25-01-2009 07:26
AV/Multimedia - Радио по локалке Max Kelada Сетевые технологии 22 03-12-2008 13:00
Радио по сети ManHack Программное обеспечение Windows 2 16-06-2008 12:07
Радио в подъезде Master of Magic Хочу все знать 3 19-01-2008 11:14


« Предыдущая тема | Следующая тема »


 
Переход