Вверх ↑
Этот топик читают: Гость
Ответов: 5227
Рейтинг: 585
#1: 2016-02-18 21:13:12 ЛС | профиль | цитата
Простой редактор тэгов мр3
code_36953.txt


карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
2
файлы: 1code_36953.txt [1.8KB] [727]
Голосовали:ser_davkin, Konst
vip
#1.1контекстная реклама от партнеров
Ответов: 1535
Рейтинг: 176
#2: 2016-02-19 10:03:20 ЛС | профиль | цитата
andrestudio, неплохо было бы добавить удаление всех тегов.
------------ Дoбавленo в 10.03:
С картинками, я понял, скрипт не работает.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 5227
Рейтинг: 585
#3: 2016-02-19 12:28:43 ЛС | профиль | цитата
ser_davkin писал(а):
неплохо было бы добавить удаление всех тегов.
не получится, так как нет такого функционала в интерфейсе IWMPMedia
ser_davkin писал(а):
С картинками, я понял, скрипт не работает.
понятное дело нужен WMP_SDK которого для delphi в природе нет.
добавлять и редактировать строковые тэги можно, список по ссылкам

https://msdn.microsoft.com/en-us/library/dd743220(v=vs.85).aspx
https://msdn.microsoft.com/en-us/library/dd743063(v=vs.85).aspx

[flood]Схемку склепал до кучи потому как именно сейчас разбираюсь с передачей видео-аудио потока и там тоже нужно бы транслировать некоторые теги например для видео[url] https://msdn.microsoft.com/en-us/library/dd743064(v=vs.85).aspx [/url][/flood]


карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 194
Рейтинг: 2
#4: 2021-04-01 23:03:49 ЛС | профиль | цитата
Удален? У меня не открывается
карма: 0

0
Ответов: 2059
Рейтинг: 131
#5: 2021-04-01 23:17:14 ЛС | профиль | цитата
lisnic

Add(MainForm,4679472,287,112)
{
Width=441
Height=440
Caption="MP3 tags editor demo"
Position=1
}
Add(Button,4983622,238,63)
{
Width=433
Height=30
Align=2
Caption="Open mp3 file"
link(onClick,15601583:doExecute,[])
}
Add(VBJScript,12596653,350,63)
{
WorkPoints=#8:ReadInfo|9:WriteInfo|
EventPoints=#6:onInfo|7:onClear|
Script=#21:' autor - andrestudio|45:Dim objPlayer, objCurrentMedia, sTmp, aArr, i|20:On Error resume next|44:Set objPlayer = CreateObject("WMPlayer.OCX")|2: |22:Sub ReadInfo(filename)|16: sys.onClear ""|52: Set objCurrentMedia = objPlayer.newMedia(filename)|50: For i = 0 To objCurrentMedia.attributeCount - 1|46: sTmp = objCurrentMedia.getAttributeName(i)|52: If Not objCurrentMedia.isReadOnlyItem(sTmp) Then|63: sys.onInfo sTmp & ";" & objCurrentMedia.getItemInfo(sTmp)|10: End If|7: Next |11: sTmp = ""|7:End Sub|0:|19:Sub WriteInfo(info)|32: sArr = Split(info & ";", ";") |58: objCurrentMedia.setItemInfo CStr(sArr(0)), CStr(sArr(1))|7:End Sub|0:|0:|18:Sub doWork(dt,idx)|17: Select case idx|35: Case "ReadInfo" ReadInfo(dt)|36: Case "WriteInfo" WriteInfo(dt)|12: End Select|7:End Sub|
UseName=0
link(onInfo,1375441:doAdd,[])
link(onClear,1375441:doClear,[])
}
Add(ODialog,15601583,287,63)
{
Filter="mp3|*.mp3"
StartDir="C:\"
link(onExecute,12596653:ReadInfo,[])
}
Add(StringTable,1375441,406,63)
{
Top=30
Width=433
Height=383
Align=5
Columns=#8:Tags=200|14:Properties=600|
Grid=0
Point(onLineChange)
Point(Strings)
link(onLineChange,6783907:doValue,[])
}
Add(Memory,6783907,455,70)
{
Default=Integer(0)
link(onData,13134795:doRead,[(499,76)(499,121)(408,121)(408,139)])
}
Add(ArrayRW,13134795,420,133)
{
link(onRead,12596653:WriteInfo,[(464,139)(464,175)(335,175)(335,76)])
link(Array,1375441:Strings,[])
link(Index,6783907:Value,[(433,113)(461,113)])
}

карма: 6

1
Голосовали:lisnic
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)