随笔分类 -  delphi

1 2 下一页

CEF4Delphi（DELPHI Google Chrome 浏览器封装） 折腾 （1）--安装
摘要：1、下载：https://github.com/salvadordf/CEF4Delphi/tree/master 2、安装 包：CEF4Delphi-master\packages 目录中，如果不行，全部包都编译一下。 3、下载运行环境：地址 到 https://github.com/salvad 阅读全文

posted @ 2023-08-25 16:00 周黔 阅读(1261) 评论(0) 推荐(0) 编辑

Delphi WINAPI 任意拖动移动控件
摘要：转： procedure DragControl(WinControl: TWincontrol);const SC_DRAGMOVE = $F012;begin ReleaseCapture; WinControl.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);en 阅读全文

posted @ 2022-08-16 13:21 周黔 阅读(150) 评论(0) 推荐(0) 编辑

DELPHI 调用标准C接口DLL char *value
摘要：delphi调用标准C接口DLL char * 的调用，因内部实现的不同。并无标准代码可用，需要跟据接口实际情况来调整入参类型与格式。 随手所记，并未全部验证 调用方式0 申明 iReadM1Card:function(SecNr:Integer;DataBlock:Integer; SecKey: 阅读全文

posted @ 2022-05-30 15:39 周黔 阅读(488) 评论(0) 推荐(0) 编辑

[转]Regions and Clipping in GDI+
摘要：regionNclipping.zip This article has been excerpted from book "Graphics Programming with GDI+".The Graphics class provides methods to clip regions. Us 阅读全文

posted @ 2020-09-29 16:40 周黔 阅读(246) 评论(0) 推荐(0) 编辑

delphi 10.4 JSON 建立数组示例
摘要：uses System.JSON; procedure TForm1.Button1Click(Sender: TObject); var JSONObject, JSONObject1: TJSONObject; // JSON类 jsonArray: TJSONArray; // JSON数组变 阅读全文

posted @ 2020-09-25 09:57 周黔 阅读(1424) 评论(0) 推荐(1) 编辑

delphi 10.3实现TNetHTTPClient 异步 POST 另类实现返回附加标记及Unicode 编码与解码 \u
摘要：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) 编辑

Delphi DLL 消息循环 Synchronize SendMessage PostMessage
摘要：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 周黔 阅读(619) 评论(0) 推荐(0) 编辑

delphi 窗体中显示透明遮盖层思路
只有注册用户登录后才能阅读该文。

posted @ 2019-12-08 00:04 周黔 阅读(13) 评论(0) 推荐(0) 编辑

delphi 跨版本DLL调用嵌入窗体实现
摘要：delphi 能实现把别的DLL的窗体句柄查到后，贴到PANL之中，此类文章网上不少，而如果是delphi不同版本开发的DLL互调时，一些控件内部的定义有所区别，因为无法（至少目前我觉得理论上不可行）实现不同版本的DLL融合一体式的共用同一个appcation. 因此，跨版本的DLL调用，实际上也就 阅读全文

posted @ 2019-11-26 09:36 周黔 阅读(654) 评论(0) 推荐(0) 编辑

DELPHI GDI + TGPFont UnitPixel 问题解决
摘要：查不少资料，在 时，显示的字体，并不是按DPI显示，特别是同时在屏幕与打印机显示时，差异更明显 在切换 UnitPoint 能解决该问题，但是又遇到了新的问题，我想绘图后保存到文件，且需要高分辨率时，就over了 重新查看微软官方API时，发现官方API与delphi中的一致，哪说明该问题，应该是有 阅读全文

posted @ 2019-09-09 19:01 周黔 阅读(638) 评论(0) 推荐(0) 编辑

delphi DLL image 动态绘图 句柄处理
摘要：在调用DLL 动态在T Image 绘图时，传入 Image.Canvas.Handle 后，却总是绘不上，有时偶尔能绘上，却没搞清原因，而同样的代码，传入窗体的 Handle ，绘图却正常。 经过多方资料找查，反复测试，最后发现， Image.Canvas.Handle 在第二次调用时，值就有所不 阅读全文

posted @ 2019-08-21 19:28 周黔 阅读(288) 评论(0) 推荐(0) 编辑

delphi 每英寸相素点取值偏差
摘要：在所有资料中，每英寸相素点之比一般是这两个值，即：0.0393700788 25.399999961392 但是在GDI编程中，却遇到LOGPIXELSX LOGPIXELSY 在取值为96DPI时，屏幕显示会有微小偏差，该偏差在绘到整张A4纸大小时，已经很明显。 反复查资料，未能找到原因，最后改为 阅读全文

posted @ 2019-08-12 10:54 周黔 阅读(227) 评论(0) 推荐(0) 编辑

[转]delphi 防止刷新时闪烁的终极解决办法
摘要：{ 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) }Perform($000B, 0, 0); //锁屏幕 防止闪烁// 做一些会发生严重闪烁的事情..//解锁屏幕并重画Perform($000B, 1, 0);RedrawWindow(Handle, nil, 0, RDW_FRAME + R 阅读全文

posted @ 2019-08-07 11:23 周黔 阅读(1337) 评论(0) 推荐(0) 编辑

VC GDI 像素转厘米（英寸）[转发]
摘要：【转载】http://blog.sina.com.cn/s/blog_638dd78201018663.html 函数原型：int GetDeviceCaps(int nIndex);常用的参数有（参考MSDN）：int iHORZSIZE=pDC->GetDeviceCaps(HORZSIZE); 阅读全文

posted @ 2019-03-13 18:07 周黔 阅读(402) 评论(0) 推荐(0) 编辑

kbmmemtable sorton 报错 ： List index out of bounds
摘要：同一数据集，不同的排序条件，有的可以，但某一条件，却能100%重现报错。 反复跟代码，发现在 kbmMemTable.PAS中，当J减至0时，FReferences[J] 下标越界 试改为FIndexFieldList.Count>0前判断条件却未解决，说明并非是递减原因，改为大于J，未报错，是否有 阅读全文

posted @ 2019-03-08 13:42 周黔 阅读(659) 评论(0) 推荐(0) 编辑

delphi 利用 InterlockedCompareExchange 实现主线程维一锁等待
摘要：在进行资源锁定时，一般是线程之间进行交互，很少需要在主线程也对资源进行锁定。 不过在一些复杂的业务中，存在子线程与主线程的交互，且一些资源也同步在主线程中使用时，主线程资源锁，就有存在的必要。 假定有一个需求，在SQLITE更新时，需要共同一个更新组件，以减少资源建立与释放及相对应内存回收的需求，则 阅读全文

posted @ 2019-01-24 14:12 周黔 阅读(950) 评论(0) 推荐(0) 编辑

Delphi的TService 服务路径获取 Dll中获取文件路径
摘要：研究delphi服务的路径，试了好几个方法 ，都没取出来，最后发现，要采用取DLL路径的方法 //一、获取Dll自身路径 //1)方法一： Function GetDllPath（sDllName:string):string; var ModuleFileName:array[0..255] of 阅读全文

posted @ 2018-11-21 13:54 周黔 阅读(905) 评论(0) 推荐(0) 编辑

delphi idhttp post 普通提交乱码处理
摘要：用stringlistPOST提交时会乱码，改用该方法后解决。 阅读全文

posted @ 2018-05-23 09:19 周黔 阅读(3378) 评论(2) 推荐(1) 编辑

cxgrid 非编辑状态下复制当前列的值 真折腾人
摘要：1、自带的CTRL +C 只能复制整行，不知是不是版本问题。 2、有分组这个代码就不行了 s:= G1DBView.DataController.Values[G1DBView.Controller.FocusedRowIndex ,G1DBView.Controller.FocusedColumn 阅读全文

posted @ 2018-04-28 15:25 周黔 阅读(756) 评论(1) 推荐(0) 编辑

delphi JPG图片 旋转 切边 缩放
摘要：用中文参数变量，别笑，这样只是为了让大家更好的解读一些重点代码。 注意我这儿的图片质量，都用了高质量，如果觉得处理的大小太大，则可以降低质量来获得小一些的文件 注意：1、参数值为0时，表示该项不处理。2、处理为依次执行，即旋转、切边、缩放，后一项的参数，也应参考前一项，而非原图参数3、缩放只支持等比 阅读全文

posted @ 2018-03-22 09:08 周黔 阅读(2801) 评论(0) 推荐(0) 编辑

1 2 下一页