Seite 1 von 3

EAF-Player

Verfasst: 28.12.2006 23:55
von m0
Hallo zusammen!

Nachdem ich jetzt einige Zeit vor mich hin programmiert habe, und auch einige recht nervige Fragen gestellt habe möchte ich euch nun endlich mein kleines Projekt vorstellen: EAF-Player
Nun im grunde ist es nichts weiter als ein neuer Mediaplayer, wie ihn schon so mancher hier programmiert hat, nur glaube ich, dass dieser hier doch die ein oder andere ganz nützliche Funktion beinhaltet.
Also es wäre echt klasse, wenn einige von euch lust hätten ihn einmal zu testen.

Hier mal einige Funktionen im Überblick:
  • MP3,MP2,OGG,WAV, ASF,MPG,DivX,AVI,M3U,PLS,Webradio Support
  • Für Audiofiles 10-Band Equalizer mit 5 Presets +5 Benuzerdefinierte Presets
  • Für Audiofiles Echtzeiteffekte (Echo,Chorus,Flanger,Gargle,WavesReverb)
  • Für Audiofiles Analyzer VU-Meter und Bufferanzeige
  • Global Shortcuts
  • In die systray minimierbar
  • Sleepfunktion (mit Rechner-shutdown), Alarmfunktion
  • Playlist mit Drag&Drop
  • Fading
  • Cueing der Playlist durch doppelt-rechtsklick auf die Lieder (wie bei AmaroK)
  • Playlist suche
  • eigentlich die Funktion zur Verschlüsselung von files, jedoch habe ich noch keine passende Procedure gefunden, falls jemand eine hat bitte sagen!!
  • mid,xm,it,s3m,mod,rmi,sgt,fsb als neue Wiedergabeformate!
Ja ich denke das wars mal so grundliegend, einfach mal testen, ich freue mich um jede Art von feedback!

Link: http://www.momo-wagner.de/downloads/eaf-player.php
Für weitere Infos besucht auch meine Website
Bild
Bis dann
m0[/b]

Verfasst: 29.12.2006 01:35
von RSBasic
@m0
Ich habe dein Player getestet.
Ich sage nur Klasse :allright:
Außerdem finde ich die SpecialFX-Effekte vool cool, gutes Programm :allright:

Verfasst: 29.12.2006 09:43
von Leonhard
Ich find den Player super. Ich fand EQ am nützlichsten beim Testen.

Es werden zwar keine Midis unterstützt, aber ich hab trotzdem eins angeschaltet. Danach hat sich mein PC aufgehängt :-(. Da ich während dem Abspielen immer ein paar noten/takte aus der Midi hören konnte, nehme ich an, das der Player versucht hat, die Midi mit Efekten u. anderen dingen einzuladen. Bei Midi gibt es keine Ausgaben, die man mit Efekten darstellen kann also deaktivier alle Efekte und die Ausgabe in der oberen ausgabe bei Midis und du kannst diese auch zu den möglich abzuspielenden Audio-Formaten dazu schreiben :-).

Verfasst: 29.12.2006 10:29
von Marvin
Ich hab dein Prog zwar noch nicht getestet, sieht aber sehr gut aus! :allright:

Hier ein paar Procedure zur Verschlüsselung:

Code: Alles auswählen

Procedure XORFastCryptMemory(*mem,len,Password.s,callback)
  pass=0
  For i=1 To Len(Password)
    pass=pass!Asc(Mid(Password,i,1))
  Next
  For i=0 To len-1
    PokeB(*mem+i,PeekB(*mem+i)!pass)
    If Round(i/10240,0)=Round(i/10240,1)
      CallFunctionFast(callback,i,len)
    EndIf
  Next
  CallFunctionFast(callback,-1,-1)
EndProcedure
Procedure XORSureCryptMemory(*mem,len,Password.s,callback)
  For x=0 To len-1
    byte.b=PeekB(*mem+x)
    For i=1 To Len(Password)
      byte=byte!Asc(Mid(Password,i,1))
    Next
    PokeB(*mem+x,byte)
    If Round(x/10240,0)=Round(x/10240,1)
      CallFunctionFast(callback,x,len)
    EndIf
  Next
  CallFunctionFast(callback,-1,-1)
EndProcedure
Procedure PureAreaCryptMemory(*Address,length,Password.s,callback)
  Password=LSet(Password,32,"X")
  Keybyte.q=Asc(Mid(Password,1,1))
  old=1
  For mid=2 To 32
    asc=(Asc(Mid(Password,mid,1)))<<(mid-1)
    Keybyte=Keybyte+asc
  Next
  passkey=Keybyte
  For a.l=0 To length-1
    byte.b=PeekB(*Address+a)
    c.b=Tan(passkey*a)*255
    PByte.q=byte!passkey!c
    Keybyte=byte
    PokeB(*Address+a,PByte)
    If Round(a/10240,0)=Round(a/10240,1)
      CallFunctionFast(callback,a,length)
    EndIf
  Next
  CallFunctionFast(callback,-1,-1)
EndProcedure
Procedure PureAreaDecryptMemory(*Address,length,Password.s,callback)
  Password.s=LSet(Password,32,"X")
  Keybyte.q=Asc(Mid(Password,1,1))
  For mid=2 To 32
    asc=(Asc(Mid(Password,mid,1)))<<(mid-1)
    Keybyte=Keybyte+asc
  Next
  passkey=Keybyte
  For a.l=0 To length-1
    byte.b=PeekB(*Address+a)
    c.b=Tan(passkey*a)*255
    Keybyte=byte!passkey!c
    PokeB(*Address+a,Keybyte)
    If Round(a/10240,0)=Round(a/10240,1)
      CallFunctionFast(callback,a,length)
    EndIf
  Next
  CallFunctionFast(callback,-1,-1)
EndProcedure
XORFastCryptMemory erzeugt aus dem Passwort ein einziges Byte, mit dem der gesamte Speicherbereich ver-/entschlüsselt wird (schnell, aber unsicher, da das Byte ja relativ schnell (nur 256 Möglichkeiten) zu erraten ist).
XORSureCryptMemory ver-/entschlüsselt den Speicherbereich mit dem gesamten Passwort, daher ist es sicherer, aber auch langsamer.
PureAreaCryptMemory habe ich aus PureArea, wie's funktioniert, weiß ich nicht genau :D ...

Die Callbacks sollten so aussehen:

Code: Alles auswählen

Procedure CryptCallback(Position,Length)
  ;Auswertungscode
EndProcedure
Position ist die Position im Speicher (egal, ob Source oder Target, sind ja beide gleich groß) und Length die Länge des zu verschlüsselnden Speichers.

Verfasst: 29.12.2006 11:41
von m0
Danke für die verschlüsselungsroutine, aber ich würde gern sowas wie AES zum verschlüsseln hernehmen, sollte halt schon sicher sein, wenn es diese Option dann gibt. Wäre echt cool wenn du in diese Richtung auch irgendwas hättest

Schön, dass euch der Player soweit gefällt, die midis (.mid .xm .s3m .mod .it .rmi .sgt .fsb) werden nun auch abgespielt, auch wenn die Effekte und der Analyzer damit nicht funktionieren.

Bis dann
m0

Verfasst: 29.12.2006 13:41
von Tafkadasom2k5
Hast du die Effekte selber zusammengebastelt? :o

Und selbst wenn nicht: Sieht echt mal vielversprechend aus! Funktionen, und wirkt trotzdem noch *recht* übersichtlich. Schick!

Bin gespannt auf weitere Features!

Gr33tz
Tafkadasom2k5

Verfasst: 29.12.2006 14:06
von m0
Nene die Effekte macht Fmod... Gottseidank damit kenn ich mich leider nicht aus. aber es ist wieder ein neues Update fertig V0.20 Beta, ich hab jetzt ma noch den analyzer optimiert brauch jetzt weniger CPU und is bissl bunter °g°
naja neue features... was wäre denn noch gut? mir gehen langsam die Ideen aus...

Freut mich sehr, dass so viele sich dazu geopfert haben ihn zu testen dankeschön!!

bis dann
m0

Verfasst: 29.12.2006 14:07
von Andre
@m0: darfst Dich gerne mit dem EAF-Player im Showcase auf www.PureArea.net eintragen :allright:

Verfasst: 29.12.2006 15:07
von Terra
@m0
Super Sache dein Player :allright:

Läuft bei mir aber nur wenn ich Adminrechte habe, als Eingeschränkter User bekomme ich immer eine Fehlermeldung beim Start.

Immer wenn "Getting Playlist Info" startet kommt die Fehlermeldung "ein Fehler ist aufgetreten" :(

Verfasst: 29.12.2006 15:54
von m0
Ui Vielen Dank daran hab ich noch nicht gedacht, das kommt, weil man als eingeschränkter Benutzer keine Reg-Einträge machen darf und der Player beim Start je nach settings die Dateizuordnungen erneuert, hab die Fehlermeldung rausgeschmissen sollte in 5 minuten, wenn ich das neue Update hochgeladen habe ohne Probleme funktionieren ;)

Achso:
@Andre: Vielen Dank für das Angebot!! Hab ihn schon eingetragen, ich hoffe das ist so in Ordnung ;)

Danke für den Tip!!

m0