- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls;
-
- type
- TID3Tag = record
- ID:string[3];
- Titel:string[30];
- Artist:string[30];
- Album:string[30];
- Year:string[4];
- Comment:string[30];
- Genre:byte;
- end;
-
- TForm1 = class(TForm)
- Button1: TButton;
- OpenDialog1: TOpenDialog;
- procedure Button1Click(Sender: TObject);
- private
- { Private-Deklarationen }
- public
- { Public-Deklarationen }
- end;
-
- var
- Form1: TForm1;
- ID3Tag:TID3Tag;
-
- implementation
-
- {$R *.DFM}
-
- procedure Lese_ID3Tag(Filename:string);
- var
- Buffer:array[1..128] of char;
- F:File;
-
-
- begin
- 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;
- end;
-
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- if Opendialog1.Execute then
- begin
- Lese_ID3Tag(opendialog1.filename);
- showmessage(id3tag.ID);
- showmessage(id3tag.Titel);
- showmessage(id3tag.Artist);
- showmessage(id3tag.Album);
- showmessage(id3tag.Year);
- showmessage(id3tag.Comment);
- showmessage(id3tag.Genre);
- end;
- end;
-
- end.
-
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TID3Tag = record
ID:string[3];
Titel:string[30];
Artist:string[30];
Album:string[30];
Year:string[4];
Comment:string[30];
Genre:byte;
end;
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
ID3Tag:TID3Tag;
implementation
{$R *.DFM}
procedure Lese_ID3Tag(Filename:string);
var
Buffer:array[1..128] of char;
F:File;
begin
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;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
begin
Lese_ID3Tag(opendialog1.filename);
showmessage(id3tag.ID);
showmessage(id3tag.Titel);
showmessage(id3tag.Artist);
showmessage(id3tag.Album);
showmessage(id3tag.Year);
showmessage(id3tag.Comment);
showmessage(id3tag.Genre);
end;
end;
end.