Netradio

Ok, jeg har hentet basswma.dll, men hvad er næste trin?

tilføj basswma til dine uses

Channel := BASS_WMA_StreamCreateFile(FALSE, PChar('link her')0, 0, 0);
BASS_ChannelPlay(Channel, true);

tilføj basswma til dine uses

Channel := BASS_WMA_StreamCreateFile(FALSE, PChar('link her')0, 0, 0);
BASS_ChannelPlay(Channel, true);

Der hoppede kæden af.. hvad skal Channel være?

Kode 

uses
bass,basswma

var 
channel: dword; 


procedure TForm1.FormCreate(Sender: TObject);
begin
  if not BASS_Init(1, 44100, 0, Handle, nil) then
  begin
    Showmessage('Can´t initialize device');
    Halt;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Channel := BASS_WMA_StreamCreateFile(FALSE, PChar('http://dix.media.webpartner.dk/voice128'),0, 0, 0); 0
  BASS_ChannelPlay(Channel, true);
end;

Kanon, så virker det. Har virkelig puklet med dette problem i et godt stykke tid! Læg et svar, og jeg skal med glæde give pointene.

[Redigeret d. 18/07-05 21:51:34 af Benni]

Ok, tak for det.. hvordan kan det være, at koden ikke virker ved andre links?