VB 6 Картинки JPG в DLL..

[AktauFox]

Подскажите кто знает.. как на VB6 создать DLL и вшить в неё картинки для дальнейшего обращения к этим картинкам

[alibek]

Создаешь новый проект, ActiveX DLL, добавляешь требуемые картинки, как Custom Resources. Для удобства можно в библиотеке определить Public-функцию, к примеру ExtractPicture(PictureID) As StdPicture, чтобы упростить работу с изображениями (эта функция будет извлекать требуемую картинку, сохранять на диск и выполнять LoadPicture)

[AktauFox]

Спасибо попробую , а ты не могбы поподробнее написать как в коде описать "хранилище картинок"..ActiveX DLL не содержит же ни форм ни хрена, только код

[alibek]

Что-то типа того (код не проверял, могут быть ошибки)

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

Public Function ExtractPicture(ByVal PictureID As Long) As IPictureDisp
Dim B() As Byte, FN As Integer. F As String
F = App.Path
If Right$(F, 1) <> "\" Then F = F & "\"
F = F & "tmp.jpg"
B() = LoadResData(PictureID, "JPEG")
If Len(Dir$(F)) = 0 Then Kill F
FN = FreeFile
Open F For Binary As #FN
Put #FN, , B()
Close F
Set ExtractPicture = LoadPicture(F)
End Function

Добавь в проект ресурсы (вначале убедись, что в Add-Ins'ах подключен VB 6 Resource Editor), после этого добавь к ресурсам нужные файлы, тип ресурсов выставь "JPEG".

[AktauFox]

Дороф... ещё такой вопрос
я добавил в VB 6 Resource Editor JPG ? а как их от туда достовать, какой код ссылки, Pleas раскажи по подробнее очень надо , у тебя есть Аська ??

[alibek]

Напрямую достать JPEG ты не сможешь, во всяком случае я не знаю, как это сделать. Но ты можешь получить данные (байтовый массив через LoadResData), выгрузить во временный файл и работать с этим файлом.

ICQ 112681341

[AktauFox]

тоесть этот Resource Editor не хранит в себе картинки, он просто засасывает их кодом ??

[GM]

Я когда то с этим стыкался. Где это у меня эта функция завалялась. Разыщу, выложу.

[GM]

Вот примерчик склепал.(Функция не моя)