AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Simply Player - ein Media Player
Thema durchsuchen
Ansicht
Themen-Optionen

Simply Player - ein Media Player

Ein Thema von Mazel · begonnen am 19. Mai 2006 · letzter Beitrag vom 24. Aug 2006
Antwort Antwort
Seite 3 von 7     123 45     Letzte »    
Benutzerbild von Mazel
Mazel
Registriert seit: 11. Nov 2005
Simply Player 1.0

Kurzbeschreibung: Ein einfacher Player für Audio- und Videodateien.

Audiodateien:
  • .mp1 .mp2 .mp3 .m1a .m2a. .mpa .wav
  • .xm .it .s3m .mod .mtm .umx .mo3
  • .mid .midi .rmi
  • .ogg .aif .aiff
  • weitere Formate durch entsprechende PlugIns: http://www.un4seen.com
Videodateien:
  • .avi .wmv .asf
  • .mpg .mpeg .m1v .mp1v .m2v .mp2v .mpv
Playlistdatein:
  • .m3u
  • .pls
neu in Version 1.0:
- schon vorhandene Effekte wurde verbessert, neue hinzugefügt
  • Ändern der Samplerate
  • Echo optimiert
  • Tempoänderung optimiert
  • FadeIn und FadeOut
  • Hotkeys können nun gesetzt werden
  • Playlist kann aller x Minuten gespeichert werden
  • Minimieroptionen sind nun einstellbar
- Equalizer würde verbessert
- pls Playlisten können nun geladen und gespeichert werden
- Anzeige der Bitrate und Samplerate

verwendete Komponenten für Media:
bass.dll für Audiodateien
DSPack für Videodateien

Edit: neue Version hochgeladen am 17.08.2006 13:23 Uhr

So, nun könnt ihr die neue Version laden . Ich hoffe es befinden sich keine Fehler mehr im Projekt, falls doch, sagt mir bescheid, damit ich sie sofort entfernen kann.

Gruß
Mazel
Miniaturansicht angehängter Grafiken
bild2_181.jpg  
Angehängte Dateien
Dateityp: zip simply_player_1.0_197.zip (549,4 KB, 170x aufgerufen)
 
Benutzerbild von KingIR
KingIR

 
Delphi 2006 Professional
 
#21
  Alt 28. Mai 2006, 17:15
Seit BASS 2.3 gibt es jetzt BASS_PluginGetInfo.

Beispiel aus der Hilfe-Datei:
Code:
BASS_PLUGININFO *info=BASS_PluginGetInfo(plugin); // get the plugin info
int a;
for (a=0; a<info->formatc; a++) { // display the array of formats...
    printf("ctype=%x name=%s exts=%s\n",
        info->formats[a].ctype, info->formats[a].name, info->formats[a].exts);
}
formats[a].exts suchst du glaube ich; alles weitere in der Hilfe.
  Mit Zitat antworten Zitat
Benutzerbild von Gausi
Gausi

 
Delphi 11 Alexandria
 
#22
  Alt 28. Mai 2006, 17:16
...oder in dem Beispiel-Projekt, was bei der bass.dll dabei liegt
Delphi-Quellcode:
var fd: TWin32FindData;
  fh: THandle;
  plug: DWORD;
  Info: PBass_PluginInfo;
//...
PlaylistDateienOpenDialog.Filter :=
        'Eingebaute Formate' + '|' + '*.mp3;*.mp2;*.mp1;*.ogg;*.wav*;*.aif';

  fh := FindFirstFile(PChar(ExtractFilePath(ParamStr(0)) + 'bass*.dll'), fd);
  if (fh <> INVALID_HANDLE_VALUE) then
  try
    repeat
      plug := BASS_PluginLoad(fd.cFileName, 0);
      if Plug <> 0 then
      begin
        Info := BASS_PluginGetInfo(Plug);
        for a := 0 to Info.formatc - 1 do
        begin
          // Set The OpenDialog additional, to the supported PlugIn Formats
          PlaylistDateienOpenDialog.Filter := PlaylistDateienOpenDialog.Filter
            + '|' + Info.Formats[a].name + ' ' + '(' +
          Info.Formats[a].exts + ')|' + Info.Formats[a].exts;
             // showmessage(Info.Formats[a].exts);
        end;
      end;
    until FindNextFile(fh, fd) = false;
  finally
    Windows.FindClose(fh);
  end;
  Mit Zitat antworten Zitat
Benutzerbild von Mazel
Mazel
 
#23
  Alt 28. Mai 2006, 17:41
Hi,

danke. Ich habe mir noch nicht die 2.3 geladen. Ist diese besser als die 2.2? Und Wenn ja, in welchen Bereichen?

Edit: habe mir sie nun geladen.

Gruß
Mazel
Marcel Jänicke
  Mit Zitat antworten Zitat
Benutzerbild von KingIR
KingIR

 
Delphi 2006 Professional
 
#24
  Alt 28. Mai 2006, 17:50
Nuja sie unterstützt erstmal diese Funktion da, BASS_PluginGetInfo.

Ansonsten, Changelog:
Bugfixes +
Code:
2.3 - 21/5/2006
---------------
* MOD message/instrument/sample text retrieval, merged with stream tag retrieval function
   BASS_ChannelGetTags
   BASS_TAG_MUSIC_NAME/MESSAGE/INST/SAMPLE (BASS_ChannelGetTags types)
   BASS_MusicGetName *removed*
   BASS_StreamGetTags *removed*
* Plugin information retrieval
   BASS_PluginGetInfo
   BASS_PLUGININFO/FORM structures
   BASS_CHANNELINFO (plugin member)
   PLUGINS example updated
* RIFF/WAVE "INFO" tag retrieval
   BASS_TAG_RIFF_INFO (BASS_StreamGetTags type)
* More specific WAVE format information
   BASS_CTYPE_STREAM_WAV_PCM/FLOAT (channel types)
   BASS_CTYPE_STREAM_WAV (channel type flag)
* Proxy server configuration
   BASS_CONFIG_NET_PROXY (BASS_SetConfig option)
   BASS_CONFIG_NET_NOPROXY *removed*
   NETRADIO example updated
* Passive FTP mode
   BASS_CONFIG_NET_PASSIVE (BASS_SetConfig option)
* Agent changes take immediate effect
   BASS_CONFIG_NET_AGENT (BASS_SetConfig option)
* Minimum time gap between creating new sample channels
   BASS_SAMPLE (mingap member)
   BASS_SampleGetChannel
* Support for Unicode plugin filenames
   BASS_PluginLoad
* Device output/input rate retrieval (MacOSX only)
   BASS_INFO (freq member)
   BASS_RECORDINFO (freq member)
* Extended version info (minor revision)
   BASS_GetVersion
* Unsupported codec error code
   BASS_ERROR_CODEC
* Optional use of the Windows MP3 codec
   BASS_CONFIG_MP3_CODEC (BASS_SetConfig option)
* 3D support for MacOSX
   BASS_Set3DFactors
   BASS_Get3DFactors
   BASS_Set3DPosition
   BASS_Get3DPosition
   BASS_Apply3D
   BASS_ChannelSet3DAttributes
   BASS_ChannelGet3DAttributes
   BASS_ChannelSet3DPosition
   BASS_ChannelGet3DPosition
   3DTEST example added (Win32 example also updated)
* VB version of SYNTH example added
Dauert halt mal fünf Minuten die geänderten Funktionsnamen anzupassen, aber ansonsten gibts keine Probleme (bei mir gabs zumindest keine).
Achja und die Konstante BASSVERSION ist in den Delphi-Headern falsch deklariert, die müsste auf $02030000 stehen.

(roter Kasten bla, vielleicht trotzdem interessant)
  Mit Zitat antworten Zitat
Benutzerbild von Mazel
Mazel
 
#25
  Alt 28. Mai 2006, 18:28
Also bei mir steht
Delphi-Quellcode:
const
  BASSVERSION = $203; // API version
ist das nicht das selbe wie $02030000? Die Null am Anfang sollte doch nicht von großer Bedeutung sein, oder irre ich mich da jetzt?

Gru´ß
Mazel
Marcel Jänicke
  Mit Zitat antworten Zitat
Benutzerbild von KingIR
KingIR

 
Delphi 2006 Professional
 
#26
  Alt 28. Mai 2006, 18:32
Ja die Null am Anfang ist egal, aber die vier hinten, die sind's nicht
  Mit Zitat antworten Zitat
Benutzerbild von Mazel
Mazel
 
#27
  Alt 28. Mai 2006, 18:43
OK, danke werde ich ändern (hat aber auch ohne den 4 Nullen funktioniert), hoffe das stimmt auch so .

Gruß
Mazel
Marcel Jänicke
  Mit Zitat antworten Zitat
Benutzerbild von KingIR
KingIR

 
Delphi 2006 Professional
 
#28
  Alt 28. Mai 2006, 18:48
Jo naja, wird ja nur für den Versions-Check beim Laden der bass.dll gebraucht, ansonsten hat die keinen Einfluss: Wollte dich nur vorsichtshalber drauf hinweisen

Delphi-Quellcode:
   if Bass_GetVersion() <> BASSVERSION then
  begin
      MessageBox('BASS version 2.3 could not be loaded:'#13#10 + BASS_ErrorString(), 'Error', MB_ICONSTOP);
    exit;
   end;
  Mit Zitat antworten Zitat
Benutzerbild von ManuMF
ManuMF

 
Delphi 6 Personal
 
#29
  Alt 28. Mai 2006, 19:02
Hallo,

bei mir laufen alle getesteten Sounds und Videos ohne Probleme.
Aber...
  • F: Der Positionsbalken stimmt nach ein paar Videos nicht mehr (beginnt irgendwo in der Mitte oder steht am Ende)
  • F: Das Player-Fenster ist, wenn er beim Start zentrieren soll, inaktiv
  • V: Schön wäre eine Option, den Player nach Beenden der Wiedergabe zu schließen (Die "gute alte Medienwiedergabe" [selbst in XP als "Mplay32.exe" zu finden] konnte das per "/play /close" in der Befehlszeile)
  • V: Ich fände es gut, wenn der Player sich der Größe des Videos anpassen würde

Aber sonst, auch das Design, gut

Gruß,
ManuMF
  Mit Zitat antworten Zitat
Benutzerbild von Mazel
Mazel
 
#30
  Alt 28. Mai 2006, 22:33
Hi,

danke ManuMF, ich werde versuchen soviele Fehler wie möglich zu beheben und Verbesserungen vorzunehmen.

Momentan habe ich aber ein Problem beim Doppelklick auf auf eine Datei. Beispiel eine wma. Wenn ich auf diese Datei klicke, wird mein Player geöffnet, aber da die baswma.dll als PlugIn vorliegt kann ich diese nicht abspielen, da die PlguIn's nicht geladen werden. Beim normalen Öffnen aber werden sie geladen.
Delphi-Quellcode:
procedure TForm1.OpenTimerTimer(Sender: TObject);
begin
  OpenTimer.Enabled:=False;
  Ini(True); //läd alle Informatinen aus der Ini
  DragAcceptFiles(Form1.Handle, True); //aktiviert Drag & Drop
  LoadPlugIn; //läd PlugIn's
  If ParamCount = 1 then NewAVObject(ParamStr(1)) //Datei öffnen
  Else If FileExists(LastPlaylist) then LoadPlaylist(LastPlaylist); //Playlist öffnen
  SetFocus;
end;
in LoadPlugIn werden alle PlugIns geladen, wie gesagt, es funktioniert beim Öffnen des Players aber leider nicht wenn ParamCount 1 ist.

Gruß
Mazel
Marcel Jänicke
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 7     123 45     Letzte »    


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz