Delphi 华为云接口签名
delphi 华为云AKSK签名
难点主要是用的D7开发的，签名算法要求是rsa256 。网上找资料后是调用libeay32.dll 函数来实现签名。
从网上找到libeay32.pas
1 (******************************************************************************
2 Delphi import unit for OpenSSL libeay, version 0.7m, 2010-11-0 ...
吐血整理 Delphi系列书籍 118本（全）
Delphi 教程 系列书籍 网友（老帅）整理
001_《Delhpi6数据库设计思想与实践》
002_《Delphi6应用开发指南》
003_《Delphi6开发人员指南》
004_《Delphi6数据库开发典型实例》
005_《Delphi6组件大全》
006_《深入Delphi6 网络编程》
007_《Delphi6数据库深入编程技术》
008_《Delphi6程序设计教程》
009_《Delphi6编程基础 ...
Delphi - Record记录和变体记录
原文地址：https://blog.csdn.net/yt_maomao/article/details/36631133
//Integer类型刚好是4个字节,ShortInt类型是1个字节，但是Windows中内存是4字节分配，//所以这里其实还是4个字节，用SizeOf可以看到这个record的大小是8字节，这样虽然浪//费了空间，但是加快了速度(Windows内存分配中的边界对齐原理)TPerson = record ...
Delphi - TStringBuilder类
//TStringBuilder.Create 可以无参数
procedure TForm1.Button1Click(Sender: TObject);
var
sb: TStringBuilder;
begin
sb := TStringBuilder.Create;
sb.Append('Embarcadero');
sb.Append(' CodeGear');
sb.Append(' Delphi');
sb.Append(' 2009');
ShowMessage(sb.ToString); {Embarcadero CodeGear De ...
delphi amf3 demo
delphi amf3 demo
procedure TForm1.Button1Click(Sender: TObject);
//还原
var
buff: array of Byte;
bufflen, I: Integer;
hex: string;
XXX: variant;
begin
hex := Trim(Memo1.Lines.Text);
bufflen := Length(hex) div 2;
SetLength(buff, bufflen);
for I := 0 to bufflen - 1 do
begin
buff ...
Delphi - 如何调试 DLL
网上看到很多人问delphi中如何调试 DLL 的，众大侠回答也基本一致，但是，我使用时却时灵时不灵，今天发现了原因。
完整的调试 DLL方法如下：
1）新建一个 DLL 工程，名字就叫 MyDll 吧，编译后生成 MyDll.dll，我们要调试的就是它了。
2）新建一个用来调试 MyDll 的 Application 工程，名字就叫 MyDllTest 吧，编译后生成 ...
Delphi - TStringList 用法详解
delphi TStringList 用法详解
//TStringList 常用方法与属性 :var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1);&nb ...
Delphi WinAPI 消息函数 PostMessage
Delphi WinAPI 消息函数 PostMessage
描述：在与创建指定窗口的线程关联的消息队列中放置（发布）消息，并在不等待线程处理消息的情况下返回。要在与线程关联的消息队列中发布消息，请使用PostThreadMessage函数。
原型：
BOOL PostMessageA(
HWND hWnd, //窗口的句柄，其窗口过程是接收消息
UINT Msg, //要 ...
delphi安装fastreport6
1.下载csdn的fastreport6的压缩包。地址附在下方。
https://download.csdn.net/download/qq_15267865/12653879
2.右键，以管理员的权限打开文件recompile.exe
3.选择自己的delphi版本。
4.可选择语言为中文，也可以就选择英文，选择安装时的包，然后点击comple
5.在delphi10中，或者delphi 7中引用路径。就comple之后， ...
delphi 字符串详解
delphi 字符串详解
短字符串和字符数组
// 字符串数组的定义
var
Str1, str2: array of [0..6] of AnsiChar; //在delphiXE中Char是双字节，这里使用AnsiChar是为了和书中保持一致。
// 为了解决字符串类型不丰富的问题，delphi中引入了字符串，其中有Shortstring，ANSIString， WideString。
// 为了与传统pascal字符串相 ...
delphi消息详解
消息
消息的定义
windows中消息的定义
PMsg = ^TMsg
tabMSG = packed record
hwnd: HWND; // 这个是窗口句柄，真正由句柄的类是从TWinControl继承下来的。
message: UINT;
wParam: WPARAM;
lParam: LPARAM;
time: DWORD;
pt: Pointer;
end;
TMSG = tagMSG;
MSG = tagMSG;
// TMsg 是根据windows定义的消息 ...
Delphi TADOStoredProc [2] Parameters 介绍
{该文首发于博客园 滔Roy，无须授权即可转载，请自觉保留头部申明}
Delphi TADOStoredProc [2] Parameters 介绍
1、常用参数：
Clear //清空
Refresh //初始化参数
ParamByName //传递参数值
CreateParameter //创建参数值
ParamValues[]
AddParameter
FindParam
Co ...
Delphi TADOStoredProc [1] 的使用
Delphi TADOStoredProc [1] 的使用
1、介绍
TADOStoredProc 存储过程组件
2、常用参数
ProcedureName //存储过程名称
Parameters //参数设置 例如：Parameters.ParamByName('@a1').Value
ExecProc; //执行存储过程
3、操作示例：
3.1 动态参数序号赋值
DataSource1. ...
Delphi中Messagedlg的用法与汉化
messageDlg, 是在对话框显示消息，并等待用户点击一个按钮，然后返回一个整数确定知道是那个按钮.原型:MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; HelpCtx: Longint): IntegerMsg:想要提示的文字DlgType:对话框的类型Buttons:对话框中的 ...
Delphi DBGrid 数据排序（ADOQuery、ADOTable、AdoDataSet、Clientdataset、UniQuery、FDQuery）
Delphi DBGrid 数据排序（ADOQuery、ADOTable、AdoDataSet、Clientdataset、UniQuery、FDQuery）
1、DBGrid 配合ADOQuery 使用
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
i: integer;
begin
for i := 1 to DBGrid1.Columns.Count do
begin
//恢复所有标题字体为默认
DBGrid1.Columns[i - 1].Ti ...
delphi的hashmap
delphi的hashmap
/// 支持D7，更低版本没有测试，支持跨OS
unit hashMap;
interface
uses
SysUtils;
type
PHashData = ^THashData;
THashData = record
KeyS: string;
KeyI: Int64;
Next: PHashData;
Data: Pointer;
end;
THashMap = class
private
FBucketsSize: Cardinal; ...
bosn.pas
bosn.pas
unit bson;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
interface
uses
SysUtils,
Classes,
Contnrs;
{
BSON element format
<type:byte> <c-str> <data>
<data> below
}
const
BSON_EOF = $00;
BSON_FLOAT = $01; //double 8-byte float
BSON_STRING = $02; //UTF-8 string
BSON_DOC = $03; / ...
Delphi中的线程类
转贴于 华夏黑客同盟 http://www.77169.org
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对
TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的目的在于对此作一个补充。
线程 ...
Delphi的HashMap
使用过Java的朋友，应该知道它有个超好用的HashMap容器类，面试必问的，在Delphi10中有TDictionary类，但Delphi7没得用，所以自己动手，使用数组 + 链表写个类似Java的HashMap类，提供给所有坚守Delphi的朋友们，性能还是相当不错的。
1 {*******************************************************}
2 { ...
Delphi Timage 介绍和操作[1]（图片判断、清空、类型）
Delphi Timage 操作（图片判断、清空、类型）
1、Timage 介绍
1.1 介绍
TImage 组件的的使用，主要功能是显示图像、美化界面。TImage 组件经常和TPanel 组件结合使用，以TPanel 组件的边框来划分TImage 组件的边界。在Image 组件调用图片时，可以利用Picture 属性进行指定，也可以在程序中用Picture.LoadFromFile()方 ...
