DELPHI 各种代码

主要使用的功能就是在内网络架设服务器软件，然后在外网进行访问。内网网络穿透

人脸识别服务器端软件设计(delphi XE10)

部分金蝶软件需要的表格其实并不是标准的EXCEL表格，所以如果按EXCEL的方式生成，就无法在金蝶中进行导入。直接上代码var WXLogFile: TextFile; WXLogFileName: string;begin WXLogFileName := 'd:\jd.XLS'; Assignfile(WXLogFile, WXLogFileName); rewrite(WXLogFile); Closefile(WXLogFile); Assignfile(WXLo

四、各端直连硬件的独立程序：1、独立程序仅对硬件进行操作，不与数据库进行连接，所有执行参数由各端连接数据库后采用进程间通讯的方式传输。2、按通讯原路返回硬件执行结果与硬件状态，完成代码复用，避免一次修改后需要把想同代码部署到其它端的情况。五、后台端内部调整：1、由单标签模式修改为多标签模式，实现多表格可以自由切换查询结果，互相印证。2、设计通用参数表作为与其它端的数据交互基础，将权限等经常需要增加的内容保存在通用参数表中，避免其它端要使用开发新功能时必须后台先进行数据设置，达到各端可自行研发。3

关于线上支付的那些小问题：不涉及技术方面内容一、与线上支付对接阶段：1、先作小DEMO，把SDK等跑通，至少需要获取token、支付、查询、退款2、由小DEMO提取出最小单位的函数组成一个新的单元，如获取支付环节可以分解为支付前获取基础信息、支付前根据基础信息生成所有数据、支付后获取支付结果、支付后分析支付界面等。3、设置数据库内容，将支付、查询、退款中所有小函数单元的执行前参数，执行后结果保存到数据库中，这点很重要，一旦后期支付出现问题，如果只保存了执行后的结果根本没有办法去判断问题出在哪里。二

DELPHI 编译开关的简单应用场景1、根据不同的系统版本进行不同的编译//安卓编译{$IFDEF ANDROID}{$ENDIF}//windows 编译{$IFDEF MSWINDOWS}{$ENDIF}2、在工程中的某一个单元中，进行特殊的编译，手动调整为建立，或者不使用，就可以改变编译结果{$DEFINE qt}{这行可以理解为 qt 这个变量建立了}{.$DEFINE SOA}{这行可以理解为 SOA 这个变量不使用了}{$IFDEF qt} {写代码}{$

1、SHOW出来的窗口按ALT后会切换到主窗口，原因应该是按ALT时调用了主窗口的WINDOWS功能的菜单解决方案一：主窗口的borderstyle 修改为 bsnone。解决方案二：将SHOW出来的窗口的父窗口设置为一个PANLE等控件2、listview记录多时的记录定位for i := 0 to ListView3.Items.Count - 1 do begin if ListView3.Items.Item[i].SubItems[0] = edit1.Text the.

一、整体流程说明1、DELPHI +Chromium 控件。因为美团网站不支持webbrowser2、采用模拟人工操作方式与美团互动（高级方法也有，但学习一下去感觉不值得，还是以解决问题为主）3、采用Chromium的缓存功能保持长时间连接4、功能完成后适当的优化验票流程二、Chromium控件1、谷歌浏览器的控件。2、安装控件后，自带的有demo。用里面的minbrowser的作基础模板3、Chromium1LoadEnd事件是加载完网站的一部分后响应，框架一类的都有反应。关键代码fr

一、采用IdHTTPServerunit fun_send;interfaceuses Winapi.Windows, System.Classes, IPPeerClient, REST.Client, REST.Types, System.JSON;function rest_get(server_url: string; send_name_strlist: TStringList; send_info_strlist: TStringList): string;func

重无到有，记录连接微信公司平台的过程一、需要准备的资料1、一台有外网的服务器，开放80端口2、注册一个微信公众平台订阅号（个人只能申请这个）二、建立一个 restserver（dshttpserver的端口号必须是80）用来接入微信开发模式，参考以前写的https://blog.youkuaiyun.com/weixin_44387646/article/details/106218176。然后测试一下，能通讯并且收到返回值就可以三、建立一个新函数让微信可以验证//引用IdHashSHAf

一、不同的电脑时间格式有可能不同，会导致转换时间格式数据时意外报错。二、需要写几个小函数来统计软件运行过程中的时间格式。1、数据库日期时间格式函数function format_sql_datetime(temp_datetime: string; date_interval: string = '/'; time_interval: string = ':'): string;var yyyy: string; mm: string; dd: string; hh: str

一、设计数据库1、优惠类型表（至少包括优惠类型名称、大类名称、小类名称）2、优惠信息表（至少包括优惠名称、所属优惠类型名称）3、优惠构成条件表（至少包括优惠名称、构成条件）4、优惠目标表（至少包括优惠目标，优惠金额）二、优惠计算例如：有一个优惠名称为‘10元优惠券’，购买A商品与B商品，则C商品减10元1、判断是否有A商品，如果有，A商品添加‘临时标记’，继续2、判断是否有B商品，如果有，B商品添加‘临时标记’，继续3、判断是否有C商品，如果有，C商品添加‘临时标记’

前提：PHP端用$_post 接收一、delphi idhttppost上传数据时如果使用temp_stream: TStringStream; 内存流的方式上传则需要指明IDHTTP的contentypevar idhttp2: TIdHTTP; temp_stream: TStringStream; temp_url: string; temp_str: ...

一、生成var json: ISuperObject; json_sub: array of ISuperObject; i: integer;begin json := SO; json.S['i'] := '5'; json.O['show'] := SA([]); SetLength(json_sub, 3); for i := 0 to Length...

7.0代码ROOM,STIME,GNAME,GID,gate:ARRAY[0..50] OF CHAR;function ReadCard(ROOMNO,GATE,STIME,GUESTNAME,GUESTID,track1,track2:pchar;CARDNO,st,Breakfast:pinteger):integer;stdcall external 'MainDll.Dll';...

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

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

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

一、串口单元unit SPComm;//{$WARN SYMBOL_DEPRECATED OFF}//// This Communications Component is implemented using separate Read and Write// threads. Messages from the threads are posted to the Comm c...

今天想用DELPHI XE 连接西门子的S7-200 Smart 由于手上还没有PLC，所以没进行连接测试。一、连接一个厂家(QQ:532011903)拿到三个连接用的文件和DELPHI连接源代码（WinTcpS7_Smart.dll、MSWINSCK.OCX、msvbvm60.dll、一大堆DELPHI 连接源代码）。二、打开源代码能看到所有控件。三、提示缺少WinTcpS7_S...

一、直接上代码procedure TForm2.Button2Click(Sender: TObject);var bmp: Tbitmap; Stream: TMemoryStream;begin bmp := Tbitmap.Create; // ImageList1.GetBitmap(1, bmp); // IMAGELIST转 // Image1.Pict...

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

一、定义结构体type Tfrequency_band_list = class frequency_band_name: string; frequency_band_pic_color: string; frequency_band_pic_Stream: TMemoryStream; end;二、结构体的使用//全局变量var frequ...

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

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

源码：https://download.youkuaiyun.com/download/weixin_44387646/11060732一、申请百度账号uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl...

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

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

unit data_mouble;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, ...

type TCPUID = array [1 .. 4] of Longint;FUNCTION GetCPUID1: TCPUID; assembler; register;asm PUSH EBX { Save affected register } PUSH EDI MOV EDI,EAX { @Resukt } MOV ...

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