VBNet - Форум - Grafika i tekst v odnom faile

Вопрос: Grafika i tekst v odnom faile Добавлено: 07.12.03 03:45

Автор вопроса: StrikeR | Web-сайт: www.highlight.ee | ICQ: 151819

Vsem, zdraste.
U mnja takoi vopros: kak mozno sdelat fail, kotrqi hranil bq v sebe kak grafiku, tak i kakoi libo tekst (t.e. esli ja hochu sdelat kakoi nit skin, to mne nuzno chto bq v faile bql sam skin(kartinka) i kakja nibud informacija(tipa sozdatel, version i.t.d.))
Podskazqte plz kak mne sdelat takoi fail i kak mne ego otkrqt.
Spasibo

Ответить

Ответы Всего ответов: 18

Номер ответа: 1
Автор ответа:

Fallout

Вопросов: 10
Ответов: 387

Web-сайт: mudator.by.ru
Профиль | | #1

Добавлено: 07.12.03 03:58

ну можешь сделать свой формат графики..... типа.. так....

вначале идёт заголовок там ты заносишь нужную тебе информацию..

ID - тип ресурса...

LOOKUP - сдвиг относительно начала файла на данные твоего ресурса....

SIZE - размер блока твоего ресурса...

UNKNOW - ну какое нибудь специфическое значение.. например ..... размер ресинку(высота , ширина....)

ну а сам рисунок сделаешь в том формате в котором удобнее загружать .... можно сделать просто ..... друг за дружкой цвета пикселов ......

00000000FFFFFFFFFFFFFFFF

вот так например ..... это значит .... 1 чёрный и 2 белых пиксела.... ты считываешь по своему сдвигу .... этот блок .. а потом заносишь его .. куда хочешь .. используя например SetPixel

Ответить

Номер ответа: 2
Автор ответа:

StrikeR

ICQ: 151819

Вопросов: 32
Ответов: 110

Web-сайт: www.highlight.ee
Профиль | | #2

Добавлено: 07.12.03 05:53

eee.....Fallout, ja v VB ne master(vozmozno k sozaleniju) poetomu ja ne ochen-to i ponjal kak vsjo eto sdelat. Esli budet vremja i vozmoznost, posli primer kuda tebe udobnee ili na forum, ili na mqlo (strikerxxl@hot.ee)

PS: tolko tq ne podumai, chto mne prosto v padlu vsjo eto samomu sdelat, prosto deistvitelno, ja nifiga ne ponjal. V primerah na VBnet.ru ja nichego ne nashel.

Ответить

Номер ответа: 3
Автор ответа:

Morpheus

Вопросов: 224
Ответов: 3777

Web-сайт: xury.zx6.ru
Профиль | | #3

Добавлено: 07.12.03 06:24

Блин, енто же бубль гум! Тут нужна технология OLE как в MS ворде.

Ответить

Номер ответа: 4
Автор ответа:

Last_Santa

ICQ: 200700724

Вопросов: 38
Ответов: 329

Web-сайт: localhost
Профиль | | #4

Добавлено: 07.12.03 07:00

а не легче для шкурки, за кинуть картинки и файл описания в архив и сменить .zip на , сажем, .scn и потом програмно извлекать эти данные...тем самым убиваются два зайца:

1. Не нужно сильно в никать в тонкости файловых форматов и технологию OLE

2. Даст возможность любому пользователю (при наличии SDK) создавать свою шкуру

Ответить

Номер ответа: 5
Автор ответа:

Morpheus

Вопросов: 224
Ответов: 3777

Web-сайт: xury.zx6.ru
Профиль | | #5

Добавлено: 07.12.03 07:20

А ты случайно не знаешь как файлы извлекать?

Ответить

Номер ответа: 6 Автор ответа: Last_Santa ICQ: 200700724 Вопросов: 38 Ответов: 329	Web-сайт: localhost Профиль \| \| #6	Добавлено: 07.12.03 07:25
	ну есть же куча ОСХ-ов да и сам алгоритм описан до нельзя Ответить

Номер ответа: 7
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #7

Добавлено: 07.12.03 08:44

Глянь моё творение PicInDoc (было ещё продолжение этой темы ExtPic).
Так извлекаются рисунки из файлов
Можно комбинировать текст и графику находя между текстом коды начала и конца рисунков.

Можно и так как сказал уважаемый Fallout и принято в мировой практике.
Создать в начале файла таблицу с указанием начала тестовых и графических данных.

А можно скомбинировать эти два способа.

Ответить

Номер ответа: 8
Автор ответа:

Александр

Разработчик Offline Client

ICQ: 204034

Вопросов: 106
Ответов: 1919

Профиль | | #8

Добавлено: 07.12.03 11:34

Ты лучше делай так:

Сохранение формата:

возьми rtf-файл, напихай туда текста, графики. зазипуй это дело с помощью dll'ок и переименнуй

Открытие формата:

Делай все в обратном порядке...

Удачи.

Ответить

Номер ответа: 9
Автор ответа:

Александр

Разработчик Offline Client

ICQ: 204034

Вопросов: 106
Ответов: 1919

Профиль | | #9

Добавлено: 07.12.03 11:45

Забыл сказать: переименовывать надо разширение. Это будет твое личное разширение.

Ответить

Номер ответа: 10
Автор ответа:

StrikeR

ICQ: 151819

Вопросов: 32
Ответов: 110

Web-сайт: www.highlight.ee
Профиль | | #10

Добавлено: 07.12.03 16:53

2 Александр: horosho, a kak mne vqtashit kortinku iz RTF formata??.
2 CyRax :posmotrel tvoi ptimer "ExtPic", skachal, posmotrel ishodnik.....hichego ne ponjal

A mozno li sdelat svoju DLL`ku, v kotori prisudstvuet forma na kotoroi Image1 tusuetsa. Potom programno ejo (dll`ku) podkljuchit k proge i vqtashit Image1 ot tuda.

Esli eto vozmozno, mozet kto nibud podskazet, gde mozno stateiku pro to kak normalno sosdovat dll i kak ih podkljuchat k svoim progam.(Ne ispolzuja "Project"-> "References"), a to ja tak tolkom i ne razobralsja. Kuchju primerov smotrel po dll i nichego ne ponjal, tam bez objasneni.

Vsem spasibo, kto mne otvetil.

Ответить

Номер ответа: 11 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #11	Добавлено: 08.12.03 04:20
	"ExtPic", это не мой. Мой - PicInDoc. Ответить

Номер ответа: 12 Автор ответа: Last_Santa ICQ: 200700724 Вопросов: 38 Ответов: 329	Web-сайт: localhost Профиль \| \| #12	Добавлено: 08.12.03 05:36
	еще один неплохой вариант для скина это .dll с ресурсами 'Объявления Declare Function LoadLibrary Lib "kernel" (ByVal lpLibFileName As String) As Integer Declare Function FindResource Lib "kernel" (ByVal hInstance As Integer, ByVal lpname As String, ByVal lpType As Any) As Integer Declare Function LoadResource Lib "kernel" (ByVal hInstance As Integer, ByVal hResInfo As Integer) As Integer Declare Function LockResource Lib "kernel" (ByVal hResData As Integer) As Long Declare Function FreeResource Lib "kernel" (ByVal hResData As Integer) As Integer Declare Sub FreeLibrary Lib "kernel" (ByVal hInstance As Integer) Private sub LoadResurseFromDLL Dim hInstance As Integer Dim hResInfo As Integer Dim hRes As Integer Dim lpRes As Long Dim iReturn As Integer hInstance = LoadLibrary("c:\skin.dll") hResInfo = FindResource(hInstance, "Picture1", "BITMAP") hRes = LoadResource(hInstance, hResInfo) lpRes = LockResource(hRes) picture1.picture = lpRes iReturn = FreeResource(hRes) FreeLibrary(hInstance) End Sub Ответить

Номер ответа: 13
Автор ответа:

StrikeR

ICQ: 151819

Вопросов: 32
Ответов: 110

Web-сайт: www.highlight.ee
Профиль | | #13

Добавлено: 08.12.03 05:59

2 Last_Santa: A kak mne sdelat Dll s resurosm?

tolko ne smotri na menja kak na idiota, ja deistivtelno tolko nedavno zasel za VB

Ответить

Номер ответа: 14 Автор ответа: Last_Santa ICQ: 200700724 Вопросов: 38 Ответов: 329	Web-сайт: localhost Профиль \| \| #14	Добавлено: 08.12.03 06:17
	Лучший вариант это написать библиотеку на C++ это можно зделать даже вообще не зная языка, т.к. код в ней нам не нужен, можно обойтись просто ресурсами (хотя было бы красивее написать функции, которые возвращяли бы тебе необходимые данные о файле)... Короче если есть Visual C++ запускаешь, мастером создаешь библиотеку и на вкладке Resurses добавляешь что тебе надо... компилишь библиотеку... Можно написать библиотеку на Делфине либо на чем что тебе ближе.. VB6 не подходит т.к. он создает не настоящие DLL, а ActiveX Ответить

Номер ответа: 15
Автор ответа:

Александр

Разработчик Offline Client

ICQ: 204034

Вопросов: 106
Ответов: 1919

Профиль | | #15

Добавлено: 08.12.03 18:48

2 StrikeR: бр-р-р... говори почетче... и если не сложно на мыло. Объясню.

Ответить

Страница: 1 | 2 |