对接快递单每个快递商家的接口都不同,但基本大同小异,主要的算法都是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 ...