delphi与sqlite
from : http://zhyhero.googlepages.com/heartset
file:0 前言
本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。
file:1 准备工作part1
delphi版本:delphi2007 for win32 update3。任意安装版本即可。
sqlite dll版本:3.5.3。目前最新版本的sqlite引擎。[ http://www.sqlite.org/ ]
sqlite for delphi:simple sqlite 3.0 for delphi。目前的最新版本的发布日期为27 August 2007，支持sqlite dll版本3.4.2。经简单测试，3.5.3也是可以的。自带demo。[ http://www.itwriting.com/sqlitesimple.php ]
file:2 准备工作part2
新建一个窗体应用程序工程，并设定保存的文件夹。将simple sqlite 3.0 for delphi 中的 sqlite3.pas，sqlite3table.pas，sqlite3udf.pas拷贝至工程所在的文件夹。并在工程中添加这三个文件。拷贝sqlite.dll到编译生成exe文件的文件夹。这个要看个人的设定。
file:3 初步测试
引用SQLiteTable3.pas单元。
在窗体上创建一个叫btnVersion的按钮(Tbutton)。在btnVersion的click事件中写入下面的代码。
procedure TfrmAbout.btnVersionClick(Sender: TObject);
var
SqliteDB:TSQLiteDatabase;
begin
SqliteDB:=TSQLiteDatabase.Create('');
showmessage('Sqlite dll version:'+SqliteDb.version);
SqliteDB.Free;
end;
编译运行，成功的话，将会显示当前的sqlite dll的版本号，我的是3.5.3。
file:4 简单工作原理描述
在simple sqlite3.0 for delphi的几个文件中，主要用到两个文件。分别是sqlite3.pas，sqlite3table.pas。
sqlite3.pas实现sqlite.dll的接口外部定义。
sqlite3table.pas进行简单的访问函数封装。
在delphi中，通过sqlite3table.pas来实现对sqlite数据库的各种访问。
关于sqlite3udf.pas，根据作者的描述，主要用与创建用�
相关文档：
我们能看到以下代码
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确
看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Delphi
Object Pascal,所以，绝不能从函数� ......
一、使用文件流的方法进行拷贝，当然。同样的道理，你也可以使用内存流等方法进行文件的拷贝，原理是一样的。
procedure copyfile(sourcefilename,targetfilename : String);
var f1, f2: tfilestream;
begin
f1 := tfilestream.Create(sourcefilename, fmopenread);
try
f2 := tfilestream ......
获取post，或者get返回的cookie，除了过滤返回的字符串之外，最简单的方法是使用idhttp的CookieManager属性
比如获得IDhttp返回的全部Cookie
if idhttp1.CookieManager.CookieCollection.Count > 0 then
for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do
temp := temp + idhttp1.Cooki ......
// 判断是否是数值型 By yangxiao 2007.7.21
function isNumeric(strText: WideString): Boolean;
var
s: string;
i, l, p: Integer;
begin
Result := False;
l := Length(strText);
if l = 0 then Exit;
s := '';
for i:=1 to l do
......
