EAF-Player

Anwendungen, Tools, Userlibs und anderes nützliches.
m0
Beiträge: 150
Registriert: 12.10.2004 13:55
Wohnort: Immenstadt
Kontaktdaten:

EAF-Player

Beitrag 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]
Zuletzt geändert von m0 am 29.12.2006 11:46, insgesamt 1-mal geändert.
Schaut euch doch http://www.momo-wagner.de mal an ;)

MfG
m0
Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Beitrag 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:
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Benutzeravatar
Leonhard
Beiträge: 602
Registriert: 01.03.2006 21:25

Beitrag 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 :-).
Marvin
Beiträge: 497
Registriert: 17.07.2005 14:42
Wohnort: Krikkit

Beitrag 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.
m0
Beiträge: 150
Registriert: 12.10.2004 13:55
Wohnort: Immenstadt
Kontaktdaten:

Beitrag 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
Schaut euch doch http://www.momo-wagner.de mal an ;)

MfG
m0
Benutzeravatar
Tafkadasom2k5
Beiträge: 1578
Registriert: 13.08.2005 14:31
Kontaktdaten:

Beitrag 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
OpenNetworkConnection() hat geschrieben:Versucht eine Verbindung mit dem angegebenen Server aufzubauen. 'ServerName$' kann eine IP-Adresse oder ein voller Name sein (z.B.: "127.0.0.1" oder "ftp.home.net").
php-freak hat geschrieben:Ich hab die IP von google auch ned rausgefunden!
m0
Beiträge: 150
Registriert: 12.10.2004 13:55
Wohnort: Immenstadt
Kontaktdaten:

Beitrag 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
Schaut euch doch http://www.momo-wagner.de mal an ;)

MfG
m0
Benutzeravatar
Andre
PureBasic Team
Beiträge: 1765
Registriert: 11.09.2004 16:35
Computerausstattung: MacBook Core2Duo mit MacOS 10.6.8
Lenovo Y50 i7 mit Windows 10
Wohnort: Saxony / Deutscheinsiedel
Kontaktdaten:

Beitrag von Andre »

@m0: darfst Dich gerne mit dem EAF-Player im Showcase auf www.PureArea.net eintragen :allright:
Bye,
...André
(PureBasicTeam::Docs - PureArea.net | Bestellen:: PureBasic | PureVisionXP)
Benutzeravatar
Terra
Beiträge: 11
Registriert: 11.12.2005 12:41

Beitrag 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" :(
m0
Beiträge: 150
Registriert: 12.10.2004 13:55
Wohnort: Immenstadt
Kontaktdaten:

Beitrag 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
Schaut euch doch http://www.momo-wagner.de mal an ;)

MfG
m0
Antworten