MP3-Player

[Blackskyliner]

Hi ich habe mal entschlossen meinen MP3-Player (Der auch seit der neusten Version mehr als MP3s abspielen kann..) hier mal in das Feedback Forum zu stellen. Ich würde von euch gerne wissen was man denn noch reinmachen sollte, was man besser machen köännte oder ähnliches. Source-Code kann man auf Anfrage erhalten (Nur um zu Helfen oder zu Lernen) der Source-Code ist ein bisschen naja halt von em Newbie (mir) gemacht und drum rund 8xx zeilen groß oder so...

Danke an alle die mir ein Feedback geben, ob gut oder schlecht.


Hier die URL zu meinen Projekten:
http://blackskyliner.cybton.com/user/PB_Projects/

[roherter]

Auf den ersten blick ganz gut aber ich würde den Lautstärkeregler anders machen oder zumindest beschriften ist nicht einfach zu erkennen das es ein Lautstärkeregler ist!

[Blackskyliner]

Joar ^.^ hatte ich mir auch gedacht wusste aber nicht wies anders machen soll..

[benpicco]

Ich würde anstatt der Pfadangabe lieber die ID3 tags hinschreiben, gab´s da nicht auch mal ne Library für sowas?

[Blackskyliner]

Öhm ja.. hab ich mir auch überlegt wusste aber nicht wie, da muss ich mal in PureArea.net gucken ob ich da ne passende U-LIB finde.

Thx für die Anregungen. Sonst noch ideen?

[AndyX]

Mit FMOD kannst du die MP3-Tags auslesen. Außerdem hat es viele erweiterte Funktionen, ist sehr CPU-Schonend usw.... ich glaube auf PureArea gabs da doch eh mal so nen Wrapper oder sowas...

[nicolaus]

ich hatte mal ne ID3 tag lib geschrieben die sollte es auch bei purearea im showcase geben.

[Blackskyliner]

wird mitlerweile mit folgender Proc. gemacht:

Code: Alles auswählen

Procedure.s ReadMP3Tag(tag$,fileMP3TAG$)
  If ReadFile(0,fileMP3TAG$)    ; Pfad ggf. anpassen !!!
    
    *memmp3tag = AllocateMemory(128) ; 128 byte reservieren 
    MemPointerMP3Tag=*memmp3tag
    FileSeek(Lof()-128) 
    ReadData(MemPointerMP3Tag, 128) ; die letzten 128 byte der Datei auslesen 
    
    header$    = PeekS(MemPointerMP3Tag, 3) 
    
    If header$ = "TAG"                               ;  3 Zeichen 
      songtitle$ = Trim(PeekS(MemPointerMP3Tag +   3,30)) ; 30 Zeichen 
      artist$    = Trim(PeekS(MemPointerMP3Tag +  33,30)) ; 30 Zeichen 
      album$     = Trim(PeekS(MemPointerMP3Tag +  63,30)) ; 30 Zeichen 
      year$      = Trim(PeekS(MemPointerMP3Tag +  93, 4)) ;  4 Zeichen 
      comment$   = Trim(PeekS(MemPointerMP3Tag +  97,30)) ; 30 Zeichen 
      genre$      = Str(PeekB(MemPointerMP3Tag + 127))          ;  1 Zeichen 
    EndIf 
  EndIf 
  If tag$ = "titel"
    ProcedureReturn songtitle$
  EndIf 
  If tag$ = "artist"
    If artist$
      ProcedureReturn artist$
    EndIf
  EndIf
  If tag$ = "album"
    If album$
      ProcedureReturn album$
    EndIf
  EndIf
  If tag$ = "year"
    If year$
      ProcedureReturn year$
    EndIf
  EndIf
  If tag$ = "comment"
    If comment$
      ProcedureReturn comment$
    EndIf
  EndIf
  If tag$ = "genre"
    If genre$
      ProcedureReturn genre$
    EndIf
  EndIf
EndProcedure

Muss mich mal mit der HP beeilen damit ich mal wieder was onlinestellen kann

EDIT: und das mit FMOD...... welche von den vielen bei fmod.org muss ich mir für einen rundum support holen (win,linx,mac) ?? oder mussi da nu compilerifs setzen oder so..?

[zigapeda]

Verzeichniss: /cdcv2/www1/Blackskyliner/html/user/PB_Projects

Host-Adresse: blackskyliner.cybton.com:80

was muss ich da dann machen?
sollten da nicht irgendwo die projekte sein?

[Blackskyliner]

>
>Verzeichniss: /cdcv2/www1/Blackskyliner/html/user/PB_Projects
>
>Host-Adresse: blackskyliner.cybton.com:80
>
>was muss ich da dann machen?
>sollten da nicht irgendwo die projekte sein?

>> Muss mich mal mit der HP beeilen damit ich mal wieder was onlinestellen kann