Сочетание в одном файле и текстовой и графической информации

[Dany]

Как создать файл последовательного доступа содержащий и текст и изображение, как его прочитать, можете подсказать структуру такого файла. У меня
есть идеи но может есть способ сделать проще. Как организовать структуру файла при открытии которого моя программа будет читать не только текстовую информацию (текст, координаты объектов, кодировки цвета, кодировки шрифтов), но и считывать изображения, а не ссылки на них. У меня получается исполнительный файл и еще ресурсы в виде растровых изображений. Помогите поскольку программа очень сложная как только закончу ее обязятельно опубликую или выложу на сайте. (основное направление интерактивный терминал - сочетание векторного редактора, с пользовательским подключением к БД, с поддержкой графического программирования, работой с объектами и их свойствами, ну в общем это, моя научная работа и у меня есть эта проблема с содержанием в одном файле различных типов информации).
Прошу долго не дискутировать на тему работы, а просто оценить и предложить варианты решения такой вот проблемы.

[Debugger]

XML.
Или бинарный файл. Я бы выбрал его.

[alibek]

Запакованный XML.

[Joo]

Попробуй поюзать PropertyBag
Его свойства WriteProperty и ReadProperty, для получения бинарного содержимого пользуй свойство Contents. Я чтобы не замарачиваться хранил с помощью него скины. там и картинки и текст и все что хочешь.

Пример:

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

Private Sub Command1_Click()
    Dim pb As New PropertyBag
   
    pb.WriteProperty "WIDTH", 500
    pb.WriteProperty "HEIGHT", 600
    pb.WriteProperty "LEFT", 100
    pb.WriteProperty "TOP", 50
    pb.WriteProperty "CAPTION", "Test"
   
    Open App.Path + "\test.prb" For Binary As #1
        Put #1, , pb.Contents
    Close #1
   
    Set pb = Nothing
End Sub

Private Sub Command2_Click()
    Dim pb As New PropertyBag
    Dim ByteArr  As Variant
   
    Open App.Path + "\test.prb" For Binary As #2
        Get #2, , ByteArr
    Close #2
   
    pb.Contents = ByteArr
    Width = pb.ReadProperty("WIDTH", Me.Width)
    Height = pb.ReadProperty("HEIGHT", Me.Height)
    Left = pb.ReadProperty("LEFT", Me.Left)
    Top = pb.ReadProperty("Top", Me.Top)
    Caption = pb.ReadProperty("CAPTION", Me.Caption)
   
    Set pb = Nothing
End Sub