Использование ресурсов в проекте

[Maxwellion]

1. Каким образом можно присобачить к проекту мультимедийные файлы(midi, wav, avi) таким образом чтобы они все находились в одном файле и чтобы их можно было использовать в проекте, на подобие RES файла или лучше как нибудь запихать их в EXE'шник.
2. Как из RES файла вытянуть мульти.мед. файл, т.е. как объяснить контролу-проигрователю что, вот от туда надо музыку играть.

[EvilCoder]

<DELETE>

[Maxwellion]

Сперва по форуму пройдись

Спасибец, за указание пути истинного
Боюсь показаться, вечнонедовольным, но всё таки может как-то это всё богатсво в один ЁХЁ'шник, исходный проект, затолкать можно?

[EvilCoder]

<DELETE>

[Maxwellion]

Что значит в исходный проект?
После компиляции все, и модули, и файлы формы, и файлы РЕСУРСОВ в один ЕХЕшник компилируются.
А как Ресурсы соеденять к проекту я уже писал.

С ресурсами то ладно, но посмотрел я эти примерчики, которые по ссылке:( какие-то они бодяжные, они весь процесс стопарят, а мне же такого не надо. Я хочу что бы у меня всё пело и танцевало, а здесь только поёт, но не танцует. Может это как нибудь в более приемственное состояние можно привести?

[Maxwellion]

Ещё хотел спросить про то как, как шрифты вытаскивать из RES файла, ну и соответственно как их вставлять в нужные места.

[A.A.Z.]

Загружаешь данные в байтовый массив и записываешь их в файл. У тебя получается файл шрифта, о котором никто не знает. Как сделать, чтобы о нем узнали, я надеюсь, ты знаешь.

[Maxwellion]

Загружаешь данные в байтовый массив и записываешь их в файл. У тебя получается файл шрифта, о котором никто не знает. Как сделать, чтобы о нем узнали, я надеюсь, ты знаешь.

А, на счет загрузки данных в байтовый массив, можно шут, шут поподробней, кто такой, с чем его едят? И по поводу того как сделать что бы о нем узнали, я бы тоже что нибудь послушал.

[A.A.Z.]

Насчет байтового массива -

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

Sub ExtractFromRes(ByVal ID As Long)
Dim B() As Byte
B = LoadResData(ID, "CUSTOM")
Open "C:\Font.ttf" For Output As #1: Close #1
Open "C:\Font.ttf" For Binary Access Write As #1
Put #1, , B()
Close #1
End Sub

ID - номер файла в ресурсфайле.
Насчет знания системой шрифта - посмотрю, так не помню.

[Maxwellion]

Что значит в исходный проект?
После компиляции все, и модули, и файлы формы, и файлы РЕСУРСОВ в один ЕХЕшник компилируются.
А как Ресурсы соеденять к проекту я уже писал.

И так, опять же возвращяясь к моим барашкам. Под фразой "в исходный проект" я хотел сказать что мне нужно несколько файлов объединить с exe'шником который получится после компиляции, но эти файлы должны попасть туда минуя res файл, потому как если ресурсы поподают в в скомпилированную программу через res файл, то извлеч их от туда не состовляе ни какого труда, например при помощи программы restorator и ей подобных, мне это не нравится.
Что мне нужно. Надо, что бы эти самые файлы(wav,mid,avi и т.д. и т.п.) поподали в проект так же как например поподают туда графические файлы при помещении их на PictureBox, Form, Images т.е. что бы их ни как не было видно, без особой нужды. Или же можно вывести их как-то в один отдельный файл, не обязательно пихать их в exe'шник. Главное что бы файл был один, что бы потом можно было их от туда программным путем вытащить и что бы их нельзя было извлеч "ресурсоедами".
Надеюсь, кто-то, что-то понял из моих ломанных объяснений.

[EvilCoder]

<DELETE>

[EvilCoder]

<DELETE>

[Maxwellion]

Насчет байтового массива -

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

Sub ExtractFromRes(ByVal ID As Long)
Dim B() As Byte
B = LoadResData(ID, "CUSTOM")
Open "C:\Font.ttf" For Output As #1: Close #1
Open "C:\Font.ttf" For Binary Access Write As #1
Put #1, , B()
Close #1
End Sub

ID - номер файла в ресурсфайле.
Насчет знания системой шрифта - посмотрю, так не помню.

Насчет знания системой шрифта, оно там ещё долго смотреть? Хотя бы скажи на чем основано, лишь бы не через папку FONT, в остальном на всё согласен.

[GSerg]

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

Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long

[A.A.Z.]

Сорри Я про этот топик вообще забыл
Слава богу, GSerg за меня ответил