对接快递单每个快递商家的接口都不同，但基本大同小异，主要的算法都是md5 和Base64。一般提供的Demo都不会有Delphi的。其实md5和Base64Delpi都自带了。 base64一般都不会有问题，主要是md5，很多用Delphi对接的，主要的问题都是出在这里。下面我分享对接两个不同快递接 ...
竟然忘了更新一个多月，公司的工作太忙了，每天10点到23点周六不休息 媳妇给我买了Switch，我考虑再三买了512G的TF卡全下载数字版的游戏 第一个下载的就是侍魂闪，但是NS都手柄完全玩不了格斗游戏 我挑选了半天买了8位堂的M30，手感不错，可能也是唯一的选择了 Pro手柄我也买了还在路上，但是 ...
请问uniListBox如何调整某行内容的字体颜色 用一个只有一列的UniStringGrid代替 object UniStringGrid1: TUniStringGrid Left = 312 Top = 58 Width = 320 Height = 240 Hint = '' FixedCo ...
用uniGUI专有控件TUniTreeMenu 2.0给TUniTreeMenu菜单添加图标 2.1给TUniTreeMenu菜单添加事件 2.2修改背景色 2.3调整行高 2.4改变字体和大小 2.5改变选 中项的 前景色和鼠标浮过某项的 前景色 太多的子菜单将超出屏幕范围 2] 用uniGUI专 ...
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var i: Integer; ...
1]uniButton设置图标 2]uniButton扁平化CSS 1]设置IconCls属性，这种方法不需添加ImageList,简单方便，推荐使用 2]如嫌方法1的图标样式太少，可载入本地图标，双击UniNativeImageList控件，推荐使用 设置uniButton的Images属性和Im ...
1]父容器的AlignmentControl设为uniAlignmentClient 2]父容器的Layout设为hBox//水平盒式排列 3]子控件的排列比例 4]设置控件间格 修改父控件的大小，子控件 的大小也会随之按按比例改变 ...
虽然百度大家一直在骂，但是我发现其实百度有些东西还是可以用的。现在大家都搞人工智能了，我们Delphi也不可以落后。废话不多说，直接上代码 第一步，先获取AccessToken function GetAccessToken(const client_id, client_secret: strin ...
1 uses 2 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 3 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBa ...
1]添加一个DBNavigator1,其DataSource设置为与DBGrid1一样 2]双击DBGrid1里一个单元格，修改数据后，点DBNavigator1的绿勾提交修改 3]DBGrid1的ReadOnly一定为False,否则双击修改不了 ...
1]连接好数据库，并显示；(设计时的连接，和运行时的连接，是两个独立的连接，要区分开) procedure TForm1.FormCreate(Sender: TObject); begin FDQuery1.Connection := FDConnection1; FDConnection1.Lo ...
EPX是利用基于Pascal的FastScript语言作为基础语言，在其中增加了许多函
数与特性的一个扩展，将EPX组件本身融入到语言中去，使其能够更加灵活方便
地运用EPX的所有功能，实现与EPX核心的友好交互。 ...
第一步： 设置cxgrid的属性， OptionsView.Indicator = True 第二步： 写OnCustomDrawIndicatorCell方法 procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(Sender: T ...
界面代码： object Form1: TForm1 Left = 252 Top = 190 Width = 1149 Height = 549 Caption = 'Form1' Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color ...
首先提供两个XML文件 XML代码如下： 1、Example.xml <?xml version="1.0" encoding="ISO-8859-1"?> <chart> <series title="Series1" type="Point" color="#FF0000"> <points c ...
1】Navicat for SQLite ,直接导入，会出现好多问题，即使导入成功，最后一个字经常会是乱码，这方法放弃 2】编程转换，JSON文本文件中有好多偏僻字，Delphi 里的UTF8toAnsi函数往往不成功，这方法放弃/因为Delphi自带的转换函数遇到其无法识别的字符串就返回空 fun ...
界面代码： object Form1: TForm1 Left = 568 Top = 393 Width = 725 Height = 408 Caption = '对象观察器' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color ...
界面代码： object Form1: TForm1 Left = 202 Top = 182 Width = 1305 Height = 675 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Colo ...
先上图 功能代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, Series, TeeNavigato ...
1]改变文本Caption 2]改变颜色字体Font 3]点击访问网址,OnClick事件 3.1访问网址另一种简单办法 1]改变文本Caption unilabel1.Caption:='unilabel1文本'; 2]改变颜色字体Font.不是直接改Color,而是 uniLabel1.Font ...
