Ĺadny brzuch
Witam.
Moje pytanie brzmi jak w temacie, czyli: "Jak korzystając z FMOD w wersji 4.0x sprawdzić nazwę (wykonawca + tytuł) utworu, który jest właśnie odtwarzany, jeżeli źródłem pliku jest stacja radiowa w systemie SHOUTcast?"
Mam nadzieję, że ktoś na tym forum używa FMOD'a, bo z tego co widzę, to większość korzysta z BASS'a :(
Thx :)
uses fmod, fmodtypes; var sys, str, ch:pointer; procedure TForm1.FormCreate(Sender: TObject); begin FMOD_System_Create(sys); FMOD_System_Init(sys,64,FMOD_INIT_NORMAL,nil); FMOD_System_SetStreamBufferSize(sys,100,FMOD_TIMEUNIT_RAWBYTES); end; procedure TForm1.Button1Click(Sender: TObject); var num, up:integer; tag:fmod_tag; begin FMOD_System_CreateSound(sys,'http://213.251.137.32:8002',FMOD_HARDWARE or FMOD_2D or FMOD_CREATESTREAM {or FMOD_NONBLOCKING},nil,str); FMOD_System_PlaySound(sys,FMOD_CHANNEL_FREE,str,false,ch); FMOD_Sound_GetNumTags(str,num,up); FMOD_Sound_GetTag(str,nil,-1,tag); for up:=0 to num-1 do begin FMOD_Sound_GetTag(str,nil,up,tag); if tag.datatype = FMOD_TAGDATATYPE_STRING then Memo1.Lines.Add(tag.name+' '+pchar(tag.data)); end; end;a teraz? :D
Użytkownik Cyrkiel edytował ten post 05 listopad 2005, 20:06
Niestety kod jest całkowicie nie przydatny ponieważ jest on do wersji 3.7x, a mi jest potrzebny do 4.0x. Różnice między tymi 2 wersjami są o tyle duże, że nie da się zmienić podanego kodu na odpowiedni :(
Niestety kod jest całkowicie nie przydatny ponieważ jest on do wersji 3.7x, a mi jest potrzebny do 4.0x. Różnice między tymi 2 wersjami są o tyle duże, że nie da się zmienić podanego kodu na odpowiedni :( Już masz :)
Dzieki :) Teraz działa :)
I już wiem co źle robiłem i czemu mi nie działało wcześniej :)
Jeszcze raz thx :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Moje pytanie brzmi jak w temacie, czyli: "Jak korzystając z FMOD w wersji 4.0x sprawdzić nazwę (wykonawca + tytuł) utworu, który jest właśnie odtwarzany, jeżeli źródłem pliku jest stacja radiowa w systemie SHOUTcast?"
Mam nadzieję, że ktoś na tym forum używa FMOD'a, bo z tego co widzę, to większość korzysta z BASS'a :(
Thx :)
uses fmod, fmodtypes; var sys, str, ch:pointer; procedure TForm1.FormCreate(Sender: TObject); begin FMOD_System_Create(sys); FMOD_System_Init(sys,64,FMOD_INIT_NORMAL,nil); FMOD_System_SetStreamBufferSize(sys,100,FMOD_TIMEUNIT_RAWBYTES); end; procedure TForm1.Button1Click(Sender: TObject); var num, up:integer; tag:fmod_tag; begin FMOD_System_CreateSound(sys,'http://213.251.137.32:8002',FMOD_HARDWARE or FMOD_2D or FMOD_CREATESTREAM {or FMOD_NONBLOCKING},nil,str); FMOD_System_PlaySound(sys,FMOD_CHANNEL_FREE,str,false,ch); FMOD_Sound_GetNumTags(str,num,up); FMOD_Sound_GetTag(str,nil,-1,tag); for up:=0 to num-1 do begin FMOD_Sound_GetTag(str,nil,up,tag); if tag.datatype = FMOD_TAGDATATYPE_STRING then Memo1.Lines.Add(tag.name+' '+pchar(tag.data)); end; end;a teraz? :D
Użytkownik Cyrkiel edytował ten post 05 listopad 2005, 20:06
Niestety kod jest całkowicie nie przydatny ponieważ jest on do wersji 3.7x, a mi jest potrzebny do 4.0x. Różnice między tymi 2 wersjami są o tyle duże, że nie da się zmienić podanego kodu na odpowiedni :(
Niestety kod jest całkowicie nie przydatny ponieważ jest on do wersji 3.7x, a mi jest potrzebny do 4.0x. Różnice między tymi 2 wersjami są o tyle duże, że nie da się zmienić podanego kodu na odpowiedni :( Już masz :)
Dzieki :) Teraz działa :)
I już wiem co źle robiłem i czemu mi nie działało wcześniej :)
Jeszcze raz thx :)