Simply Player - ein Media Player

[KingIR]

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. :stupid:

[Gausi]

...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;

[Mazel]

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. :-D

Gruß
Mazel

[KingIR]

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) :?

[Mazel]

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

[KingIR]

Ja die Null am Anfang ist egal, aber die vier hinten, die sind's nicht ;)

[Mazel]

OK, danke werde ich ändern (hat aber auch ohne den 4 Nullen funktioniert), hoffe das stimmt auch so :wink: .

Gruß
Mazel

[KingIR]

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 :thumb:

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;

:cheers:

[ManuMF]

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] :drunken: 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 :thumb:

Gruß,
ManuMF

[Mazel]

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