摘要: uses System.JSON; procedure TForm1.Button1Click(Sender: TObject); var JSONObject, JSONObject1: TJSONObject; // JSON类 jsonArray: TJSONArray; // JSON数组变 阅读全文
posted @ 2020-09-25 09:57 周黔 阅读(1506) 评论(0) 推荐(1)
摘要: unit HOHttpAsynPost; interface Uses System.Classes,Winapi.Windows,System.SysUtils,IHOHttpAsynPost ,uLogger,System.Net.URLClient, System.Net.HttpClient 阅读全文
posted @ 2020-07-31 10:08 周黔 阅读(774) 评论(0) 推荐(0)
摘要: APP.Json { "pages":[ "pages/index/index", "pages/logs/logs" ], "window":{ "backgroundTextStyle":"light", "navigationBarBackgroundColor": "#FFF", "navi 阅读全文
posted @ 2020-05-02 00:17 周黔 阅读(165) 评论(0) 推荐(0)
摘要: procedure DllMain(Reason: Integer); register; begin case reason of DLL_PROCESS_ATTACH: //整个DLL的初始化代码 begin // library enter code SaveApplication := Ap 阅读全文
posted @ 2020-03-12 11:08 周黔 阅读(672) 评论(0) 推荐(0)
只有注册用户登录后才能阅读该文。 阅读全文
posted @ 2019-12-08 00:04 周黔 阅读(13) 评论(0) 推荐(0)
摘要: delphi 能实现把别的DLL的窗体句柄查到后,贴到PANL之中,此类文章网上不少,而如果是delphi不同版本开发的DLL互调时,一些控件内部的定义有所区别,因为无法(至少目前我觉得理论上不可行)实现不同版本的DLL融合一体式的共用同一个appcation. 因此,跨版本的DLL调用,实际上也就 阅读全文
posted @ 2019-11-26 09:36 周黔 阅读(707) 评论(0) 推荐(0)
摘要: 查不少资料,在 时,显示的字体,并不是按DPI显示,特别是同时在屏幕与打印机显示时,差异更明显 在切换 UnitPoint 能解决该问题,但是又遇到了新的问题,我想绘图后保存到文件,且需要高分辨率时,就over了 重新查看微软官方API时,发现官方API与delphi中的一致,哪说明该问题,应该是有 阅读全文
posted @ 2019-09-09 19:01 周黔 阅读(688) 评论(0) 推荐(0)
摘要: 在调用DLL 动态在T Image 绘图时,传入 Image.Canvas.Handle 后,却总是绘不上,有时偶尔能绘上,却没搞清原因,而同样的代码,传入窗体的 Handle ,绘图却正常。 经过多方资料找查,反复测试,最后发现, Image.Canvas.Handle 在第二次调用时,值就有所不 阅读全文
posted @ 2019-08-21 19:28 周黔 阅读(300) 评论(0) 推荐(0)
摘要: 在所有资料中,每英寸相素点之比一般是这两个值,即:0.0393700788 25.399999961392 但是在GDI编程中,却遇到LOGPIXELSX LOGPIXELSY 在取值为96DPI时,屏幕显示会有微小偏差,该偏差在绘到整张A4纸大小时,已经很明显。 反复查资料,未能找到原因,最后改为 阅读全文
posted @ 2019-08-12 10:54 周黔 阅读(242) 评论(0) 推荐(0)
摘要: { 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) }Perform($000B, 0, 0); //锁屏幕 防止闪烁// 做一些会发生严重闪烁的事情..//解锁屏幕并重画Perform($000B, 1, 0);RedrawWindow(Handle, nil, 0, RDW_FRAME + R 阅读全文
posted @ 2019-08-07 11:23 周黔 阅读(1476) 评论(0) 推荐(0)