Воспроизведение *.xm

[NeverGone]

Можно ли как-нибудь средствами VB воспроизвести XM-файл и как его считывать из ресурсов? Желательно без использования дополнительных библиотек.
Заранее спасибо.

[Денис]

Неплохо было бы напрямую. Тебе надо найти спецификацию формата и сделать чтение самостоятельно.
Но если нэ, то вот ссылка на библиотечку

[NeverGone]

Отлично, спасибо. А как можно сохранить на диск ресурс в программе? LoadResData?

[Денис]

В этом топике видел что-то похожее...

[NeverGone]

В этом топике

Хорошая, однако, ссылка... Вот только

Подходящих тем или cообщений не найдено

[Денис]

А так?

[NeverGone]

Гы. Не умею я поиском пользоваться. Спасибо, буду пробовать.
EDIT: Что-то оно не работает...
Добавил ресурс:


В коде написал так:

Код: Выделить всё

b() = LoadResData("MUSIC", "DATA")
FF = FreeFile
Open App.Path & "\about.xm" For Binary As #FF
Put #FF, , b()
Close #FF
Erase b()


Все это чудо вываливается с сообщением о том, что ресурс не найден. Где я ошибся?

[Денис]

Выложи сюда RES файл из проекта.

[NeverGone]

Выложи сюда RES файл из проекта.

Вот, в аттаче:

[Денис]

Добавь константу

Код: Выделить всё

const UserData = &HA

и замени соотв строчку в коде:

Код: Выделить всё

b() = LoadResData("MUSIC", UserData)

[NeverGone]

То же самое... Runtime error 326: Resource with identifier 'MUSIC' not found

[Денис]

Вот:

Код: Выделить всё

B() = LoadResData(1, "MUSIC")

Я сам не туда смотрел.

[NeverGone]

Денис, т.е. константа уже не нужна? Попробовал так - Subscript out of range...

[Денис]

Ога. Константа уже не нужна.
Вторая ошибка точно в том же месте вываливается? Или это уже другая история?

[NeverGone]

Ога. Константа уже не нужна.
Вторая ошибка точно в том же месте вываливается? Или это уже другая история?

УгумсЪ. На строке

Код: Выделить всё

b() = LoadResData(1, "MUSIC")

[Денис]

Эээ... Я ж надеюсь ты его не redim'ишь? Его не надо redim'ить!
Объявил:

Код: Выделить всё

Dim b() As Byte

Присвоил:

Код: Выделить всё

b() = LoadResData(1, "MUSIC")

и всё!