Taki oto kodzik:
Type
TID3Tag = record
ID:string[3];
Titel:string[30];
Artist:string[30];
Album:string[30];
Year:string[4];
Comment:string[30];
Genre:byte;
end;
var
ID3Tag:TID3Tag;
procedure Lese_ID3Tag(Filename:string);
var Buffer:array[1..128] of char;
F:File;
begin
try
AssignFile(F, Filename);
Reset(F,1);
Seek(F,FileSize(F)-128);
BlockRead(F, Buffer, SizeOf(Buffer));
CloseFile(F);
with ID3Tag do
begin
ID:=copy(Buffer,1,3);
Titel:=copy(Buffer,4,30);
Artist:=copy(Buffer,34,30);
Album:=copy(Buffer,64,30);
Year:=copy(Buffer,94,4);
Comment:=copy(Buffer,98,30);
Genre:=ord(Buffer[128]);
end;
finally
end;
end;
Celem jest oczywiście odczyt taga MP3... problem pojawia się przy niektórych plikach, występuje "<font color=red>File Acces Error</font>" - myślałem, że <b>Try</b> coś da, ale niestety dalej jest to samo. Jak można zabezpieczyć tą procedurkę na wszystkie możliwości.. jeżeli by jakiś mp3 nie miał TAG
a, to niech nic nie zapisuje do zmiennych...