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.
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
endExecuting the command:
$ dfm-to-json resources/sample.dfmproduces 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": []
}
]
}$ git clone https://github.com/jean-lopes/dfm-to-json.git
$ cd dfm-to-json
$ stack install
$ dfm-to-json --versionIf 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