Forum: Multimedia
Delphi
by Nils_13,
1. Okt 2006
Danke, jetzt funktioniert es.
Forum: Multimedia
Delphi
by Nils_13,
30. Sep 2006
Ich habe es so gemacht:
//Lauftext
PlayFile(playindex);
with fFiles do
begin
s := Artist + ' - ' + Titel + ' ';
lLauftext.Text := s;
lLauftext.Active := True;
lLauftext.Transparent := True;
Forum: Multimedia
Delphi
by Nils_13,
30. Sep 2006
Hm? Die Tags sind in deiner Demo genauso, wie bei mir, nur in der Playlist und im Lauftext nicht.
Forum: Multimedia
Delphi
by Nils_13,
30. Sep 2006
Warum funktioniert es bei dir, aber nicht bei mir :shock: ?
In der Tagform wird alles korrekt angezeigt, aber nicht in der Playlist und im Lauftext.
Forum: Multimedia
Delphi
by Nils_13,
30. Sep 2006
Ich denke es liegt an den Pointern. Pointer machen nie, was man will. Das nur Artist in de rListbox steht ist kein Wunder, denn der String wird durch #0 terminiert. Es gibt da den Copy-Befehl, aber die Zeichenfolge nach dem String wird vlt. von WMA zu WMA unterschiedlich sein und somit könnte das schwer werden.
Forum: Multimedia
Delphi
by Nils_13,
30. Sep 2006
WatchList:
fFiles.Titel: 'Test 3 wmaf'#0#$16#0#1
Forum: Multimedia
Delphi
by Nils_13,
30. Sep 2006
procedure TfrmMain.UpdateListBox;
var i : integer;
begin
lbList.Clear;
lbList.Items.BeginUpdate;
for i := 0 to length(fFiles) - 1 do
begin
if
lbList.Items.Add(fFiles.Artist + ' - ' + fFiles.Titel + ' ');
end;
Forum: Multimedia
Delphi
by Nils_13,
30. Sep 2006
Du meinst, ich soll aus Track und Year Integer machen ? Gerade das geht nicht....
Forum: Multimedia
Delphi
by Nils_13,
30. Sep 2006
Wieso kann das nicht laufen ?
Ich verstehe dich nicht.
procedure TAudioFile.GetWMAInfo(filename:String);
var
TagsData: PTagsData;
begin
New(TagsData);
try
OpenWMAFile(filename, TagsData);