Delphi Form File (DFM) to JSON converter

Convert a DFM to JSON, for more information issue --help command

You can download the latest release here.

You can check the grammar (EBNF) here.

Example

Consider this DFM sample.dfm:

object Form1: TForm1
  Left = 192
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  object Image1: TImage
    Picture.Data = {
      07544269746D617036550000424D365500000000000036000000280000005500
      000055000000010018000000000000550000C40E0000C40E0000000000000000
    }
  end
  object ListBox1: TListBox
    Items.Strings = 
      ( 'this is string.' 
      + 'and another one...'
      + 'and another one...'
      + 'now with apostrophe '''#13#10
      + 'even with control characters '#7#9'mixed in the string'
      )
  end
  object DBGrid1: TDBGrid
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    Columns = <
      item
        Expanded = False
        Visible = True
      end
      item
        Expanded = False
        Visible = True
      end>
  end
end

Executing the command:

$ dfm-to-json resources/sample.dfm

produces the following JSON:

{
  "kind": "object",
  "name": "Form1",
  "type": {
    "name": "TForm1",
    "index": null
  },
  "properties": {
    "font.name": "MS Sans Serif",
    "font.style": [],
    "left": 192
  },
  "objects": [
    {
      "kind": "object",
      "name": "Image1",
      "type": {
        "name": "TImage",
        "index": null
      },
      "properties": {
        "picture.data": "07544269746D617036550000424D365500000000000036000000280000005500000055000000010018000000000000550000C40E0000C40E0000000000000000"
      },
      "objects": []
    },
    {
      "kind": "object",
      "name": "ListBox1",
      "type": {
        "name": "TListBox",
        "index": null
      },
      "properties": {
        "items.strings": [
          "this is string.and another one...and another one...now with apostrophe '\r\neven with control characters \u0007\tmixed in the string"
        ]
      },
      "objects": []
    },
    {
      "kind": "object",
      "name": "DBGrid1",
      "type": {
        "name": "TDBGrid",
        "index": null
      },
      "properties": {
        "columns": {
          "items": [
            {
              "name": "item",
              "properties": {
                "expanded": false,
                "visible": true
              }
            },
            {
              "name": "item",
              "properties": {
                "expanded": false,
                "visible": true
              }
            }
          ]
        },
        "options": [
          "dgTitles",
          "dgIndicator",
          "dgColumnResize",
          "dgColLines",
          "dgRowLines",
          "dgTabs",
          "dgRowSelect",
          "dgConfirmDelete",
          "dgCancelOnExit"
        ]
      },
      "objects": []
    }
  ]
}

Building from source

Requirements

• git
• stack

Commands

$ git clone https://github.com/jean-lopes/dfm-to-json.git
$ cd dfm-to-json
$ stack install
$ dfm-to-json --version

If you can't execute the last command, it means you don't have the default stack install directory in your environment PATH variable. check local-bin-path

Tip for windows users: default stack local-bin-path is: %APPDATA%\local\bin