2010年SQLite学习笔记之三
一．如何备份数据库
先打开数据库test.db
E:\sqlite\tool\sqlite-3_6_22>sqlite3 D:\Test\debug\test.db
sqlite> .backup D:\\Test\\debug\\test.bak
注意：一定要用\\双斜杠
二．如何恢复数据库
先打开数据库test.db
E:\sqlite\tool\sqlite-3_6_22>sqlite3 D:\Test\debug\test.db
sqlite> .restore D:\\Test\\debug\\test.bak
注意：一定要用\\双斜杠
三．先判断表如果不存在，则再创建表
SQL可以如下写，供参考：
create table if not exists student(id integer primary key autoincrement,\
age smallint ,anchor smallint);
四．如何查询SQLite3小工具或者SQLite3.dll动态链接库的版本
执行 select sqlite_version();命令即可
五．SQLite3的最新版� ......
http://www.91v1.cn/bbs/read.php?tid-1797.html
我们提供的是全套,目前他们发的.社区已录制完毕.一根毛不少.
-------------------------------------------------------------------------------------------------------------------------
该教程由91v1社区免费提供.具体免费领码详情观看种子包,
------------------------------------------------------------------------------------------------------------------------- .
课程安排,暂定，有可能会实时修改 }KJ/WyYW
入门篇以简单的QQ游戏为例 s}UPe)Vu
1、学习CE工具的使用技巧 u6|P)8?`
2、学习键盘/鼠标模拟技术 s!uewS.
中级篇以流行3D游戏《武林外传》为例 y1FS?hSD0
1、学习工具OD的断点使用技巧 9^>nZ6
......
罗焱 从薇 王正浩
摘 要：使用ActiveX Scripting技术，可以在应用程序中集成使用脚本语言。本文介绍如何应用这一技术在Delphi应用程序中添加VBScript支持。
关键词：ActiveX脚本描述；Delphi；VBScript
１．引言
Delphi语言是Borland公司开发的一种功能强大的编程语言,它基于串口和面向对象，并兼有VC的强大功能和VB的快速开发、易学易用的优点，具有开发效率高、界面制作美观方便、可实现各种操作功能等特点。VBS全称Visual Basic Script，是一种简单易学，功能强大的脚本语言，应用极为广泛。
本文介绍了通过ActiveX Scripting技术在Delphi中调用和操作VBS的方法，实现了Delphi和VBS的混合编程，充分发挥了两者各自的优势。
２.基本原理
２.１ ActiveX技术的基本概念
在Delphi中无法直接调用VBS，而利用ActiveX技术可以解决这个问题。ActiveX是Microsoft公司于1996年提出的一项技术,它以COM(Component Object Model,组件对象模型)为基础,使得不同的进程(特别是网络进程)之间可以相互通信。ActiveX控件是Microsoft公司提供的一种用于模块集成的协议，是可移植的软件模块,适用于各种开发语言,因而与开发平台无关。ActiveX控件由一些遵循ActiveX规范的可执行代码组 ......
2010-02-22 17:08:46
Delphi把多线程相关的API封装在TThread这个类中，可以方便实现多线程运用。首先看下TThread的声明：
TThread = class
private
FHandle: THandle;
FThreadID: THandle;
FCreateSuspended: Boolean;
FTerminated: Boolean;
FSuspended: Boolean;
FFreeOnTerminate: Boolean;
FFinished: Boolean;
FReturnValue: Integer;
FOnTerminate: TNotifyEvent;
FSynchronize: TSynchronizeRecord;
FFatalException: TObject;
procedure CallOnTerminate;
class procedure Synchronize(ASyncRec: PSynchronizeRecord); overload;
function GetPriority: TThreadPriority;
procedure SetPriority(Value: TThreadPriority);
procedure SetSuspended(Value: Boolean);
protected
procedure CheckThreadError(ErrCode: Integer); overload;
procedure CheckThreadError(Success: Boolean); overload;
procedure DoTerminate; virtual;
procedure Execute; virtual; abstract;
procedure Synchronize(Method: TThreadMethod); overload;
property ReturnValu ......
在使用多线程的时候，如果多线程对某个特定的公共数据或资源进行访问，需要对多线程进行协调操作，叫做线程同步。
例如：三个线程分别循环地向ListBox中写入数据。没有进行同步时，写入的顺序是不确定的。
{主窗体代码}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses MyThread;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
TMyThread.Create(False);
TMyThread.Create(False);
TMyThread.Create(False);
end;
end.{多线程代码}
unit MyThread;
interface
uses
Classes,StdCtrls,SysUtils,Windows;
type
TMyThread = class(TThread)
private
{ Private declarations }
s ......
临界区是一段代码，一次只允许一个线程执行这段代码。当把一段代码放入一个临界区, 线程执行到临界区时就独占了, 其他线程如果要访问这段代码，一定要等前一个访问的线程结束才行。借用前面的比喻比作图书馆，临界区就像把图书馆设计成只有一个位置（现实中好像不太合理，不管了，反正这么个意思），当有一个人正在办理业务时，其他人只能等待那个人办完业务才能进去。
使用临界区的步骤：
1、声明一个TRLCriticalSection记录类型的变量如CS，必须是全局的；
2、使用前先初始化：InitializeCriticalSection(CS)；
3、EnterCriticalSection(CS); 线程进入临界区，其他线程需要等待
4、LeaveCriticalSection(CS); 线程离开临界区，其他线程可以访问了
5、DeleteCriticalSection(CS); 最后删除临界区
重写前文的例子，如下：
{主窗体代码}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
L ......
最新文章 :