DELPHI 各种代码

DELPHI的记录 都是代码

delphi xe2 HmacSHA256

以后估计得用XE2编程了。先来个加密的 具体完成的功能就不上传了,毕竟公司项目 IdGlobal, IdHashSHA, IdHMAC, IdHMACSHA1, IdSSLOpenSSL; THMACUtils<TIdHMACSHA256>.HMAC_Base64...

2019-07-04 09:05:55

阅读数 15

评论数 0

delphi XE LISTVIEW导出EXCEL

1、调用 listtoexcel('abcd', jjd_list, 5);//第一个参数没什么用,随便写的。第二个参数就是LISTVIEW。第三个参数代表哪列是数值型。 2、代码 function listtoexcel(ttname: string; tt: TListView; nu...

2019-05-21 10:59:04

阅读数 22

评论数 0

DELPHI xe 10 的获取CPUID

type TCPUID = array [1 .. 4] of Longint; FUNCTION GetCPUID1: TCPUID; assembler; register; asm PUSH EBX { Save affected register } PU...

2019-05-10 10:19:27

阅读数 48

评论数 0

DELPHI 压缩ACCESS数据库

unit data_mouble; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Control...

2019-04-26 16:58:15

阅读数 12

评论数 0

DELPHI XE 与PLC通讯(INTCPSERVER 二进制)

一、与PLC通讯采用TCPSERVER方式 二、配合PLC发送二进制数据。 var i: integer; RecClient: TIdContext; buf: TIdBytes; begin SetLength(buf, 2); buf[0] := ord('W');...

2019-04-10 08:57:51

阅读数 93

评论数 0

DELPHI XE 编译开关-一套代码不同平台编译

随便找个地方用就行,省的每个平台都要一个工程了 {$IFDEF ANDROID} 这里是安卓 {$ELSE} {$IFDEF IOS} 这里是苹果 {$ELSE} 这里是除了安卓和苹果 {$ENDIF} {$ENDIF} ...

2019-04-10 08:52:54

阅读数 48

评论数 0

DELPHI XE10 百度车牌识别

源码:https://download.csdn.net/download/weixin_44387646/11060732 一、申请百度账号 uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants...

2019-03-26 11:44:09

阅读数 155

评论数 0

DELPHI XE10 ANDROID 界面设计-个人心得

功能性的代码可以在WINDOWS下先调试好(代码中增加WINDOWS与ANDROID的编译开关,方便调试),否则在ANDROID里太费劲。 一、用LAYOUT控件布局,使用控件的ALIGN属性来适应不同的屏幕大小 二、先布局,后调整界面。 三、有确定按钮的地方尽量放在屏幕上方,否则弹出输入法...

2019-03-07 13:36:15

阅读数 707

评论数 0

DELPHI xe 动态效果多时的控件闪烁

一、问题:界面中有时会发生控件闪烁问题。 二、解决方法:把闪烁控件的父控件的DoubleBuffered属性修改为TRUE

2019-03-07 11:26:24

阅读数 142

评论数 0

DELPHI 控件的相对坐标与屏幕坐标转换

一、直接上代码 var pt: TPoint; r: TRect; begin pt := Point(Edit1.Top, Edit1.Left); pt := ClientToScreen(pt); Edit2.Text := inttostr(pt.X); Edi...

2019-02-27 13:51:45

阅读数 304

评论数 0

delphi 结构体的使用、Tbitmap和TMemoryStream的转换

一、定义结构体 type Tfrequency_band_list = class frequency_band_name: string; frequency_band_pic_color: string; frequency_band_pic_Stream: T...

2019-02-26 15:25:55

阅读数 194

评论数 0

DELPHI image与LISTVIEW之间的拖拽

https://download.csdn.net/download/weixin_44387646/10967016 界面中两个IMAGE,一个LISTVIEW,实现将任意一个IMAGE拖拽到LISTVIEW上的Item,更换listview中的图标。 DELPHI XE10下可用   ...

2019-02-20 16:58:03

阅读数 42

评论数 0

DELPHI SPEEDBUTTON按钮动态加载图片(从IMAGE和IMAGELIST)

一、直接上代码 procedure TForm2.Button2Click(Sender: TObject); var bmp: Tbitmap; Stream: TMemoryStream; begin bmp := Tbitmap.Create; // ImageList...

2019-02-20 11:44:52

阅读数 281

评论数 0

DELPHI XE10 连接西门子的PLC S7-200 Smart 连接DLL文件

今天想用DELPHI XE 连接西门子的S7-200 Smart  由于手上还没有PLC,所以没进行连接测试。 一、连接一个厂家(QQ:532011903)拿到三个连接用的文件和DELPHI连接源代码(WinTcpS7_Smart.dll、MSWINSCK.OCX、msvbvm60.dll、一...

2019-02-19 11:18:02

阅读数 215

评论数 0

DELPHI XE10 串口操作单元

一、串口单元 unit SPComm; //{$WARN SYMBOL_DEPRECATED OFF} // // This Communications Component is implemented using separate Read and Write // threads....

2019-02-18 11:44:11

阅读数 347

评论数 0

delphi 中SetLength 错误问题

delphi 中SetLength 错误问题 一、上代码 var newbutton: array of TButton;//定义一个全局变量 . . . . . . SetLength(newbutton, 30);//设置长期 newbutton[1] := TButton.Crea...

2019-02-15 16:58:00

阅读数 105

评论数 0

DELPHI 到底有啥用

DELPHI 可以写WINDOWS、ANDROID上的应用。基础控件也够用了,适合单人作战。 WINDOWS上其实还挺丰富的,开发个东西也快,但现在用的人不多。 ANDROID上资料更少了,但是开发点界面的东西还可以,作点演示小程序没毛病。 ...

2019-02-15 13:52:09

阅读数 37

评论数 0

DELPHI IMAGE 上画透明圆 计算两点直线距离

说明:一个程序用到要区域干扰界面显示,就想到了这个方法,代码可运行,这里只有简单的示例,不要纠结能完成什么功能。三角函数在编程过程中还真能用上。 注意:IMAGE要加载.BMP的图片。 一、放一个IMAGE 二、上代码 unit Unit2; interface uses Win...

2019-02-15 13:43:35

阅读数 119

评论数 0

DELPHI ADO连接数据库

说明:代码都是工程里拷贝出来的,一定好用,但可能引用了无用的单元。不追求效率,能完成就可以。其它连接数据库的控件,修改一下就可以。ANDROID上连接SQLITE用的TFDConnection这个控件,也可以写成这样的方式。 一、新建立一个TDataModule单元(个人理解,就是没有界面,方便...

2019-02-15 13:27:58

阅读数 119

评论数 0

DELPHI编辑环境

F12:切换代码和图形界面 F9:运行程序 F8:单步运行(方便调试) 下断点(调试的时候用):在代码编辑环境下点左边的小蓝点(XE10),点完就变红 双击可视化控件或按钮:直接进放代码编辑模式(运行后的点击事件) 控件上右键-->VIEW AS TEXT--&am...

2019-02-15 13:04:42

阅读数 43

评论数 0

提示
确定要删除当前文章?
取消 删除
关闭
关闭