Tags Auslesen mit BASS

[egon.kaschuba]

:oops:
Hallo,

da habe ich mal eine Frage.
Ich möchte gerne MP3 / WMA / Wav auslesen.
Das geht wohl nur mit BASS oder ?

Dei BASSWMA u. BASSTAGS sind mit eingebunden.

Problem macht die BASS 2.4.0.0
Er will will immer nur die BASS 2.1

Fehlermeldung : BASS 2.1 is required

Kann mir einer dabei helfen ?


Gruß Egon


PS: Ich arbeite mit Delphi 7

Delphi-Quellcode:

unit MP3_Lesen;

interface

uses
  Classes, Forms, tags, bass, basswma, Dialogs, StdCtrls, Controls,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    edTrackNr: TEdit;
    edInterpret: TEdit;
    edTitle: TEdit;
    edAlbum: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Memo_Comments: TMemo;
    Label6: TLabel;
    Label7: TLabel;
    edGenre: TEdit;
    edYear: TEdit;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Channel: HStream;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Bass_StreamFree(Channel);
  edTrackNr.Text := '';
  edTitle.Text := '';
  edInterpret.Text := '';
  edAlbum.Text := '';
  edGenre.Text := '';
  edYear.Text := '';
  Memo_Comments.Lines.Clear;

  if not OpenDialog1.Execute then exit;
  Channel := Bass_StreamCreateFile(false, PChar(OpenDialog1.FileName), 0, 0, Bass_Stream_Decode);
  if Channel = 0 then
    Channel := Bass_WMA_StreamCreateFile(false, PChar(OpenDialog1.FileName), 0, 0, Bass_Stream_Decode);
  if Channel = 0 then
    exit;
  edTrackNr.Text := TAGS_Read(Channel, '%TRCK');
  edTitle.Text := TAGS_Read(Channel, '%TITL');
  edInterpret.Text := TAGS_Read(Channel, '%ARTI');
  edAlbum.Text := TAGS_Read(Channel, '%ALBM');
  edGenre.Text := TAGS_Read(Channel, '%GNRE');
  edYear.Text := TAGS_Read(Channel, '%YEAR');
  Memo_Comments.Lines.Add(TAGS_Read(Channel, '%CMNT'));
  


end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  Bass_Init(0, 44100, 0, handle, nil);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Bass_Free();
end;

end.

[edit=Matze][delphi]-Tag geschlossen. MfG, Matze[/edit]

[EWeiss]

Denke mal das die tags.dll noch nicht auf die BassLib 2.4 abgestimmt wurde
Wende dich deshalb mal an Ian von Un4Seen Forum.

Gruss Emil

[made in Germany]

hast du auch die aktuelle bass.pas?

Delphi-Quellcode:

edTrackNr.Text := TAGS_Read(Channel, '%TRCK'); 
edTitle.Text := TAGS_Read(Channel, '%TITL'); 
edInterpret.Text := TAGS_Read(Channel, '%ARTI'); 
edAlbum.Text := TAGS_Read(Channel, '%ALBM'); 
edGenre.Text := TAGS_Read(Channel, '%GNRE'); 
edYear.Text := TAGS_Read(Channel, '%YEAR'); 
Memo_Comments.Lines.Add(TAGS_Read(Channel, '%CMNT'));

ist das eigentlich alles, was man mit bass auslesen kann
oder gibts da noch andere dinge wie cover?

[Ghostwalker]

Wie eWeiss bereits sagte, ist die Tag.dll noch nicht auf die 2.4 aktuallisiert. Von daher heißt das Warten auf die neue Version :)

@made in Germany

Das hängt von der Tag-Version ab. z.B. kann ein voll befüllter ID3v2.4 Tag wesentlich mehr beihnhalten.

nähere Infos dazu findest du unter http://www.id3.org/

[Gausi]

Muss es denn mit der Bass sein? Was spricht gegen die Verwendung von ID3-Tag-Units wie ID3Lib oder MP3FileUtils? Und für WMA-Tags gibts da auch was.

[egon.kaschuba]

:roll:

Hi,
vielen Dank für die INFO´S

Gausi / Eweiss: Ja, schon weil ich alles mit BASS geschrieben habe.
du kannst sehr wohl Cover´n.


Ghostwalker: Na,Ja muss wohl warten auf eine neue TAGS.DLL

Obwohl ich eine Lizenz von den Burschen habe,melden die sich NICHT
auf mein Problem.

Gruß

- Egon

[Wishmaster]

Hi

ich habe schon seit der ersten Beta alles auf die V2.4 umgestellt und es funzt alles wie es soll inc.
Tags.dll.

Allerdings lade ich alles dynamisch.

PS.
Vielleicht hast du ja irgendeine ältere Bass version in deinem System Verzeichnis

Delphi-Quellcode:

unit Dynamic_Tags;

interface

uses
  Windows;

var
   TAGS_Read:function(handle: DWORD; const fmt: PChar): PChar; stdcall;
   TAGS_GetLastErrorDesc:function: PChar; stdcall;
   TAGS_GetVersion:function(): DWORD; stdcall;

var
   BASSTAGS_Handle:Thandle = 0;

   Function Load_BASSTAGSDLL(const dllfilename : string) : boolean;
   Procedure Unload_BASSTAGSDLL;

implementation

Function Load_BASSTAGSDLL(const dllfilename : string) : boolean;
var
   oldmode : integer;
begin
  if BASSTAGS_Handle <> 0 then // is it already there ?
     result := true
   else
     begin {go & load the dll}
       oldmode := SetErrorMode($8001);
       BASSTAGS_Handle := LoadLibrary(pchar(dllfilename));  // obtain the handle we want
       SetErrorMode(oldmode);
    if BASSTAGS_Handle <> 0 then
     begin
      @TAGS_Read:= GetProcAddress(BASSTAGS_Handle, Pchar('TAGS_Read'));
      @TAGS_GetLastErrorDesc:= GetProcAddress(BASSTAGS_Handle, Pchar('TAGS_GetLastErrorDesc'));
      @TAGS_GetVersion:= GetProcAddress(BASSTAGS_Handle, Pchar('TAGS_GetVersion'));

  if (@TAGS_Read = nil) or
     (@TAGS_GetLastErrorDesc = nil) or
     (@TAGS_GetVersion = nil) then
     begin
      FreeLibrary(BASSTAGS_Handle);
      BASSTAGS_Handle := 0;
     end;
    end;
   result := (BASSTAGS_Handle <> 0);
 end;
end;


Procedure Unload_BASSTAGSDLL;
begin
  if BASSTAGS_Handle <> 0 then
  FreeLibrary(BASSTAGS_Handle);
  BASSTAGS_Handle := 0;
end;



end.

//test

Delphi-Quellcode:

Function TBassEngine.Get_Fileinfo(Filename : String; var fInfo : TFileInfo) : Boolean;
var Chan : DWORD;
   size : QWORD;
   time : float;
begin

.
.
.
.

     Chan:= BASS_StreamCreateFile(false, PChar(Filename), 0,0, BASS_STREAM_DECODE);
  if Chan = 0 then
     Chan:= BASS_MusicLoad(false, Pchar(Filename), 0, 0, BASS_MUSIC_DECODE or
                                                         BASS_MUSIC_STOPBACK or
                                                         BASS_MUSIC_NOSAMPLE or
                                                         BASS_MUSIC_PRESCAN, 0);
  if Chan = 0 then
   begin
     // Error
     exit;
   end;




  {Get File Tag (Tags.dll) } 
   if Bass_dll_loaded[6] then
    Begin
     fInfo.TagArtist := TAGS_Read(Chan, '%IFV1(%ARTI, %ARTI)');
     fInfo.TagTitle  := TAGS_Read(Chan, '%IFV1(%TITL, %TITL)');
     fInfo.TagAlbum  := TAGS_Read(Chan, '%IFV1(%ALBM, %ALBM)');
     fInfo.TagTrack  := TAGS_Read(Chan, '%IFV1(%TRCK, %TRCK)');
     fInfo.TagDate   := TAGS_Read(Chan, '%IFV1(%YEAR, %YEAR)');
     fInfo.TagGenre  := TAGS_Read(Chan, '%IFV1(%GNRE, %GNRE)');
     fInfo.TagComment:= TAGS_Read(Chan,' %IFV1(%CMNT, %CMNT)');
    End;

.
.
.
.

end.

[egon.kaschuba]

:hello:

Hi,
an alle die mich so freundlich untestützt haben.

Ich habe alles in trockene Tücher.

Sollte jemand Problem mit BASS_xxx haben,
ich habe die Lösung.

Gruß

- Egon

PS: Ich bin Happy.

[Aurelius]

Wärest du auch so freundlich die Lösung allen Personen mitzuteilen? ;)

[egon.kaschuba]

:oops:

Hi,
Entschuldigung,vor Freude habe ich vergessen wie das geht.

Also man nehme die BASS.dll 2.4.0.1 , die BASS.dcu und die BASS.pas
Kopier das ganze in das Arbeitsverzeichnis,wo dein Prog ist.

Fertig ist der Lack.

Wie gesagt für die Bass Version " BASS24 ".

Wer die Bass.dcu nicht hat,kann von mir bezogen werden.
Leider ist die BASS.dcu nicht mehr in den Beispielen vorhanden.

Brauche nur die eMail Adresse.

Freue mich darauf allen zu HELFEN.

Gruß
- Egon

Nochmals Entschuldigung.

[Muetze1]

Wozu sollte man eine DCU brauchen, wenn sie nur das Ergebnis der Compilation der PAS Quelle ist? Da diese auch vorliegt, kann man diese doch jederzeit neu erstellt werden?! Ich verstehe das nicht... :gruebel:

[EWeiss]

Zitat:

Zitat von Muetze1

Wozu sollte man eine DCU brauchen, wenn sie nur das Ergebnis der Compilation der PAS Quelle ist? Da diese auch vorliegt, kann man diese doch jederzeit neu erstellt werden?! Ich verstehe das nicht... :gruebel:

Na ja wie schon hier jemand geschrieben hat.

Zitat:

hast du auch die aktuelle bass.pas?

Der Fehler tratt auf weil er mit sicherheit die falsche Bass.pas in seinen Programm integriert hatte.
diese hat im Header die const BASSVERSION := $204 steht da die $203 kanns nicht gehen.

Die *.dcu benötigt man nicht da sie sich selbst erstellt wenn in der Compiler config angegeben.
.. aber das weißt du ja. ;)

gruss Emil

[egon.kaschuba]

:!:

Ich verstehe das auch nicht

Ich habe 3 Verschiedene Bass Versionen ausprobiert.

Auch habe ich, wie schon angesprochen,die bass.pas in meinem
Programm hin und her getauscht ....

Nix ging , nur mit der bass.dcu

Ich habe,um sicher zu sein aus dem Prog die Bass.dcu entfernt,
und schon hatte ich wieder das Problem.

Watt soll ich dazu noch sagen ???

Ich stehe vor einem Rätzel.

Gruß

- Egon

[Muetze1]

Zitat:

Zitat von egon.kaschuba

Ich habe,um sicher zu sein aus dem Prog die Bass.dcu entfernt,
und schon hatte ich wieder das Problem.

Watt soll ich dazu noch sagen ???

Ich stehe vor einem Rätzel.

Das Rätsel ist ganz einfach: Keiner deiner bass.pas entspricht der DCU. Du hast also eine andere DCU Version als die Pascal Quellen. Somit ist aber die Bass.pas entsprechend überflüssig - und genau darauf wollte ich hinaus. Entweder - oder, aber nicht beides.

@EWeiss: Das habe ich gelesen, aber wenn er schreibt, man soll als Lösung die bass.pas und die bass.dcu in das Projekt kopieren, damit das läuft, dann ist das definitiv falsch. Entweder man braucht die PAS oder die DCU, aber nicht beides. Wenn er eine aktuelle PAS hat, bekommt er die DCU als Abfallprodukt mit dazu. Wenn er die DCU hat und die PAS dazu nicht ohne DCU läuft, dann kann er die PAS in Skat drücken, weil die eine andere Version hat. Somit ist die Lösung von wegen man muss PAS und DCU in das Projekt kopieren schlichtweg falsch. Auf mehr wollte ich nicht hinaus...

[EWeiss]

Zitat:

Auf mehr wollte ich nicht hinaus...

Ja ich auch ;) Habe deinen Einspruch verstanden.
Wenn er es gelesen hat wird er wohl nun wissen wie er vorgehen muss.

gruss Emil

[egon.kaschuba]

:oops:

Hallo,

konnte mich nicht so schnell melden,war auf Reisen.

Nach genauen hinsehen,muss ich den beiden Recht geben,
denn der Fehler lag ganz eindeutig bei mir.

Somit ist das Rätsel gelöst.

Liegt wohl an den grauen Zellen.
Das nächstemal muss ich wohl erstmal genauer hinsehen.

Dennoch Danke.

Gruß
- Egon

[egon.kaschuba]

:oops:

Hallo,

konnte mich nicht schnellen melden,war auf Reisen.

Ich habe mir das ganze noch mal durch den Kopf gehen lassen.
Komme zu dem schluß,die beiden haben RECHT.

Ich muss wohl die Bass.pas vertauscht haben.

Trotzdem Danke

Gruß

- Egon

[Wal]

Nutze auch die Tags.dll mit Bass,
bekomme die Umlaute nicht richtig angezeigt, wegen UTF-8.
Habe mir eine Eselsbrücke gebaut :

Delphi-Quellcode:

TempTitle := TAGS_Read(InfoChannel, '%IFV1(%TITL, %TITL)');

  TempTitle := StringReplace(TempTitle, 'ä', 'ä',[rfReplaceAll]);
  TempTitle := StringReplace(TempTitle, 'ü', 'ü',[rfReplaceAll]);
  TempTitle := StringReplace(TempTitle, 'ö', 'ö',[rfReplaceAll]);
  TempTitle := StringReplace(TempTitle, 'Ãä', 'Ä',[rfReplaceAll]);
  TempTitle := StringReplace(TempTitle, 'ã', 'Ü',[rfReplaceAll]);
  TempTitle := StringReplace(TempTitle, 'Ãû', 'Ö',[rfReplaceAll]);

Gibt's da eine schnellere Lösung ?

Wal

[Muetze1]

Utf8ToAnsi?

/EDIT: Dabei hatte ich noch überlegt und wollte ohne "String" schreiben. Und am Ende doch für's falsche entschieden. Ich glaube mein Hirn lässt nach, aber: Ich habe keine Ahnung!

[Wal]

Zitat:

Zitat von Muetze1

Utf8ToAnsiString?

Danke,
Utf8ToAnsi funzt.

Wal