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()方 ...
Delphi - indy10访问https网站的方法！！！
Delphi：10.3
Indy ：10.6.2
尽情享受拿着好代码直接用的幸福吧！！！先直接上代码吧？下面代码已经经过充分测试，加入足够多的注释，包括各处关键代码如果不存在会发生什么类型的错误的注释！！！
//需要引入的单元uses
IdBaseComponent, IdComponent, IdServerIOHandler, IdSSL, IdSSLOpenSSL,
IdTCPConnectio ...
Delphi WinAPI CopyFile、CopyFileEx、CopyFileTransacted -复制文件
Delphi WinAPI CopyFile、CopyFileEx、CopyFileTransacted -复制文件
1、CopyFile
功能描述：将现有文件复制到新文件。CopyFileEx函数提供了两个附加功能。CopyFileEx可以在每次复制操作的一部分完成时调用指定的回调函数，并且可以在复制操作期间取消CopyFileEx。若要将此操作作为事务处理操作执行，请使用CopyFileT ...
Delphi 图片转换（jpg、bitmap、png、gif）
Delphi 图片转换（jpg、bitmap、png、gif）
1、jpg
var
jpg: TJPEGImage; // 要uses Jpeg单元
begin
// 显示jpg大图片的方式
jpg := TJPEGImage.Create;
jpg.LoadFromFile(getcurrentdir() + '\pic.jpg');
Image1.Picture.Bitmap.Assign(jpg); // 因为 img 控件是基于bmp的
jpg.Free;
end;
2、bitmap
...
CodeTyphon - 如何像Delphi一样，有一个一体的界面？
CodeTyphon和Lazarus一样，默认都是Delphi5最初那种分离的界面，可能已经习惯了现在Delphi的一体界面，所以想把它弄成一体的！！
一，Lazarus一体化：
1，需要的插件
实现整合窗口的功能，只需要用到 Lazarus 自带的 anchordockingdsgn.lpk 插件，这个插件位于：
${Lazarus_install_dir}/components/a ...
