posted @ 2023-08-25 14:06
08 2023 档案
摘要:TOL = class(TObject) public procedure W(W: TJsonWriter; Instance: TObject; Options: TTextWriterWriteObjectOptions); end; TPerson = class private FName
阅读全文
摘要:TFileServiceFunction = record strict private type TFunctionNameRec = record const LoadFile = 'LoadFile'; SaveFile = 'SaveFile'; GetAllFileNames = 'Get
阅读全文
posted @ 2023-08-22 14:34
摘要:mormot2框架中有个THttpServer类,它有一个Router属性,定义如下: property Router: TUriRouter read fRoute; Router是添加路由的入口点,它有和http协议对应的get, post, put, delete等方法,这些方法可以添加路由,
阅读全文
posted @ 2023-08-17 10:23
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V
阅读全文
posted @ 2023-08-15 16:20
摘要:TConverterEx<T: class> = class(TJsonConverter) public function CanConvert(ATypeInf: PTypeInfo): Boolean; override; function ReadJson(const AReader: TJ
阅读全文
posted @ 2023-08-14 18:28
摘要:TConverterCommon = class(TJsonConverter) public function CanConvert(ATypeInf: PTypeInfo): Boolean; override; function ReadJson(const AReader: TJsonRea
阅读全文
posted @ 2023-08-14 14:54
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V
阅读全文
posted @ 2023-08-09 17:00