Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > txt->bmp

Автор: BLACK_KOT 29.9.2010, 13:03

когда на форму кидаешь картинку делфи сохраняет её в текстовом виде в файле формы .dfm примерно так:

Код


object Image1: TImage
    Left = 352
    Top = 88
    Width = 16
    Height = 16
    Picture.Data = {
      07544269746D617032250000424D322500000000000032010000280000006000
      000060000000010008000000000000240000120B0000120B00003F0000003F00
      00000029A5000839A50018429C000839AD00184294000039AD0029528C000029
      ...
      0B0F10060B0B1D0E0202020E02020E0E0E0E040E120E040E12120E0A0A0D}
  end

моя прога работает с файлами .dfm , извлекая от туда нужное. например находит описание кнопки, её размеры, свойства, события и генерирует такуюже, только на winapi. как мне из этого текста собрать картинку?

Автор: Snowy 29.9.2010, 13:42

Код

var
  ms,os: TMemoryStream;
  f:  TForm;
begin
  ms := TMemoryStream.Create; // здесь у нас dfm файл
  os := TMemoryStream.Create; // здесь у нас dfm в бинарном представлении
  Application.CreateForm(TForm, f); // из этой формы мы сделаем то, что прописано в dfm
  ms.LoadFromFile('C:\Unit1.dfm'); // грузим dfm
  ms.Position := 0;
  RegisterClass(TImage); // перед загрузкой формы, нужно зарегестрировать все классы, которые на ней будут
  try
    ObjectTextToBinary(ms, os); // превращаем в бинарный вид
    os.Position := 0;
    os.ReadComponent(f); // грузим dfm на форму
    f.ShowModal; // можем юзать форму - весь dfm в ней - можно разбирать на компоненты
  finally
    os.Free;
    ms.Free;
    f.Free;
  end;

Автор: Alexeis 29.9.2010, 13:56

BLACK_KOT, универсального способа открытия любого dfm файла нет. Каждый компонент может сериализоваться особым способом.
Конкретно для битмапа имеем 07 - длина строки определяющая название метакласса, затем сама строка названия ASCII - "TBitmap", затем вероятно размер битмапа в байтах hex - 32 25 00 00 = 9522, после чего идет "BM" сигнатура битмапа. Фактически после размера битмапа в хексе все байты битмапа, которые нужно сконвертировать из текстового представления в бинарное и сохранить на диске.

Автор: BLACK_KOT 29.9.2010, 15:45

Цитата

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

всё ясно кроме этого. как мне сконвертировать из текстового представления в бинарное?

вот конкретная картинка: (целиком)

Код


Picture.Data = {
      07544269746D61707E000000424D7E000000000000003E000000280000001000
      0000100000000100010000000000400000000000000000000000020000000200
      000000000000FFFFFF00FEBF0000F80F746FF0076772E0036869C0016170C001
      000080000D0080000C018000000080000000C0010000C0010000E0030000F007
      FFFFF80FFFFFFFFF0000}

тоесть я должен скопировать:
                                                            424D7E000000000000003E000000280000001000
      0000100000000100010000000000400000000000000000000000020000000200
      000000000000FFFFFF00FEBF0000F80F746FF0076772E0036869C0016170C001
      000080000D0080000C018000000080000000C0010000C0010000E0030000F007
      FFFFF80FFFFFFFFF0000
и конвертировать этот текст в бинарник. так? подскажите как это сделать

Автор: Snowy 29.9.2010, 16:39

Любой объект из dfm можно сконвертить с помощью ObjectTextToBinary.
И наоборот - ObjectBinaryToText превратит объект, сохранённый в стрим, в его текстовое dfm представление.
Ну, а если вручную, то поочерёдно каждую пару хекс символов поочереди перегоняешь в байт и пишешь в стрим.

Добавлено через 3 минуты и 46 секунд
А смысл расковыривать dfm ручками?
Конвертни его целиком в бинарник, да работай с готовым бинарным стримом.

Добавлено через 11 минут и 35 секунд
Если охота ворочать бинарный стрим ручками, то можешь посмотреть, как это делает TReader - он просто разбирает его на составляющие, вытягивая проперти, классы, имена, значения, стримы и т.д.
Собственно его сама дельфя и юзает.
Это гораздо удобне, чем парсить текст dfm, в котором может быть что угодно, в том числе и не предусмотренное. Тогда твой код собъётся нафиг.
А, парся бинарный стрим, можно просто проскимнуть неизвестные вещи. Там всё пишется единообразно.
Либо пишется фиксированное простое значение, типа integer'a
Либо 2 байта длина, а потом само тело значения,
Либо идёт код начала списка, перечисление значения, код завершения списка.

Автор: BLACK_KOT 29.9.2010, 16:50

спасибо, Snowy