Rippen von Internetradios

Für allgemeine Fragen zur Programmierung mit PureBasic.
Benutzeravatar
purebas
Beiträge: 127
Registriert: 11.03.2008 23:59
Wohnort: München

Rippen von Internetradios

Beitrag von purebas »

Ich suche Funktionen zum Rippen von Internetradios.
Ideal wäre am Ende eine DLL, die alle wichtigen Funktionen beinhaltet.
sibru
Beiträge: 265
Registriert: 15.09.2004 18:11
Wohnort: hamburg

Beitrag von sibru »

Na, mit der SuFu "RadioStream" gibt´s u.A. folgendes Ergebniss:

Code: Alles auswählen

#URL="http://server4.digital-webstream.de:10885"

Enumeration
  #MyWindow
  #WebGadget
EndEnumeration

OpenWindow(#MyWindow,0,0,0,0,"Radio",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(#MyWindow))

;erstmal HTML-Steuerung aufbauen:
Html.s
Html + "<object id='VIDEO' width='0' height='0'"
Html + "style='position:absolute; left:0; top:0;'"
Html + "classid='clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6'" ;normal video
Html + "type='application/x-oleobject'>"
Html + "<param name='URL' value='"+#URL+"'>"
;  Html + "<param name='volume' value='" + Str(GetGadgetState(#Volume)) + "'>"
Html + "<param name='StretchToFit' value='true'>"
Html + "<param name='UiMode' value='mini'>"
Html + "<param name='EnableContextMenu' value='false'>"
Html + "</object>"

WebGadget(#WebGadget,0,0,0,0,"about:blank",#PB_Web_Mozilla) ;gadget aufbauen...

While GetGadgetAttribute(#WebGadget, #PB_Web_Busy) <> 0
  While WindowEvent() : Delay(0) : Wend
Wend

SetGadgetItemText(#WebGadget, #PB_Web_HtmlCode, Html)
Bild Bild
Benutzeravatar
purebas
Beiträge: 127
Registriert: 11.03.2008 23:59
Wohnort: München

Beitrag von purebas »

Ich habe eine DLL gefunden, die wahrscheinlich die benötigten Funktionen hergibt.

http://www.un4seen.com/bass.html
Es existiert auch eine PureBas API.

Gibt es Jemanden der ein Beispiel-Programm erstellen kann, welches einen Stream (unverändert) abspeichert?
Antworten