delphi与sqlite3

最新推荐文章于 2022-10-01 13:10:14 发布
最新推荐文章于 2022-10-01 13:10:14 发布
阅读量95 收藏
点赞数
文章标签： 数据库 嵌入式
原文链接：http://www.cnblogs.com/xunxun/archive/2011/03/02/1969207.html
版权
摘自： http://hi.baidu.com/%BD%F0%D7%D6%CB%FE%C1%BD%B0%B6/blog/item/940960d0fb23cfc1552c8468.html
=============================================================================
delphi与sqlite3

delphi与sqlite

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。目前的最新版本的发布日期为Update 16 October 2008，支持sqlite dll版本3.4.2。经简单测试，3.5.3也是可以的。自带demo。 http://www.itwriting.com/blog/articles/a-simple-delphi-wrapper-for-sqlite-3/comment-page-2 


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.9。
 
      

file:4 简单工作原理描述
 
      
      在simple sqlite3.0 for delphi的几个文件中，主要用到两个文件。分别是sqlite3.pas，sqlite3table.pas。
 
      
sqlite3.pas实现sqlite.dll的接口外部定义。
 
      
sqlite3table.pas进行简单的访问函数封装。
 
      
在delphi中，通过sqlite3table.pas来实现对sqlite数据库的各种访问。
 
      
关于sqlite3udf.pas，根据作者的描述，主要用与创建用户自定义函数，具体功能未测试。
 
      

file:5 读取数据
 
      
      假设，我们有一个叫做database.db的sqlite数据库文件，在编译生成的exe文件所在的目录。里面有一个叫做countries的表格。
 
      
表格创建语句如下。
 
      
 
 
      
 
       
 
       
 
        CREATE 
          
        TABLE 
         "Countries" (

Name  
        VARCHAR 
          
        NOT 
          
        NULL 
          
        PRIMARY 
          
        KEY 
          
        UNIQUE 
        , 

Capital  
        VARCHAR 
          
        NOT 
          
        NULL 
        , 

Area  
        INTEGER 
          
        NOT 
          
        NULL 
        , 

Pop  
        INTEGER 
          
        NOT 
          
        NULL 
        , 

PCI  
        INTEGER 
          
        NOT 
          
        NULL 
         

); 
       
 
      
 
      
      我们该如何访问其中的第一条数据呢。
 
      
 
 
      
 
       
 
       
 
        var 
        

SqliteDB:TSQLiteDatabase;

SqliteTB:TSQLiteTable;

 
        begin 
        

SqliteDB: 
        = 
        TSQLiteDatabase.Create( 
        ' 
        database.db 
        ' 
        );

SqliteTB: 
        = 
        SqliteDB.GetTable( 
        ' 
        Select * from countries 
        ' 
        );

显示控件1.text: 
        = 
        SqliteTB.FieldAsString(SqliteTB.FieldIndex[ 
        ' 
        Name 
        ' 
        ]);

显示控件2.text: 
        = 
        SqliteTB.FieldAsString(SqliteTB.FieldIndex[ 
        ' 
        Capital 
        ' 
        ]);

显示控件3.text: 
        = 
        SqliteTB.FieldAsString(SqliteTB.FieldIndex[ 
        ' 
        Area 
        ' 
        ]);

显示控件4.text: 
        = 
        SqliteTB.FieldAsString(SqliteTB.FieldIndex[ 
        ' 
        Pop 
        ' 
        ]);

显示控件5.text: 
        = 
        SqliteTB.FieldAsString(SqliteTB.FieldIndex[ 
        ' 
        PCI 
        ' 
        ]);

SqliteTB.free;

SqliteDB.free;

 
        end 
        ; 
       
 
      
 
      
      TSQLiteTable类有两个方法，分别是Next和Previous，是用来向后和向前移动数据游标的。配合这两个方法，我们可以读取表格任意数据 内容。例如select * from countries where area >8000000的数据。
 
      

file:6 写入数据
 
      
      我们可以读取数据，就可以写入数据。如何来做到呢？还是以Countries表为例。
 
      
 
 
      
 
       
 
       
 
        var 
        

SqliteDB:TSQLiteDatabase;

 
        begin 
        

SqliteDB: 
        = 
        TSQLiteDatabase.Create( 
        ' 
        database.db 
        ' 
        );

SqliteDB.ExecSQL( 
        ' 
        Insert Into Countries (Name,Capital,Area,Pop,PCI) values ("China","Beijing",9600000,1500000000,6000) 
        ' 
        );

SqliteDB.Free; 

 
        end 
        ; 
       
 
      
 
      
同样，数据的update方法也可以按照这种方法来实现。在这里可以看到,字符类数据可以用双引号来标记起来,而不是通常sqlserver的单引号标记。
 
      

file:7 字符编码
 
      
      访问过MySql数据库数据的朋友应该记得噩梦般的中文数据存取经历。数据库里用了一种编码，程序又是另一种编码，导致中文数据变成乱码。
 
      
sqlite中，数据库内用的是UTF-8存取，DELPHI取出的数据是ASCII编码。也就是说，我们需要在存取的同时做编码转换。
 
      
有这样两个方法，utf8decode()，utf8encode()。当从数据库中读取数据时，我们用utf8decode()；当向数据库中写入数据时，我们用utf8encode()；
 
      
例如:
 
      
 
 
      
 
       
 
       
 
        显示控件.text: 
        = 
        utf8decode(sltb.FieldAsString(sltb.FieldIndex[ 
        ' 
        Name 
        ' 
        ]));

SqliteDB.ExecSQL(utf8encode( 
        ' 
        Insert Into Countries (Name,Capital,Area,Pop,PCI) values ("中国","北京",9600000,1500000000,6000) 
        ' 
        )); 
       
 
      
 
      
      在有更好的方法之前，我们只能这么用……
 
      

file8: Blob Blob Blob
 
      
      某些时候，我们会需要向数据库中存储和读取图片，视频，音频等信息的数据，例如：前女友们的性感照片。sqlite中有一种数据类型叫做Blob,可以满足我们的要求。如何访问和读取呢？
 
      
下面以在database.db数据库中PhotoLib表格中存取一个JPEG图片为例：
 
      
 
 
      
 
       
 
       
 
        CREATE TABLE "PhotoLib" (Id Integer NOT NULL PRIMARY KEY UNIQUE, 

Photo BLOB);

 写入：

 
        var 
        

SqliteDB: TSQLiteDatabase;

FS: TFileStream;

 
        begin 
        

SqliteDB: 
        = 
        TSQLiteDatabase.Create( 
        ' 
        database.db 
        ' 
        );

FS : 
        = 
         TFileStream.Create( 
        ' 
        test.jpeg 
        ' 
        ,fmOpenRead);

SqliteDB.UpdateBlob( 
        ' 
        UPDATE PhotoLib set Photo = ? WHERE ID = 1 
        ' 
        ,FS);

FS.free;

SqliteDB.Free;

 
        end 
        ;

读取至TImage控件显示：

 
        var 
        

MS: TMemoryStream;

PIC: TJPegImage;

SqliteDB: TSQLiteDatabase;

SqliteTB: TSQLIteTable;

 
        begin 
        

SqliteDB: 
        = 
        TSQLiteDatabase.Create( 
        ' 
        database.db 
        ' 
        );

SqliteTB: 
        = 
        SqliteDB.GetTable( 
        ' 
        Select * From PhotoLib Where Id=1 
        ' 
        );

MS : 
        = 
         SqliteTB.FieldAsBlob(SqliteTB.FieldIndex[ 
        ' 
        photo 
        ' 
        ]);

 
        if 
         (MS  
        = 
          
        nil 
        )  
        then 
        

 
        begin 
        

showmessage( 
        ' 
        该条记录没有前女友照片数据. 
        ' 
        );

exit;

 
        end 
        ;

MS.Position : 
        = 
          
        0 
        ;

PIC : 
        = 
         TJPEGImage.Create;

PIC.LoadFromStream(ms);

self.Image2.Picture.Graphic : 
        = 
         PIC;

MS.free;

PIC.Free;

 
        end 
        ; 
       
 
      
 
     
 
 

 

转载于:https://www.cnblogs.com/xunxun/archive/2011/03/02/1969207.html

                

        

        




    

  


    

      

        

            

              
                
                  weixin_30787531
                
              
            

            

                关注
              
            

        

        

          
      

      









                



	

		

			

				
					
delphi Sqlite

				
			

			

				

					dkopg24406的专栏
				

				

					08-13
					
					992
					
				

			

		

		

			
				
Delphi中SQLite如何读写二进制字段(Blob类型)
在Delphi中,有大量的组件可以操作SQLite数据库,如UniDAC就是其中一个比较优秀的,当然还有ASQLite3Components,也有SQLite3版的ODBC驱动,可直接用ADO操作。本文简要说明SynopseSQLite3读写二进制字段,先说下SynopseSQLite3的优点,静态编译集成SQLite3引擎...

			
		

	



                

              
                



	

		

			

				
					
Sqlite3

				
			

			

				

					雪雪
				

				

					03-17
					
					685
					
				

			

		

		

			
				
SQLite库包含一个名字叫做sqlite3的命令行,它可以让用户手工输入并执行面向SQLite数据库的SQL命令。本文档提供一个样使用sqlite3的简要说明.

一.Sqlite3一些常用Sql语句操作

创建表: create table 表名(元素名 类型,…);

删除表: drop table 表名;

插入数据...

			
		

	



                


  
              

                


	

		

			

				
					
Delphi使用SQLite3内存数据库

				
			

			

				

					11-11
				

			

		

		

			
				
Delphi使用SQLite3，包括本地数据库和内存数据库，本地数据库加载到内存，内存数据库备份到本地，使用sqlite simple delphi包装类。

			
		

	





	

		

			

				
					
DELPHI中引用sqlite3

				
			

			

				

					
				

				

					08-15
					
					674
					
				

			

		

		

			
				
sqlite引擎在Delphi中的应用从 www.sqlite.org 网站可下载到最新的 sqlite 代码sqlite源文件：sqlite3.c和sqlite3.h。首先编译成OBJ,编译生成sqlite3.obj
bcc32 -pc -RT- -O -w- -6 -I(b

			
		

	



		

			
		



	

		

			

				
					
sqlite3delphi(unicode)

				
			

			

				

					04-08
				

			

		

		

			
				
sqlite3delphi(unicode)
支持中文目录路径

			
		

	





	

		

			

				
					
Delphi使用ASqlite3 连接SQLite上例子

				
			

			

				

					04-15
				

			

		

		

			
				
随便翻翻，发现csdn上发布的例子动辄10来分，怒了。
1分1套，随便下。控件带例子。

			
		

	





	

		

			

				
					
Delphi7 sqlite3完整源码解决

				
			

			

				

					08-27
				

			

		

		

			
				
找了很久才找到全套源码（内含ZEOSDBO-7.1.4-stable控件），完美解决Dbgrid的Text字段显示为Memo的问题，现在此共享！ 全部源码的说明，详见 https://fishc.com.cn/thread-58213-1-1.html （此处未提供下载）

			
		

	





	

		

			

				
					
Delphi2010使用sqlite控件DISQLite3-2.4.5

					
最新发布

				
			

			

				

					02-01
				

			

		

		

			
				
这是一个由Delphi社区开发的组件包，它为Delphi提供了一个直接访问SQLite3数据库的接口。DISQLite3版本2.4.5在功能和稳定性上进行了优化，兼容了Delphi 2010及其后续版本，支持最新的SQLite3特性。  安装DISQLite3-...

			
		

	





	

		

			

				
					
delphi7实例sqlite3简单应用

				
			

			

				

					02-05
				

			

		

		

			
				
 在Delphi 7中，使用TSQLConnection组件来建立与SQLite3数据库的连接。在组件面板中拖一个TSQLConnection到表单上，然后在属性编辑器中设置其DriverName为"SQLite3"。接下来，配置ConnectionString属性，例如：...

			
		

	





	

		

			

				
					
delphi+sqlite3带加密Demo

				
			

			

				

					08-07
				

			

		

		

			
				
delphi 使用sqlite3加密功能
1、获取sqlite3.dll,去网上下载wxsqlite3的最新版本代码，解压后其中有一个sqlite3目录，其中有编译好的版本，lib目录下的是原版本，secure目录下有aes128和aes256两个带加密的版本，直接拿其中任一个sqlite3.dll使用即可
2、操作用到的控件，在sqlite3的官网上有不少推荐的sqlite3操作的项目，其中有delphi的，有收费的也有免费的，如果愿意可以去看看，我这里用的是unidac4的版本，网上有破解了的，直接支持操作带加密功能的sqlite3.dll
3、安装好unidac4后，其中有uniconnection可以连接sqlite3，ProviderName选SQLite即可，在Database那里输入数据库文件名称，SpecificOptions那里可以选择客户端dll，也就是你使用的sqlite3.dll，还有加密用到的密钥以及一些其他有用的设置，具体我就不说了。
4、设置好这些后，就可以用uniQuery查询和操作数据库了，这些不用我说了吧，^-^。

如果嫌麻烦可以直接下载我这个demo程序，里面有带sqlite3.7.10版本的sqlite3.dll,包括原版和2个加密版，还送unidac4的操作例子。
编译环境是win7+dxe2+unidac4

			
		

	





	

		

			

				
					
delphi sqlite3 控件

				
			

			

				

					04-23
				

			

		

		

			
				
引用pas文件后，直接操作 sqlite3 数据库。
支持 delphi xe2

			
		

	





	

		

			

				
					
sqlite3 for delphi (支持delphi2009与delphi2010)

				
			

			

				

					01-12
				

			

		

		

			
				
sqlite3 for delphi (支持最新的delphi2009与delphi2010)

			
		

	





	

		

			

				
					
sqlite3 delphi封装

				
			

			

				

					06-14
				

			

		

		

			
				
sqlpte3的delphi封装，适合任何版本的delphi

			
		

	





	

		

			

				
					
sqlite3 for delphi   解决中文乱码问题

				
			

			

				

					11-23
				

			

		

		

			
				
sqlite3 for delphi  自己修改的版本 解决中文乱码问题

			
		

	





	

		

			

				
					
Delphi中使用SQLite3（一）

					
热门推荐

				
			

			

				

					kunlun122的专栏
				

				

					11-11
					
					2万+
					
				

			

		

		

			
				
SQLite，是一款轻型的数据库，是遵守ACID的关系型数据库管理系统，它的设计目标是嵌入式的，而且目前已经在很多嵌入式产品中使用了它，它占用资源非常的低，在嵌入式设备中，可能只需要几百K的内存就够了。它能够支持Windows/Linux/Unix等等主流的操作系统，同时能够跟很多程序语言相结合，比如
 Tcl、C#、PHP、Java等，还有ODBC接口，同样比起Mysql、PostgreSQL

			
		

	





	

		

			

				
					
【delphi】delphi操作sqlite3

				
			

			

				

					weixin_34111819的博客
				

				

					10-04
					
					583
					
				

			

		

		

			
				
SQLite
　　SQLite是一个老牌的轻量级别的本地文件数据库，完全免费且开源，不需要安装，无须任何配置，当然，这样管理功能就不是很强大了，但是它的主要应用也是在本地数据库，可以说是最简单好用的嵌入式本地数据库了。
　　SQLite只要一个DLL就可以实现全部功能。SQLite不需要数据库引擎，只有一个数据文件，占用系统资源非常少，很适合做Demo或小型应用。
　　同时，SQLite也是...

			
		

	





	

		

			

				
					
【一起学SQLite】--Delphi下的SQLite之简介(3)

				
			

			

				

					
				

				

					10-01
					
					2142
					
				

			

		

		

			
				
【一起学SQLite】--Delphi下的SQLite之简介(3)

			
		

	





	

		

			

				
					
delphi sqlite3.pas

				
			

			

				

					10-05
				

			

		

		

			
				
Delphi是一种编程语言，它以可视化RAD（Rapid Application Development）环境闻名，可以用于快速开发应用程序。SQLite是一种轻量级的关系型数据库管理系统，较为常用。

在Delphi中，可以使用sqlite3.pas单元来访问和操作SQLite数据库。sqlite3.pas是一个用Delphi语言编写的接口单元，它提供了与SQLite数据库的通信和交互所需的函数和过程。通过引入sqlite3.pas单元，开发者可以在Delphi项目中直接使用SQLite的功能，如创建、查询、更新和删除数据库中的数据。

通过使用sqlite3.pas，Delphi开发者可以创建数据库连接对象，并执行SQL语句来操作SQLite数据库。这个接口单元封装了一系列函数和过程，可以用来打开和关闭数据库连接、执行SQL语句、获取查询结果等操作。开发者可以使用这些函数和过程来实现与SQLite数据库的交互。

使用Delphi和sqlite3.pas，开发者可以方便地利用SQLite作为应用程序的后端数据库，存储和管理应用程序所需的数据。SQLite具有高效、稳定、可嵌入等特点，结合Delphi的开发便捷性，可以帮助开发者更快地开发出高质量的应用程序。

总之，Delphi的sqlite3.pas提供了与SQLite数据库通信和交互所需的接口，可以帮助开发者在Delphi环境下方便地使用SQLite数据库并进行相关操作，从而更轻松地开发出优秀的应用程序。

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值