Delphi使用ADO进行数据库编程
Delphi是一个可视化的编程工具，ADO编程也是这样，所以话不多言，直接通过代码、截图和语言来说明。
我的数据库是Oracle，为了测试，先建一个表：create table practice(uno varchar(8), uname varchar(20)); 这个表比较简单，只有两个字段。
我的Oracle数据库是安装在虚拟机上的（操作系统是Redhat），所以 ...
Delphi 日期函数（Day、Mon、Year、Week）使用方法
Delphi 日期函数（Day、Mon、Year、Week）使用方法
1、Day 开头的函数 ● function DateOf(const Avalue: TDateTime): TDateTime;
描述 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 s ...
Delphi 日期函数列表
Delphi 日期函数列表
引用单元 ：DateUtils
CompareDate 比较两个日期时间值日期部分的大小
CompareDateTime 比较两个日期时间值的大小
CompareTime 比较两个日期时间值时间部分的大小
DateOf 去除日期时间值的时间部分
DateTimeToJulianDate 转换日期时间值为儒略日
DateTimeToModifiedJulianDate 转换日期时 ...
Delphi XE10 文件目录/路径操作 （Andorid、ios、windows）
Delphi XE10 文件目录/路径操作 （Andorid、ios、windows）
//获取临时文件路径（支持安卓、IOS）
function GeFileName(const AFileName: string): string;
begin
{$IFDEF ANDROID}
Result := TPath.GetTempPath + '/' + AFileName;
{$ELSE}
{$IFDEF IOS}
Result := TPath.GetHomePath + '/Documents/' + AFileName;
{$ELS ...
delphi 参数化sql
曾经查过资料，后来忘了，现在做一下记录。
---------
在 sql 语句里占位使用 一个冒号和一个用来表示这个位置的符号, 例如：SELECT * FROM aTableName WHERE aCol = :ColVal
SELECT * FROM aTableName WHERE aCol = :ColVal
对占位了的地方赋值这里使用的是 paremeters 属性的 paramByName 作的, 例如：
LDataSe ...
delphi 权限控制(delphi TActionList方案)
在软件开发中，为软件加入权限控制功能，使不同的用户有不同的使用权限，是非常重要的一项功能，由其在开发数据库方面的应用，这项功能更为重要。但是，要为一个应用加入全面的权限控制功能，又怎样实现呢？大家知道，现在的应用，一般均以菜单访问功能的形式出现，按照常规的做法，只要让注册进入应用的不同用户，可以访问 ...
delphi 用windowsmediaplayer播放
转自：http://home.51.com/qq105533846/diary/item/10052777.html
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, WMPLib_TLB, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
WindowsMediaPlayer1: TWindowsMediaPlayer;
...
Delphi BusinessSkinForm使用说明
1、先放bsBusinessSkinForm、bsSkinData、bsStoredSkin各一个到窗体上
2、修改bsBusinessSkinForm的SkinData属性为bsSkinData1
3、修改bsSkinData1的StoredSkin属性为bsStoredSkin1
4、修改bsStoredSkin1的filename属性，指向一个皮肤文件，例如我的55套皮肤包是放在C:\Program Files\Borland\Delphi7\BSF-Skins\Skins文件 ...
TXMLDocument 的使用
TXMLDocument 的使用
TXMLDocument是DELPHI自带的操作XML的类。
需要它，需要引用单元： uses XMLDoc;
var
XMLDoc:TXMLDocument;
XMLNode: IXMLNode;
child: IXMLNode;
begin
CoInitialize(nil); //初始化ActiveX
XMLDoc:=TXMLDocument.Create(self);
XMLDoc.Active := true;
XMLNode := XMLDoc.AddChild('ConsumeRec ...
Delphi BASE64单元EncdDecd的修改
Delphi BASE64单元EncdDecd的修改
EncdDecd.pas两个函数声明：
procedure EncodeStream(Input, Output: TStream);procedure DecodeStream(Input, Output: TStream);
对于Output参数，如果是TMemoryStream，效率真是太糟糕了，测试发现，编码一个5M多的文件，要十几秒钟！
但如果是TStringStream，只要0.2~0.3秒！
WHY?
因 ...
Delphi 常见错误
Delphi 常见错误
1、编译期错误信息
信息
说明
';' not allowed before 'ELSE'
ElSE前不允许有“;”
'' clause not allowed in OLE automation section
在OLE自动区段不允许“”子句
'' is not a type identifier
不是类型标识符
'' not previously declared as a PROPERTY
前面没有说明PROP ...
DELPHI正则表达式
DELPHI正则表达式
1）下载源码
官方网站: http://www.regular-expressions.info/delphi.html
直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip
2）改编译开关
pcre.pas 文件，到 {$DEFINE CRE_LINKDLL} ，把它注释掉，即 ...
Delphi中常用字符串处理函数
1.copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' 2.concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255) 3.length(str) 返回str的字符个数,即其长度. 4.pos(obj,target) 在target字符串中找出第一个 ...
DELPHI解析JSON格式化的日期
DELPHI解析JSON格式化的日期
json返回的日期是 /Date(1560355200000)/ 这样的格式。
这个1560355200000，是指1970年以后的秒数。
DELPHI如何解析这种日期格式？
网上找到的多是JAVASCRIPT的代码，没关系，DELPHI可以执行JAVASCRIPT函数。
uses comobj;
var js: string=
'function jsondate(jsonDate) {'+
'try {'+
...
Eclipse - 安装Indent Guide，使JAVA代码具备编辑缩进线，和Delphi一样酷！！
Delphi里面默认就有代码编辑缩进线，这在编写逻辑复杂的大块代码时候非常有好处，可以清楚地看到每块代码的范围，下面就是Delphi里面代码编辑缩进线的截图：
非常棒的效果，我喜欢，在处理复杂逻辑代码时候，这个功能极其有用，这是我写的一个复杂方法的部分代码，还没看到全部呢，如果没有这种代码编辑缩进线，应该没有现 ...
Delphi CreateProcess 创建一个新的进程和它的主线程
Delphi CreateProcess WIN32API函数CreateProcess用来创建一个新的进程和它的主线程，这个新进程运行指定的可执行文件
CreateProcess百科名片
WIN32API函数CreateProcess用来创建一个新的进程和它的主线程，这个新进程运行指定的可执行文件。
编辑本段函数原型 BOOL CreateProcess ( LPC ...
教程-执行动态的delphi脚本
相关资料：https://www.cnblogs.com/linyawen/archive/2011/10/01/2196950.html
如何在程序中执行动态生成的Delphi代码 经常发现有人提这类问题，或者提问内容最后归结成这种问题 前些阵子有位高手写了一个“执行动态生成的代码”，这是真正的高手，我没那种功力，我只会投机取巧。 这里提供三种方法，都是 ...
Delphi中纤程的使用
首先我们来看看纤程的定义
纤程（来自百科）：
纤程是Windows为了将Unix服务程序更好的移植到Windows上而创建的，
线程是在Windows内核中实现的，纤程是在用户模式下实现的，内核对纤程一无所知，内核会根据我们定义的算法来对纤程进行调度。
一个线程可以包含一个或多个纤程。多个纤程可以使 ...
delphi nethttpclient操作cookie
delphi nethttpclient操作cookie
uses System.Net.HttpClientComponent,System.Net.HttpClient,
//取 cookei ///
for var TCooki in nethttp.CookieManager.Cookies do // nethttp: TNetHTTPClient;
begin
if str_str(uip, StrRight(TCooki.Domain, Length(TCooki.Domain) - 1)) then
edit1.Text := T ...
TNetHttpClient的用法
TNetHttpClient的用法
TNetHttpClient是DELPHI XE8新增加的控件。
在之前，我们一般都是使用IDHTTP控件，但在安卓、IOS等非WINDOWS平台，IDHTTP访问HTTPS却不行了。
大家知道INDY的SSL访问局限于WINDOWS平台，并不支持跨平台HTTPS访问。
鉴于以上原因，所以EMB才推出了TNetHttpClient。
TNetHttpClient既可以阻塞（如同INDY ...
