e () (intFile, mstrFilename, OpenMode. Binary, OpenAccess. Read, OpenShare. LockWrite)
'Gets length of filelngLOF As Long=LOF (intFile) (lngLOF gt; 128) Then
'Check for the ID3v1 tag (intFile, strTag, lngLOF - 127, True) (strTag. ToUpper lt; gt; «TAG») Then
'No ID3v1 tag found=False (0)=«» (1)=«» (2)=«» (3)=«» (4)=«» (5)=« »(6) =« »
'ID3v1 tag found=True
'Read all frames from the file (intFile, strTitle) (intFile, strArtist) (intFile, strAlbum) (intFile, strYear) (intFile, strComment) (intFile, bytDummy) (intFile, bytTrack) (intFile, bytGenre)
'Assign the frame content to the properties (0)=strTitle (1)=strArtist (2)=strAlbum (3)=strYear (4)=bytTrack (5)=strComment (6)= bytGenreIfIf
'Close the file (intFile) Sub
Рисунок А.1 - Функція зчитування даних з ID3V1
'UpdateSub Update ()
'DeclarationsstrTag As New String («», 3) strTitle As New String («», 30) strArtist As New String («», 30) strAlbum As New String («», 30) strYear As New String («», 4) strComment As New String («», 28) bytDummy As BytebytTrack As BytebytGenre As Byte
'Open the fileintFile As Integer=FreeFile () (intFile, mstrFilename, OpenMode. Binary, OpenAccess. ReadWrite, OpenShare. LockWrite)
'Gets length of filelngLOF As Long=LOF (intFile) (lngLOF gt; 0) Then (lngLOF gt; 128) Then
'Check for an existing ID3v1 tag (intFile, strTag, lngLOF - 127) (strTag. ToUpper lt; gt; «TAG») Then
'No ID3v1 tag found, so just add one (intFile, lngLOF)=«TAG» (intFile, strTag) If
'Fix the length of the frames=LSet (mobjFrame (0), Len (strTitle))=LSet (mobjFrame (1), Len (strArtist))=LSet (mobjFrame (2), Len (strAlbum))=LSet (mobjFrame (3), Len (strYear))=mobjFrame (4)=LSet (mobjFrame (5), Len (strComment))=mobjFrame (6)
'Write the frames to the file (intFile, strTitle) (intFile, strArtist) (intFile, strAlbum) (intFile, strYear) (intFile, strComment) (intFile, bytDummy) (intFile, bytTrack) (intFile, bytGenre) IfIf
'Close the file (intFile) Sub
Рисунок А.2 - Функція запису даних ID3V1
Додаток Б
Інтерфейс програми
Рисунок Б.1 - Сервер
Рисунок Б.2 - Головне вікно клієнта
Малюнок Б.3 - Діаграма жанрової статистики
Малюнок Б.4 - Панель адміністрування
