Alex delphiapp
delphiapp
/ pObjectClear.dpr
Created
January 10, 2023 12:48
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| program pObjectClear; | |
| {$APPTYPE CONSOLE} | |
| {$DEFINE VER2} | |
| {$IFDEF FPC} | |
| {$MODE Delphi} | |
| {$ENDIF} |
delphiapp
/ pHTTPServer.dpr
Created
January 10, 2023 08:35
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| program pHTTPServer; | |
| {$IFDEF FPC} | |
| {$MODE Delphi} | |
| {$ENDIF} | |
| {$APPTYPE CONSOLE} | |
| {$DEFINE VER2}//switch to another version |
delphiapp
/ pHTTPServer.dpr
Created
January 10, 2023 05:52
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| program pHTTPServer; | |
| {$APPTYPE CONSOLE} | |
| {$DEFINE VER2}//switch to another version | |
| uses | |
| forms, SysUtils, Windows | |
| {$IFDEF VER2} | |
| ,mormot.rest.http.server |
delphiapp
/ SaveAll.json
Created
August 30, 2022 07:49
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| { | |
| "ModelListSV": | |
| [ | |
| { | |
| "SubData": { | |
| "FileName": "example" | |
| } | |
| } | |
| ] | |
| } |
delphiapp
/ SaveAll.json
Created
August 29, 2022 07:11
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| { | |
| "ModelListUstr": { | |
| "ModelList": | |
| [ | |
| { | |
| "Name": "NameUstr", | |
| "DateTime": "2022-08-26T11:13:11", | |
| "TipList": | |
| [ | |
| { |
delphiapp
/ SaveAll.json
Created
August 26, 2022 08:14
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| { | |
| "ModelListUstr": { | |
| "ModelList": | |
| [ | |
| { | |
| "Name": "NameUstr", | |
| "DateTime": "2022-08-26T11:13:11", | |
| "TipList": | |
| [ | |
| { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| { | |
| "ModelUstr": | |
| [ | |
| { | |
| "ModelIEC": { | |
| "VRecIEC": { | |
| "TypeSynchTime": 3, | |
| "VklIEC61850": false, | |
| "EthCount": 0, | |
| "MACAdress1": "", |