AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Netradio

Ein Thema von JWeis · begonnen am 11. Jan 2006 · letzter Beitrag vom 4. Jul 2010
Antwort Antwort
Benutzerbild von JWeis
JWeis

Registriert seit: 23. Aug 2005
Ort: Homburg
274 Beiträge
 
Delphi 7 Professional
 
#1

Netradio

  Alt 11. Jan 2006, 08:50
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
Johannes
Der Pfad der Gerechten ist zu beiden Seiten gesäumt mit Freveleien der Selbstsüchtigen und der Tyrannei böser Männer. Gesegnet sei der, der im Namen der Barmherzigkeit und des guten Willens die Schwachen durch das Tal der Dunkelheit geleitet.
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#2

Re: Netradio

  Alt 11. Jan 2006, 09:03
So:

Delphi-Quellcode:
radiosend := Edit1.Text;
...
cthread := BeginThread(nil, 0, @OpenURL, PChar(radiosend), 0, ThreadId);
[/quote]
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von JWeis
JWeis

Registriert seit: 23. Aug 2005
Ort: Homburg
274 Beiträge
 
Delphi 7 Professional
 
#3

Re: Netradio

  Alt 11. Jan 2006, 09:06
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.
Johannes
Der Pfad der Gerechten ist zu beiden Seiten gesäumt mit Freveleien der Selbstsüchtigen und der Tyrannei böser Männer. Gesegnet sei der, der im Namen der Barmherzigkeit und des guten Willens die Schwachen durch das Tal der Dunkelheit geleitet.
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#4

Re: Netradio

  Alt 11. Jan 2006, 09:26
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;
Delphi-Referenz durchsuchenBeginThread
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von JWeis
JWeis

Registriert seit: 23. Aug 2005
Ort: Homburg
274 Beiträge
 
Delphi 7 Professional
 
#5

Re: Netradio

  Alt 11. Jan 2006, 09:35
habe gerade festgestellt das es mit manchen urls geht kann es vieleicht daran hängen das ich nur bestimmte urls nehmen kann??
Johannes
Der Pfad der Gerechten ist zu beiden Seiten gesäumt mit Freveleien der Selbstsüchtigen und der Tyrannei böser Männer. Gesegnet sei der, der im Namen der Barmherzigkeit und des guten Willens die Schwachen durch das Tal der Dunkelheit geleitet.
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#6

Re: Netradio

  Alt 11. Jan 2006, 09:53
Wenn Du gerade mit dem Beispiel von der Bass.Dll arbeitest kannst du mp3-Streams aus dem Netz empfangen.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von JWeis
JWeis

Registriert seit: 23. Aug 2005
Ort: Homburg
274 Beiträge
 
Delphi 7 Professional
 
#7

Re: Netradio

  Alt 11. Jan 2006, 10:01
ja das weis ich nur mit manchen gehts nicht und mit manchen gehts. das verwirrt mich etwas
Johannes
Der Pfad der Gerechten ist zu beiden Seiten gesäumt mit Freveleien der Selbstsüchtigen und der Tyrannei böser Männer. Gesegnet sei der, der im Namen der Barmherzigkeit und des guten Willens die Schwachen durch das Tal der Dunkelheit geleitet.
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#8

AW: Netradio

  Alt 4. Jul 2010, 18:50
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!
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz