delphi如何用保存数据库连接参数(INI篇)
在设计数据库应用程序的时候,经常需要将一些信息从程序中独立出来,以保证程序的可移植性。其中最重要的信息就是数据库的连接参数。
在Delphi中,获得正确的数据库连接参数的方法十分简单,你只需要建立一个数据模块,在其中添加一个ADO Connection,双击之,然后在弹出的窗口中选“Use Connection String”,单击“Build”按钮,在“数据链接属性”窗口中选择适当的驱动引擎,并设定相应的连接参数就可以了。点击“确认”后,系统将自动生成连接串,显示在Object Inspector的Connection String中。
以Microsoft SQL Server 为例,连接串就类似于:
Provider=SQLOLEDB.1;Password=map;Persist Security Info=True;User ID=map;Initial Catalog=SuperWorkFlow;Data Source=GTSERVER
连接串中各项参数由分号(;)分隔,具体含义如下:
Provider —— 驱动类型
Data Source —— 服务器名称
Initial Catalog —— 数据库名称
User ID —— 用户名
Password —— 口令
Persist Security Info —— 是否使用持续安全验证
现在我们所要做的第一件工作是将各项参数写入一个INI文件中。
Windows INI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。例如Windows 3.1中两个著名的INI文件win.ini和system.ini就在Windows启动时定义了Windows环境中鼠标响应速度、使用的外壳(shell)程序等设置,Windows系统附带的许多应用程序也都有自己的INI文件。Windows软件初始化参数的获取与保存是通过读取扩展名为INI的文本文件实现的,即程序运行前先从制定的INI文件中搜索到所需的参数,并反映到程序的运行环境中,当程序退出时又将当前的环境参数保存到制定的INI文件中。
INI文件是文本文件,由若干section组成,在每个带括号的标题下面,是若干个Keyword和一个等号,每个Keyword会控制应用程序某个功能的工作方式,等号右边的Value制定Keyword的操作方式,其一般形式如下:
[section1]
keyword1=value1
keyword2=value2
[section2]
keyword1=value1
keyword2=value2
其中SectionName和KeywordName分别是段名和关键字明,Value为关键字对应的设定值,如果等号右边无任何内容(value为空),表示Windows应用程序已为该Keyword指定了缺省值,如果在整个文件中找不到某个Keyword,同样表示
相关文档:
技术交流,DH讲解. 最近和肥鸟交流了下关于字符串方面的知识,而这篇文章是很久以前写的,现在发出来吧. 我们写两段代码来对比下:
第一个用Copy函数:
procedure TForm1.Button1Click(Sender: TObject);
var
a,c:Cardinal;
n:Integer;
D:Double;
i:Integer;
b:string;
begin
c:=0; ......
枚举类型
Pascal程序不仅用于数值处理,还更广泛地用于处理非数值的数据。例如,性别、月份、星期几、颜色、单位名、学历、职业等。
1、枚举类型的定义
格式: type 枚举类型标识符=(标识符1,标识符2,…,标识符n)
2、枚举类型数据特点
① 枚举元素只能是标识符;
例如,下列类型定义是合法的:
type ......
Delphi字符串加密解密函数
功能:字符串加密和解密
首先定义一个常量数组
const
XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用
在程序里加入以下两个函数,
function Enc(Str:String):String;//字符加密函數 這是用的一個 ......
在Delphi里实现MD5加密其实很容易!方法如下:
在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码
即可以达到MD5的实现。
示例代码
procedure
TForm
1.Button1Click(Sender: TObject);
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin
MyMD5 := T ......