Netradio

[JWeis]

Habe ein Problem!

So ich habe mir mal das Netradio beispiel der Bass.dll angeschaut und wollte es noch etwas erweitern und zwar mit einem edit feld in das man seine eigenen urls reinschreiben kann und dan hören kann.

Delphi-Quellcode:

radiosend:= Edit1.Text;
...
cthread := BeginThread(nil, 0, @OpenURL, pchar(radiosend), 0, ThreadId);

doch er will es nicht abspielen es kommt dann immer :

Code:

can't play the stream 
(error code: 2)

wenn ich die Url direkt im quellcode der vareablen zuweise funktioniert es:

Delphi-Quellcode:

radiosend:=  'http://streaming-3.antenne.de';
...
cthread := BeginThread(nil, 0, @OpenURL, pchar(radiosend), 0, ThreadId);

oder direkt

cthread := BeginThread(nil, 0, @OpenURL, pchar('http://streaming-3.antenne.de'), 0, ThreadId); kann mir vieleicht jemand helfen ich verzweifelle bald

[turboPASCAL]

So:

Delphi-Quellcode:

radiosend := Edit1.Text;
...
cthread := BeginThread(nil, 0, @OpenURL, PChar(radiosend), 0, ThreadId);

[/quote]

[JWeis]

das ist doch genau das was ich auch geschrieben habe oder ??

Zitat von turboPASCAL:

So:

Delphi-Quellcode:

radiosend := Edit1.Text;
...
cthread := BeginThread(nil, 0, @OpenURL, PChar(radiosend), 0, ThreadId);

aber das will nicht wie es soll es kommt dan immer der beschriebene error.

[turboPASCAL]

Ja, sorry das stimmt. Da war ich mit den Gedanken wo anders...

So sollte das aussehen:

Delphi-Quellcode:

type
  TThreadParams = record
    URL: String;
    ...
  end;
  PThreadParams = ^TThreadParams;

var
  ThreadParams: PThreadParams;
  ThreadID: Cardinal;

function ThreadFunction(p: PThreadParams): Integer;
var
  OpenUrl: String;
  ...
begin
  // Hier kommt das was der Thread machen soll
end;

procedure ...
begin
  New(ThreadParams);
  ThreadParams.URL:= EditX.Text;

  BeginThread(nil, 0, @ThreadFunction, ThreadParams, 0, ThreadID);
end;

BeginThread

[JWeis]

habe gerade festgestellt das es mit manchen urls geht kann es vieleicht daran hängen das ich nur bestimmte urls nehmen kann??

[turboPASCAL]

Wenn Du gerade mit dem Beispiel von der Bass.Dll arbeitest kannst du mp3-Streams aus dem Netz empfangen.

[JWeis]

ja das weis ich nur mit manchen gehts nicht und mit manchen gehts. das verwirrt mich etwas

[AlexII]

Hi,

darf ich das Thema hoch holen? Hab nämlich das selbe Problem wie im Post #1.
Kennt vllt jemand inzwischen eine Lösung?

Danke!