【HSP3】HSPでMP3/WMAのアルバムアート(ジャケット画像)を書き込むサンプル | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
#define IID_IWMMetadataEditor   "{96406bd9-2b2b-11d3-b36b-00c04f6108ff}"
#define IID_IWMMetadataEditor2  "{203cffe3-2e18-4fdf-b59d-6e71530534cf}"
#define IID_IWMHeaderInfo       "{96406bda-2b2b-11d3-b36b-00c04f6108ff}"
#define IID_IWMHeaderInfo2      "{15cf9781-454e-482e-b393-85fae487a810}"
#define IID_IWMHeaderInfo3      "{15CC68E3-27CC-4ecd-B222-3F5D02D80BD5}"
#define IID_IWMImageInfo        "{9F0AA3B6-7267-4D89-88F2-BA915AA5C4C6}"
#usecom IWMMetadataEditor IID_IWMMetadataEditor
#comfunc IWMMetadataEditor_Open 3 wptr
#comfunc IWMMetadataEditor_Close 4
#comfunc IWMMetadataEditor_Flush 5
#usecom IWMHeaderInfo3 IID_IWMHeaderInfo3
#comfunc IWMHeaderInfo3_GetAttributeByName 5 sptr, wstr, sptr, sptr, sptr
#comfunc IWMHeaderInfo3_GetAttributeCountEx 17 sptr, sptr
#comfunc IWMHeaderInfo3_GetAttributeByIndexEx 19 sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
#comfunc IWMHeaderInfo3_ModifyAttribute 20 sptr, sptr, sptr, sptr, sptr, sptr
#comfunc IWMHeaderInfo3_AddAttribute 21 sptr, wstr, sptr, sptr, sptr, sptr, sptr
#uselib "Wmvcore.dll"
#func WMCreateEditor "WMCreateEditor" sptr
    pEditor = 0
    WMCreateEditor varptr(pEditor)
    newcom pWMEdit, IID_IWMMetadataEditor, -1, pEditor
    dialog "jpg", 16
    fname = refstr
    exist fname
    fsize = strsize
    notesel img
    noteload fname
    dialog "mp3;*.wma", 16
    IWMMetadataEditor_Open pWMEdit, refstr
    if stat != 0 : dialog "失敗" : end
    
    querycom pHeaderInfo, pWMEdit, IID_IWMHeaderInfo
    cAttributes = 0
    IWMHeaderInfo3_GetAttributeCountEx pHeaderInfo, 0xFFFF, varptr(cAttributes)
    idx = -1
    repeat cAttributes
        sdim szName, 1024 + 2
        NameLen = 1024
        Type = 0
        LangIndex = 0
        DataLength = 0
        IWMHeaderInfo3_GetAttributeByIndexEx pHeaderInfo, 0, cnt, varptr(szName), varptr(NameLen), varptr(Type), varptr(LangIndex), 0, varptr(DataLength)
        if cnvwtos(szName) == "WM/Picture"{
            idx = cnt
        }
    loop
    
    s_des = ""
    s_mime = "image/jpeg"
    size_des = (strlen(s_des)*2 + 2)
    size_mime = (strlen(s_mime)*2 + 2)
    
    // WM_PICTURE構造体(17bytes) + MIME文字列(Unicode) + 説明用文字列(Unicode)
    sSize = 17 + size_mime + size_des + fsize
    sdim WM_PICTURE, sSize
    sdim mime, size_mime : cnvstow mime, s_mime
    sdim description, size_des : cnvstow description, s_des
    ptr = varptr(WM_PICTURE) + 17
    lpoke WM_PICTURE, 0, ptr
    memcpy WM_PICTURE, mime, size_mime, ptr - varptr(WM_PICTURE), 0
        
    poke WM_PICTURE, 4, 0
    ptr += size_mime
    lpoke WM_PICTURE, 5, ptr
    memcpy WM_PICTURE, description, size_des, ptr - varptr(WM_PICTURE), 0
        
    lpoke WM_PICTURE, 9, fsize
    ptr += size_des
    lpoke WM_PICTURE, 13, ptr
    memcpy WM_PICTURE, img, fsize, ptr - varptr(WM_PICTURE), 0
    
    // ない場合
    if idx == -1 {
        IWMHeaderInfo3_AddAttribute pHeaderInfo, 0, "WM/Picture", varptr(Index), 2/*WMT_TYPE_BINARY*/, 0, varptr(WM_PICTURE), sSize
        mes strf("0x%08x, %08d", stat, stat)
    }else{
        // 既にある場合は上書き
        IWMHeaderInfo3_ModifyAttribute pHeaderInfo, 0, idx, 2/*WMT_TYPE_BINARY*/, 0, varptr(WM_PICTURE), sSize
        mes strf("0x%08x, %08d", stat, stat)
    }
    
    IWMMetadataEditor_Flush pWMEdit
    IWMMetadataEditor_Close pWMEdit
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX