摘要：unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V
阅读全文
posted @ 2024-01-13 16:28
随笔分类 - Delphi
摘要：关于TJSONConverters的使用 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.C
阅读全文
posted @ 2024-01-10 17:18
摘要：涉及的重要类 REST.Json，REST.JsonReflect，REST.Json.Interceptors, REST.Json.Types单元中。 一、TJson类 最简单的一个类，提供了JSON -> OBJECT和OBJECT -> JSON几个方法，方法有TJsonOptions参数，
阅读全文
posted @ 2024-01-10 16:41
摘要：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
摘要：一、扔上一个 TWebFileDispatcher 二、将RootDirectory属性设为 ./vite-project/dist
阅读全文
posted @ 2022-01-29 23:40
摘要：简单的封装了一下，有很多不完善的地方，很多细节未考虑进去。 client代码 unit ClientMainFormUnit; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Syst
阅读全文
posted @ 2021-01-22 20:56
摘要：fetchData() { (async ()=> { const valueObj = { UserName: 'jjw', Tel: '123456' } let d2 = await fetch('http://127.0.0.1:8080/datasnap/rest/TServerMetho
阅读全文
posted @ 2020-11-07 20:20
摘要：procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin if UpperCase
阅读全文
posted @ 2020-11-06 22:57
摘要：1 uses 2 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 3 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBa
阅读全文
posted @ 2020-03-29 21:20
摘要：dataset.first while not dataset.eof do begin --N行代码 dataset.next; end 讨厌上面的写法了,作个封装. 1 interface 2 3 uses 4 System.SysUtils, System.Classes, Data.DB;
阅读全文
posted @ 2020-03-29 01:17
摘要：delphi 10.2+up3 win7 自带IIS 发布测试 客户端用DSRestConnection1连接. 问题是 datasnap (群qq:67803772)一个 群友提出的, 经过摸索发现 DSRestConnection1.urlPath 需要设置为 IIS发布的名称 + 访问路径 测
阅读全文
posted @ 2020-03-05 15:54
摘要：try {// http.post 调用 updatelogin 方法 http.get 调用 login 方法 const { data: res } = await this.$http.post('/TSM/login/', { _parameters: [this.loginForm.use
阅读全文
posted @ 2020-02-19 14:59
