Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2011, 17:19   #11
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

ошибка в этом
Код:
 SendMessage(win, WM_INFO_UPDATE, 7, DWORD(PAnsiChar(AnsiString(Copy(meta, p, Pos(';', String(meta)) - p - 1)))));
не может определить пишет ошибку, даже когда нажимаю ctnr+пробел там нету такого
cargo29 вне форума Ответить с цитированием
Старый 01.05.2011, 17:30   #12
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

Код:
const
  WM_INFO_UPDATE = WM_USER + 101;
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 01.05.2011, 17:35   #13
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

вот посмотри проект может что то в нем не так... написан на 2010
Вложения
Тип файла: rar 1.rar (137.0 Кб, 47 просмотров)
cargo29 вне форума Ответить с цитированием
Старый 01.05.2011, 17:41   #14
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

процедура че то не работает,


Код:
const
  WM_INFO_UPDATE = WM_USER + 101;



var
  Form2: TForm2;
  s:HSTREAM;
  d:DWORD;
  dir:string;
  ini:TIniFile;
implementation

{$R *.dfm}


procedure DoMeta();
var
  meta: PAnsiChar;
  p: Integer;
  win:HWND;
begin
  meta := BASS_ChannelGetTags(s, BASS_TAG_META);
  if (meta <> nil) then
  begin
    p := Pos('StreamTitle=', String(AnsiString(meta)));
    if (p = 0) then
      Exit;
    p := p + 13;

    // это посылка текста в окно с хэндлом в переменной WIN
    SendMessage(win, WM_INFO_UPDATE, 7, DWORD(PAnsiChar(AnsiString(Copy(meta, p, Pos(';', String(meta)) - p - 1)))));
  end;
end;





procedure TForm2.Button1Click(Sender: TObject);
begin
try
if ComboBox1.ItemIndex=1 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://skycast.su:2007/2420'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=0 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://www.zaycev.fm:9001/ZaycevFM(96)'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=2 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://205.188.215.226:8004'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=3 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://w01-cn01.akadostream.ru:8000/radioyunost128.mp3'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=4 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://stream.loveradio.ru:8000/loveradio_high.mp3'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=5 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://207.200.96.229:8030/'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=6 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('mms://broadcast01.station.ru/maximum'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=7 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://scfire-ntc-aa03.stream.aol.com/stream/1025'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=8 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://mms.online.ru/v5_1_128'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=9 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('mms://eu1.101.ru/v1_1_128?st='),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=10 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://mp3.radioultra.ru/ultra-192'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=11 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://w02-cn01.akadostream.ru:8108/shanson128.mp3'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=12 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://217.10.44.210:8000/radioretro128.mp3'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
if ComboBox1.ItemIndex=13 then
begin
if s<>0 then
BASS_StreamFree(s);
s:=BASS_StreamCreateURL(PansiChar('http://217.170.67.77/radiohit'),0, 0,nil,0);
BASS_ChannelPlay(s, false);
end;
DoMeta();
except
exit;
end;
end;
cargo29 вне форума Ответить с цитированием
Старый 01.05.2011, 17:49   #15
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

вот полностью рабочий пример:
Вложения
Тип файла: zip bass_netradio_src.zip (107.8 Кб, 157 просмотров)
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 31.05.2011, 15:56   #16
artsss
 
Регистрация: 23.05.2010
Сообщений: 3
По умолчанию

не могу вывести название трека...кто поздскажет?
artsss вне форума Ответить с цитированием
Старый 06.10.2011, 15:35   #17
Ahmund
Пользователь
 
Регистрация: 06.10.2011
Сообщений: 13
По умолчанию

Доброе время суток, нехотел создавать еще одну ветку онлайн радио с помощю библиотеки bass.dll, их и так тут полно. Возникла проблема воспроизведения потока, весе ветки на этом форуме и на других прочитал, гугл обрыскал так и ненашол решения.
Вот код для воспроизвдения:
PHP код:
procedure TForm1.Button11Click(SenderTObject);
var
 
chancardinal;
 
url:AnsiString;
begin

  BASS_Init
(-1441000Handlenil);
  
BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST1);  

url:= 'http://www.radioparadise.com/musiclinks/rp_32.m3u';
  
chan := BASS_StreamCreateURL(PChar (url), 00nil0);
    
BASS_ChannelPlay(chanFALSE);
    if 
chan 0 then
 begin
   ShowMessage
('Нет соединения с сервером!');
   Exit;
end;
end
формат pl проигрывает нормально, формат m3u и http://85.236.14.36:8000 не воспроизводит не понятно почему. Пробовал беблиотеку менять вписывать адрес напрямую без переменой :
PHP код:
BASS_StreamCreateURL('http://www.radioparadise.com/musiclinks/rp_32.m3u'00nil0); 
Всеравно не воспроизводится поток.
И еще если пишу PAnsiChar выдает ошибку:E2010 Incompatible types: 'AnsiChar' and 'Char' если же пишу PChar, все нормально програма запускается но поток всеравно невоспроизводит.
Что может быть? в чем проблема? может кто сталкивался с таким.
Выкладываю исходник:]
Ahmund вне форума Ответить с цитированием
Старый 06.10.2011, 16:23   #18
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

Цитата:
http://85.236.14.36:8000 не воспроизводит не понятно почему
у меня, к примеру, данный адрес не пингуется ...либо он временно не доступен, либо загнулся.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 06.10.2011, 16:33   #19
Ahmund
Пользователь
 
Регистрация: 06.10.2011
Сообщений: 13
По умолчанию

Это я пример просто привел, адрес придуманый. Что можете сказать по проге?
Ahmund вне форума Ответить с цитированием
Старый 07.10.2011, 11:22   #20
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

хм, оригинал, написать адрес с потолка и писать потом, что не работает . У меня нет времени на шуточки, ваш пример смотреть не буду, а приведу свой, у меня все работает
Вложения
Тип файла: txt bass_online_radio.txt (10.5 Кб, 246 просмотров)
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
BASS.dll интернет радио codermoder Мультимедиа в Delphi 5 10.11.2010 18:13
bass.dll запись радио Virus191288 Мультимедиа в Delphi 2 24.12.2009 19:49
bass.dll larry Общие вопросы C/C++ 1 09.11.2009 13:23
Ошибка при выхове функций Bass.dll из другой DLL SalasAndriy Общие вопросы Delphi 7 21.10.2009 23:36
bass.dll и радио km-msk Работа с сетью в Delphi 0 13.08.2009 01:55