Avatar billede kroning Nybegynder
16. januar 2006 - 09:53 Der er 16 kommentarer og
1 løsning

Modtag asx stream

Det har været oppe før men jeg har ikke kunne få det til at virke, men hvordan afspiller man asx stream som f.eks.:
http://www.nwrweb.com/player/asx/427.asx
Bruger Delphi 7 proff og winXP
Avatar billede psycosoft-funware Nybegynder
16. januar 2006 - 17:04 #1
du kunne jo installere windows media player Active-X plugin... :-)
Avatar billede kroning Nybegynder
16. januar 2006 - 17:41 #2
Har prøvet, men det er noget med at det ikke virker på winXP.
Avatar billede psycosoft-funware Nybegynder
17. januar 2006 - 15:20 #3
jeg kører win xp pro + sp2 og delphi 7 enterprise.... har ingen problemer... :-)
Avatar billede kroning Nybegynder
17. januar 2006 - 18:23 #4
Jeg har fået det til at virke, det var åbenbart et spørgsmål om at vælge den rigtige windows media player ActiveX. Hvilken en bruger du? Og smider du et svar.

P.S. Jeg har smidt en tidlig beta version af det program jeg er ved at lave her, hvis nogen skulle have lyst til at beta teste :), og ja inden nogen fortæller mig det så har jeg hugget hele radio listen fra et andet program :)
http://www.kroning.dk/Radio.zip
Avatar billede psycosoft-funware Nybegynder
17. januar 2006 - 19:32 #5
jeg bruger den media player det giver det nyeste skin (WMP 8, 9, 10) kommer an på hvad der er installeret på brugerens comp.

har lige kigget på på din "Radio Station Grabber", ser rigtig godt ud, men der mangler bare en knap der afbryder forbindelsen - eller en timeout. :-)

hvis det er, kan jeg godt hjælpe deig med at implementere en optager del...

/FunteX! :D
Avatar billede kroning Nybegynder
17. januar 2006 - 20:01 #6
"der afbryder forbindelsen - eller en timeout." hvad mener du med det?
Avatar billede psycosoft-funware Nybegynder
18. januar 2006 - 10:24 #7
da jeg ville høre hard rock, under diverse. står der bare forbinder i status baren.

så hvis det ikke lykkes at forbinde til en server efter f.eks. 1 min, afbryder den forbindelsen. :-)

/FunteX! :D
Avatar billede kroning Nybegynder
18. januar 2006 - 16:58 #8
jowjow men nu er det jo også kun en 0.1 beta, har jo kun brugt et par timer på det :-)
Avatar billede dilling-hansen Nybegynder
18. januar 2006 - 20:56 #9
kroning>> masters of hardcore radio =
http://84.244.180.25:9030
http://84.244.180.24:9020
http://84.244.180.26:9040
:-D

Jeg har rodet lidt med ini filer selv... men hvordan får du den til at henta data ind, uden du skriver præcis hvad for data den skal hente...

jeg tilføjede i kanaler.ini:

[Masters Of Hardcore 1]
Gruppe=Hardcore
Høj=http://84.244.180.25:9030
Lav=http://84.244.180.25:9030
[Masters Of Hardcore 2]
Gruppe=Hardcore
Høj=http://84.244.180.24:9020
Lav=http://84.244.180.24:9020
[Masters Of Hardcore 3]
Gruppe=Hardcore
Høj=http://84.244.180.26:9040
Lav=http://84.244.180.26:9040

Hvordan kan den selv finde ud af at jeg har tilføjet en ny gruppe og sådan  :-s

//Martin
Avatar billede kroning Nybegynder
18. januar 2006 - 22:43 #10
Nu er det ikke et særlig godt design af ini filen jeg har valgt så det bliver lavet om sådan at alle kanaler i en gruppe kommer under en sektion med det gruppenavn, det vil så gøre at man let kan sortere både grupper og kanaler som man lyster.
Men ellers her er koden der bruges i øjeblikket, Kanaler er en TInifile som indeholder Kanaler.ini. Der er så ikke ret meget af denne kode der kan bruges når jeg laver ini filen om.

procedure TMainForm.HentData;
var
    List,Kanal : TStringList;
  i    : integer;
  TreeNode : TTreeNode;

function FindTreeNode(tekst : string) : TTreeNode;
var
    i    : integer;
begin
    for i:=0 to TreeView.Items.Count-1 do
      if TreeView.Items[i].Text=tekst then
    begin
        result:=TreeView.Items[i];
      exit;
    end;
    result:=nil;
end;

begin
    TreeView.Items.BeginUpdate;
    TreeView.Items.Clear;
  List:=TStringList.Create;
    Kanal:=TStringList.Create;

  Kanaler.ReadSections(List);

    for i:=0 to List.Count-1 do
  begin
      Kanaler.ReadSectionValues(List[i],Kanal);
        TreeNode:=FindTreeNode(Kanal.Values['Gruppe']);
    if TreeNode=nil then
            TreeNode:=TreeView.Items.Add(nil,Kanal.Values['Gruppe']);


        TreeNode:=TreeView.Items.AddChild(TreeNode,List[i]);
    TreeView.Items.AddChild(TreeNode,'Høj: '+Kanal.Values['Høj']);
    TreeView.Items.AddChild(TreeNode,'Lav: '+Kanal.Values['Lav']);
  end;

    TreeView.Items.EndUpdate;

  List.Free;
  Kanal.Free;
end;
Avatar billede dilling-hansen Nybegynder
19. januar 2006 - 08:34 #11
Mange tak :-) det hjalp en del på forståelsen.
Vil du ikke lægge et link ud her når du har lavet det færdigt :D
Avatar billede kroning Nybegynder
20. januar 2006 - 09:05 #12
Så er version 0.2 beta klar, denne version kan selv give besked når der kommer nye opdateringer, højre klik i listen for at rette i denne. Kan findes her:
www.kroning.dk > Radio player
Avatar billede dilling-hansen Nybegynder
20. januar 2006 - 09:17 #13
Jeg synes virkelig det er smart lavet ;) det kommer jeg nok til at bruge fremover til at hører radio...
Der står man skal skrive til dig hvis man har en ny radio... det har jeg ikke :p men Masters of Hardcore radioen virker ikke: http://84.244.180.25:9030 prv den i stedet :)
Avatar billede kroning Nybegynder
20. januar 2006 - 16:47 #14
Tak for det, det er rettet.
Avatar billede psycosoft-funware Nybegynder
21. januar 2006 - 14:41 #15
hey kroning - hvis du vil implementere optagelse af stationer m.m. i dit program, så kan jeg anbefale ACS (Audio Components Suite) det er open source og tilbyder mange funktioner, f.eks optagelse til Ogg Vorbis m.m -> http://www.mtu-net.ru/aborovsky/acs/

/FunteX! :-)
Avatar billede kroning Nybegynder
21. januar 2006 - 15:28 #16
Det lyder godt det vil jeg kikke på. Tak for det.
Avatar billede psycosoft-funware Nybegynder
22. januar 2006 - 18:43 #17
det var da så lidt kroning :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester