Witam.
Mam taką procedure
[code]procedure TDodawanie.ID3TagOpen(Filename:string);
var Buffer:array[1..128] of char;
F:File;
begin
fileMode:=0;
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);
Title:=copy(Buffer,4,30);
Artist:=copy(Buffer,34,30);
Album:=copy(Buffer,64,30);
Year:=copy(Buffer,94,4);
Comment:=copy(Buffer,98,30);
end;
end;[/code]
Co trzeba dodac żeby odczytywał także numer utworu???
THX