| Вопрос: mp3 теги и работа с параметрами | Добавлено: 23.10.06 17:05 |
Автор вопроса:  morjak
|
|
У меня два вопроса:
1) Люди, у кого нибудь какой нибудь модуль для работы с mp3 тегами через vb6? Если нет, то хотя бы объясните :) Нужно чтение и редактирование. 2) У меня вообщем программа, к которой через строку передаются параметры. Как с ними работать? И вообще, объясните, пожалуйста, мне, что это за птица?)) |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 23.10.06 21:55 |
|
1) http://getid3.org/
2) Command |
||
|
Номер ответа: 2 Автор ответа: morjak Вопросов: 2 Ответов: 1 |
Профиль | | #2 | Добавлено: 23.10.06 22:05 |
| Я может быть конечно что то не так понял, но по моему тама на сайт только пхп скрипт... | ||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 24.10.06 19:57 |
|
1) Не приучайся к халяве
2) Используй нормальные языки |
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 25.10.06 01:32 |
Точно, в топку vb6, будем php компилить в exe и не епет!  ))))
у мя только для 1 версии есть... Private Type ID3V1MP3TAGS
strTag As String * 3 strTitle As String * 30 strArtist As String * 30 strAlbum As String * 30 strYear As String * 4 strComment As String * 30 bytGenre As Byte End Type Private Sub cmdOpen_Click() strFile = DLG.GetOpenFileName(hWnd, "Mp3 файлы" & Chr(0) & "*.mp3" 
Open strFile For Binary Access Read As #1 Seek #1, LOF(1) - 127 Get #1, , ID3V1Tags With ID3V1Tags If .strTag = "TAG" Then txtTag(0) = Trim(.strTitle) txtTag(1) = Trim(.strArtist) txtTag(2) = Trim(.strAlbum) txtTag(3) = Trim(.strYear) txtTag(4) = Trim(.strComment) If Not .bytGenre > 149 Then cboGenry.ListIndex = .bytGenre If InStr(1, .strComment, Chr(0)) Then txtTag(5) = Asc(Right(.strComment, 1)) Else MsgBox "Теги отсутствуют. Но вы всё-равно можете их записать! "
End If End With Close End Sub Private Sub cmdSave_Click() Dim lngAttrs As Long lngAttrs = GetAttr(strFile) SetAttr strFile, vbNormal Open strFile For Binary Access Write As #1 With ID3V1Tags .strTag = "TAG" .strTitle = txtTag(0) & String(30 - Len(txtTag(0)), Chr(0)) .strArtist = txtTag(1) & String(30 - Len(txtTag(1)), Chr(0)) .strAlbum = txtTag(2) & String(30 - Len(txtTag(2)), Chr(0)) .strYear = Val(txtTag(3)) & String(30 - Len(txtTag(3)), Chr(0)) .strComment = txtTag(4) & String(29 - Len(txtTag(4)), Chr(0)) & Chr(Val(txtTag(5))) .bytGenre = cboGenry.ListIndex Seek #1, LOF(1) - 127 Put #1, , ID3V1Tags End With Close SetAttr strFile, lngAttrs End Sub в 2 принцип тот же, структура просто другая... по гуглить, найти и другую версию можно... |
||
|
Номер ответа: 5 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 25.10.06 22:27 |
| PHP, кстати, в EXE прекрасно компилится | ||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 26.10.06 03:12 |
|
Я не отрицаю )
|
||
|
Номер ответа: 7 Автор ответа:  Millenium ICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #7 | Добавлено: 15.11.06 12:28 |
| http://rashid4ever.narod.ru/myapps/mp3info/ | ||
Страница: 1 |