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; ......
Delphi字符串加密解密函数
功能:字符串加密和解密
首先定义一个常量数组
const
XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用
在程序里加入以下两个函数,
function Enc(Str:String):String;//字符加密函數 這是用的一個 ......
查找另外一个窗口的句柄: handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄
查找子窗体:childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');
另外有个枚举子窗体的API,EnumChildWindows(主创体句柄,@回调函数,用户参数);
用这个函数需要自己写一个回调的函数,比如:
function EnumChil ......
技术交流,DH讲解. 这个工具是好早好早以前写的,我这个喜欢在家边看电影边写写代码或者看电子书,所以经常会将网页移到屏幕的左上角或者右上角,而且要置顶.所以就写了这样一个工具,这个工具主要是对句柄的操作,还有就是窗体样式以及几个API的例子,比较基础. 整个文件在 here(Can't Input Chinese:() 下面把代码贴出来,希望 ......
type
TTurboRecord = record
strict private
fNameValue : integer;
function GetName: string;
public
NamePrefix : string;
constructor Create(const initNameValue : integer) ;
property Name : string read GetName;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
......