Author Topic: BASS_StreamGetTags  (Read 2369 times)

Let_Me_Be

  • Posts: 13
BASS_StreamGetTags
« on: 25 Mar '03 - 11:31 »
How can I read the tags from a WMA/OGG file in delphi?
I don't understand the example...  :-/

Thx a lot....

Ingolf

  • Posts: 81
Re: BASS_StreamGetTags
« Reply #1 on: 27 Mar '03 - 22:16 »
maybe this will help...

Code: [Select]
var
 Tag: String;
 Data: PChar;
begin
 Data := BASS_WMA_StreamGettags(Stream, 0);
 if Data <> nil then
 begin
  while Data^ <> #0 do
  begin
    Tag := StrPas(Data);
    { Tag will contain the whole tag }
    { For example, Title="Pepito" }
    Data := Data + Length(StrPas(Data)) + 1;
  end;
 end;
end;