DELPHI - 技术教程文章
SQLite与Delphi XE4 （一）【图】
时隔这么久，因为工作中需要将一些图片序列文件进行分析，然后将结果进行分组统计，而分组统计用SQL语法很容易实现，但是要求程序运行的环境中安装有庞大的数据库系统，经过网上的寻找，终于发现了SQLite。SQLite是一款开源的（呵呵，对于我们来说就是免费的）、嵌入式关系型数据库，省去了专用于关系型数据库管理系统日常费用，它没有独立运行的进程，它与所服务的应用程序在应用程序进程空间内共生共存。这样的数据库正是我所需要...
delphi 窗口置顶及uniquery.locateEx的用法
窗口置顶：SetWindowPos(Form_showerr.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);数据集的locate方法：uses memdata;DataModule1.UniQuery_hklist.LocateEx(‘普查机构代码;户籍归属地派出所代码;户号;姓名‘,VarArrayOf([dzm,pccode,hh,xm]),[lxPartialCompare])原文：https://www.cnblogs.com/wxb-km/p/13825339.html
Delphi中Messagedlg的用法与汉化
messageDlg, 是在对话框显示消息，并等待用户点击一个按钮，然后返回一个整数确定知道是那个按钮.原型:MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; HelpCtx: Longint): IntegerMsg:想要提示的文字DlgType:对话框的类型Buttons:对话框中的按钮HelpCtx:定义对话框的帮助屏幕，使用HelpCtx参数可以指定当用户单击Help按钮或按F1键所弹出的帮助主题的帮助上下文ID，一般也用不上，用0，表示帮助主题...
delphi TreeView 从数据库添加节点的四种方法
方法一：delphi中递归算法构建treeView过程：通过读取数据库中table1的数据，来构建一颗树。table1有两个字段：ID,preID，即当前结点标志和父结点标志。所以整个树的表示为父母表示法。本递归算法不难写，但是要注意：程序内部的变量都应使用局部变量！比如当Query是外部变量（函数外定义或者直接通过控件拖拽得来）时就会得到错误的结果。代码如下： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, ...
delphi 窗体的创建和释放【代码】
Delphi中的窗体分为模式窗体和无模式窗体。二者的区别在于，用户可以在无模式窗体和其他窗体之间切换。这样，用户就可以同时工作于一个应用程序的几个部分。Delphi中窗体的初始化有两种情况，动态创建，和自动创建。通过show显示一个无模式窗体，ShowModal显示一个模式窗体。窗体有创建对应的也要考虑释放问题。当关闭一个窗体时，窗体并没有真正从内存中释放掉，它仍然存在于内存中，除非关闭了主窗体。因为模式窗体于无模式窗体的...
Delphi 的运算符列表
分类运算符操作操作数结果类型范例算术运算符+加整数，实数整数，实数X + Y-减整数，实数整数，实数Result - 1*乘整数，实数整数，实数P * InterestRate/实数除整数，实数实数X / 2div整数除整数整数Total div UnitSizemod取模整数整数Y mod 6+(一元)符号等同整数，实数整数，实数+7-(一元)符号相反整数，实数整数，实数-X布尔运算符not否定布尔型Booleannot (C in MySet)and与布尔型BooleanDone and (Total > 0)or或布尔型Boolean...
设置Delphi XE4默认界面样式【图】
VCL BitMap Style Proceject Options->Application->Appearance选择几个样式使用代码设置 uses Vcl.Themes;procedure TForm1.Button1Click(Sender: TObject);begin TStyleManager.TrySetStyle(‘Amakrits‘);end; XE4默认皮肤列表WindowsAmakritsAmethyst KamriAqua GraphiteAqua Light SlateAuricCarbonCharcoal Dark SlateCobalt XEMediaCyan DuskCyan NightEmerald Light SlateGolden GraphiteIceberg ClassicoLavender C...
Delphi实例-IdTCPServer和IdTCPClient的使用(支持文件发送)【代码】【图】
相关资料：http://blog.csdn.net/earbao/article/details/46514313 结果注意：1.Use IdContext、IdGlobal 这两个单元2.不能使用string类型，在分存分配时会出错的。3.手机中不支持string[20]。 实例代码： 1unit Unit1;2 3interface 4 5uses 6 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,7 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ScrollBox,8 FMX.Me...
Delphi 的信息框相关函数
Delphi 的信息框相关函数delphi messagebox 弹出信息提示框大全原文：http://www.cnblogs.com/ufindme/p/4402302.html
delphi FMX 数字下拉滑动【图】
comboboxhttp://docwiki.embarcadero.com/RADStudio/Berlin/en/Using_Pickers_to_Provide_Platform-Specific_Behavior_and_View_of_Selection_Controlshttp://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.ListBox.TComboBox_Propertieshttp://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.ListBox.TCustomComboBox.PlacementDropDownKind属性Placement： CustomDefines to use the standard FireMonkey drop-down list...
在Delphi中动态建立数据库结构
在Delphi中动态建立数据库结构 刘军发-------------------------------------------------------------------------------- 一、问题的提出在程序运行过程中动态建立数据库结构是我们编写功能通用的数据库管理系统常见的问题。通用数据库管理系统开发的基本思路是:系统允许用户自行设定管理对象的数据库结构,然后通过算法和编程技巧,在用户设定完成后动态创建管理对象的数据库结构和完成系统功能的一些其它数据,这样可以满足不同用...
《zw版·Halcon-delphi系列原创教程》cgal与opencv,Halcon【图】
《zw版·Halcon-delphi系列原创教程》cgal与opencv,Halcon opencv作为少有的专业开源图像软件，虽然功能，特别是几何计算方面，不如Halcon，不过因为开源，作为教学，讲解图像分析原理，还是不错的。 不过，笔者个人认为，老牌开源几何计算库CGAL，同样是开源软件，作为图像教学可能更加适合。 实际图像工程当中，必须使用opencv的环境，笔者往往也是opencv+cgal的模式。 cgal虽然对于delphi的支持很差，不过对...
delphi 计算函数执行时间 TStopwatch【代码】
先定义两个函数function sumX(x, y: Integer): Integer;function sumY(x, y: Integer): Integer; inline;计算函数执行时间procedure TForm5.Button5Click(Sender: TObject); varsw: TStopwatch;i, j: Integer; beginj := 0;sw := TStopwatch.StartNew;for i := 0to100000000dobeginj := sumX(i, j); //普通函数 end;sw.Stop;ShowMessage(‘first do expand time =‘ + IntToStr(sw.ElapsedMilliseconds) + ‘‘); //602 j := 0;sw ...
Delphi回调函数及其使用
Delphi回调函数及其使用 1 回调函数的概述 回调函数是这样一种机制：调用者在初始化一个对象（这里的对象是泛指，包括OOP中的对象、全局函数等）时，将一些参数传递给对象，同时将一个调用者可以访问的函数地址传递给该对象。这个函数就是调用者和被调用者之间的一种通知约定，当约定的事件发生时，被调用者（一般会包含一个工作线程）就会按照回调函数地址调用该函数。 这种方式，调用者在一个线程，被调用者在另一个线程。 消...
Delphi里可将纯虚类实例化，还可调用非虚函数
这是与Java/C++的巨大不同。目前还没仔细想这个特征与TClass之间的联系，先记住结论再说。以后再回来修改这个帖子。 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } en...
Delphi XE Starter Essentials 中文目录
Table of Contents1. Delphi XE Starter IDE 1Delphi and C++Builder ....................................................................... 12007版的时候，IDE称为RAD Studio，并包括一个Delphi for .NET个性。2009版的时候，Delphi for .NET被Delphi Prism for .NET代替，IDE保留了 Delphi和CB++。Installation ........................................................................................ 1安装包括2个步...
delphi 在 DragDrop 的时候，滚动 TreeView
在 DragDrop 的时候，滚动 TreeView当高度不够的时候 procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);begin if (y <15) then {On the upper edge - should scroll up } SendMessage(TreeView1.Handle, WM_VSCROLL, SB_LINEUP, 0) elseif (TreeView1.Height - y <15) then { On the lower edge - should scroll down } SendMessage...
让delphi解析chrome扩展的native应用【代码】【图】
http://www.cnblogs.com/freeton/p/4801163.htmlchrome浏览器自从去年以来逐步去掉了对浏览器插件的支持，npapi的方案马上不可用。 当务之急要选择一个替代方案，最常用的就是扩展了。扩展程序提供了一套和本地程序交互的方案——“原生消息通信”写本地应用的工具和语言很多，比如:C#,C++,phyon 都可以，本人对delphi熟悉一点，就说说delphi怎么接收和发送消息的吧。Chrome扩展对原生消息通信有非常明确的说明Chrome 浏览器在单独...
Delphi函数参数中的陷阱【图】
function abc(A: Integer): Integer;这是一个Delphi的函数声明，看上去很简单，只有一个参数而已，但是真实情况呢？在编译成二进制代码后，实际上函数的参数已经有3个了！ 为了更详细的说明问题，先用Delphi写一个DLL，导出一个接口，接口有一个Show方法。library Project1;usesWindows;{$R *.res}typeITest = interfaceprocedure Show(); stdcall;end;TTest = class(TInterfacedObject, ITest)publicprocedure Show(); stdcall;en...
RO05 - 如何编写RemObjects SDK服务端 (Delphi Version)
转载：http://blog.csdn.net/henreash/article/details/2261134本文档向你展示如何使用RemObjects(Delphi版)创建第一个服务.读了本文档后你可以继续读相关文档: RO06:如何创建RemObjects客户端(Delphi版). 注意:如果你安装了.NET版请看RO45 和 RO46. 你可以把本文档当作一个范例并牢记创建步骤. 本文相关项目完整代码在文档底部有下载连接. 选择服务类型 第一步主要是选择一个你要创建的服务类型. 在Delphi IDE中点击File | New | ...
Delphi调用webservice总结【图】
Delphi调用C#写的webservice 用delphi的THTTPRIO控件调用了c#写的webservice。下面是我调试时遇到的一些问题：1：导入wsdl文件：file--new----other----webservice---WSDLimporter---输入wsdl地址:如下:http://127.0.0.1/ WebService/WebServiceCall.asmx?wsdl注意末尾的：‘？wsdl‘不能少。要不可能会说找不到。2：设置THTTPRIO控件的属性：把http:// 127.0.0.1 /WebService/WebServiceCall.asmx?wsdl赋给URL属性，而不是赋给wsd...
[原创] Delphi Win API函数 操作帮助文件 HtmlHelpA函数介绍
Delphi Win API函数 操作帮助文件 HtmlHelpA函数介绍函数原型：HWND HtmlHelpA( HWND hwndCaller, LPCSTR pszFile, UINT uCommand, DWORD_PTR dwData );Delphi 中引用：function HtmlHelpA (hwndcaller:Longint; lpHelpFile:string; wCommand:Longint;dwData:string): HWND;stdcall; external ‘hhctrl.ocx‘; //调用这个 hhctrl.ocx 控件里面的函数，一般windows系统 都有带 官方操作示例： HtmlHelp( GetDesktopWindow(), "...
Delphi中字符串补齐方法
函数功能：当Str不满Len长度时，在Str前自动填充PadStr以补足长度,例子如下：Str：原字符串Len：补多长PadStr：用什么补齐，比如‘0’function PadString(Str: string; Len: Integer; PadStr: Char): string;begin Result:= StringOfChar(PadStr, Len - Length(Str)) + Str;end;原文：http://www.cnblogs.com/theonewu/p/3693274.html
Delphi 10.4.1使用传统代码提示方案【图】
Delphi 10.4重点是实现了LSP，但现在最新的10.4.1还是不成熟，无法满足日常需要，不过没关系，可以设置为原有的方案，如下图： 原文：https://www.cnblogs.com/kinglandsoft/p/14238969.html
[原创]K8_Delphi源码免杀系列教程[2014]【图】
[原创]K8_Delphi源码免杀系列教程[2014]虽是2014年的，但免杀思路方法并未过时比如函数动态调用\代码注释法等至今依然有效链接：https://pan.baidu.com/s/1HgiFvSwNm8An1eaOYx2n8A 提取码：ka58 原文：https://www.cnblogs.com/k8gege/p/10486696.html
delphi中的各种文件类型介绍
1.DPR: Delphi Project文件，包含了Pascal代码。应用系统的工程文件2.PAS: Pascal文件，Pascal单元的源代码，可以是与窗体有关的单元或是独立的单元。3.DFM：Delphi Form File,描述窗体或数据模块及其组件属性的二进制文件。窗体界面文件, 同PAS文件同名,而 且一一对应, 定义了窗体属性和构件的属性,4.BPG Borland Project Group 工程项目包, 多个工程文件DPR的集合5（）.DOF Delphi Option File 选项文件, 包括编译信息等, 是一个...
Delphi HOOK示例【代码】
本应用程序的Hook:unit UFrmMain;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)btnClose: TButton;btnSetHook: TButton;btnSizeLongInt: TButton;procedure btnCloseClick(Sender: TObject);procedure btnSetHookClick(Sender: TObject);procedure btnSizeLongIntClick(Sender: TObject);private{ Private declarations }public{ Public ...
[delphi技术]delphi源代码--后延函数
说明：1）TTtimer控件 TTtimer控件的实质是调用WindowsAPI定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER消息的处理过程。通过设置OnTimer事件和Interval属性，我们可以很方便的产生一些简单的定时事件。2）Sleep函数 Sleep函数用来使程序的执行延时给定的时间值。Sleep的调用形式为Sleep(milliseconds)，暂停当前的进程milliseconds毫秒。Sleep的实现方法其实也是调用Windows API的Sleep函数。例如：sleep(1000)...
Delphi 拖动【代码】
interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;typeTForm1 = class(TForm)private{ Private declarations }protectedprocedure WMNCHitTest(var M: TWMNCHitTest);message WM_NCHitTest;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begininherited; //继承原有的消息处理函数i...
Delphi中的基础数据类型（整理好，方便随时参考）
参考http://www.cnblogs.com/del/archive/2007/12/04/982167.html在学习之初，在这么多的数据类型中，最好记住这五种标准数据类型（整型、实型、字符型、字符串型、布尔类型）和这五种类型中的最常用的类型，其他类型在以后的学习中会较快记住 其中，最常用的整型为Integer（4个字节，每个字节8位），它能满足绝大部分运算要求。 描述存储各种实数数据的类型为实型。所谓实数就是以小数形式表示的数或者以科学技术法表示的数...