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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2011, 09:49   #1
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию Не загружает впеременную

вот код

Код:
procedure TForm5.Button1Click(Sender: TObject);
begin
i:=ListBox2.ItemIndex;
if stream<>0 then
BASS_StreamFree(stream);
//
stream:=BASS_StreamCreateURL(PansiChar(ListBox2.Items[i]), 0,0,nil,0);
sleep(100);
if stream=0 then
showmessage('не могу загрузить');
Timer2.Enabled:=true;
m:=StrPas(BASS_ChannelGetTags(stream, BASS_TAG_META));
p:=Pos('StreamTitle=', m);
m:=Copy(m, p+13, Pos(';', m) - p-14);
Label1.Caption:=m;
Label2.Caption:=strpas(BASS_ChannelGetTags(stream, BASS_ATTRIB_MUSIC_SPEED));
Label3.Caption:=strpas(BASS_ChannelGetTags(stream, BASS_TAG_HTTP));
BASS_ChannelPlay(stream,false);
end;

не может загрузить в stream

постоянно выводиться это сообщение showmessage('не могу загрузить');
cargo29 вне форума Ответить с цитированием
Старый 05.05.2011, 09:55   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Делфи Unicode'изированная?
если да, то либо используйте правильное приведение к типу PAnsiChar или же используйте флаг BASS_UNICODE(вроде как) и просто приведение к PChar
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 05.05.2011, 10:18   #3
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

Цитата:
Сообщение от Пепел Феникса Посмотреть сообщение
Делфи Unicode'изированная?
если да, то либо используйте правильное приведение к типу PAnsiChar или же используйте флаг BASS_UNICODE(вроде как) и просто приведение к PChar
понимаешь оно работало так в другом приложении, библиотека та же самая, делфи 2010 BASS_UNICODE куда писать тут даже не знаю. пробовал каждый 0 заменить на это, все равно так же работает, а если прописать ссылку в место листбокса2 тогда загружает и то не всегда... (((
cargo29 вне форума Ответить с цитированием
Старый 05.05.2011, 10:23   #4
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

вот код плеера с той же библиотекой работает
Код:
var
  Form3: TForm3;
  track:Boolean;
  stream:HSTREAM;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute=false then exit else   begin
Label1.Caption:=ExtractFileName(OpenDialog1.FileName);
ScrollBar1.Position:=0;
end;

end;

procedure TForm3.Button2Click(Sender: TObject);
begin
if stream<>0 then
BASS_StreamFree(stream);
stream:=BASS_StreamCreateFile(false,PChar(OpenDialog1.FileName), 0,0,BASS_UNICODE);
ScrollBar1.Max:=BASS_ChannelGetLength(stream,0);

BASS_ChannelPlay(stream, false);

end;

procedure TForm3.Button4Click(Sender: TObject);
begin
BASS_ChannelStop(stream);
BASS_ChannelSetPosition(stream,0,0);
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
BASS_Free;
end;

procedure TForm3.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
if ScrollCode=scEndScroll then  begin
track:=false;
BASS_ChannelSetPosition(stream, ScrollBar1.Position, 0) end else track:=true;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
ScrollBar1.Position:=BASS_ChannelGetPosition(stream, 0);
end;

end.
cargo29 вне форума Ответить с цитированием
Старый 05.05.2011, 10:29   #5
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

попробуйте использовать корректное преобразование:
PAnsiChar(AnsiString(ListBox.Items[i]))
говорят что эта функция не поддерживает Unicode напрямую.
Цитата:
вот код плеера с той же библиотекой работает
а там где то есть вызов BASS_StreamCreateURL?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 05.05.2011, 10:31   #6
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

все разобрался

знаешь в чем проблема была???

Код:
stream:=BASS_StreamCreateURL(PansiChar(ListBox2.Items[i]), 0, BASS_UNICODE,nil,nil);

а было

Код:
s:=BASS_StreamCreateURL(PansiChar(ListBox2.Items[i]), 0, BASS_UNICODE,nil,0);
изменил 0 на nil b ,bass_unicode дописал заработало... (((( ппц как работает 2010, 7 легче
cargo29 вне форума Ответить с цитированием
Старый 05.05.2011, 10:35   #7
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

неужели Д2010 допустила компиляцию с нулем вместо nil?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 05.05.2011, 10:37   #8
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

Да запускало, ))) а как можно сделать следующее, библиотеку БАСС в файл ресурс, и потом уже из него подгружать саму библиотеку , что бы она не валялась возле программы
cargo29 вне форума Ответить с цитированием
Старый 05.05.2011, 10:43   #9
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

вот еще ошибка, страная , радио зайцев воспроизводит хорошо

http://www.zaycev.fm:9001/ZaycevFM(96)

а вот Loveradio одну секунду пикнет и все замолкает

http://stream.loveradio.ru:8000/loveradio_high.mp3
cargo29 вне форума Ответить с цитированием
Старый 05.05.2011, 16:22   #10
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

Изображения
Тип файла: jpg Безымянный.JPG (41.6 Кб, 66 просмотров)
cargo29 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Мемо загружает коряво... MyLastHit Общие вопросы Delphi 7 22.12.2010 15:40
Узнать на сколько загружает процессор какая-то программа.. Человек_Борща Общие вопросы Delphi 7 19.09.2010 13:30
NMPOP3 не загружает большие файлы D@rkD@iver Работа с сетью в Delphi 0 24.02.2010 11:24
Поток загружает проц на 50% LSergM Общие вопросы Delphi 2 22.10.2009 18:37
idHTTP не загружает всю страницу Terikon Работа с сетью в Delphi 2 28.03.2009 21:57