Delphi多线程学习：多线程数据库查询（ADO）
ADO多线程数据库查询通常会出现3个问题：
1、CoInitialize 没有调用
（CoInitialize was not
called）；所以，在使用任何dbGo对象前，必须手
调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitialize was not
called"例外。
2、画布不允许绘画
（Canvas does not allow
drawing）；所以，必须通过Synchronize过程来通知主线程访问主窗体上的任何控件。
3、不能使用主ADO连接
（Main TADoConnection cannot be
used!）；所以，线程中不能使用主线程中TADOConnection对象，每个线程必须创建自己的数据库连接。
Delphi2007安装后在X:\Program Files\Common Files\CodeGear
Shared\Data目录下有一个dbdemos.mdb文件，用来作为测试的例子。dbdemos.mdb中的customer表保存了客户信
息，orders表中保存了订单信息。
测试程序流程大致是这样的：在主窗体上放TADOConnection和TQuery控件，启动时这个TQuery从Customer表中查出客户编码
CustNo和公司名称Company，放到三个Combox框中，分别在三个列表框中选定客户公司名称，按照公司名称所对应的客户代码建立三个线程同时
在orders表中查询销售日期SaleDate分别填入ListBox中。
{主窗体代码}
unit
Main;
interface
uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
DB,
ADODB,
StdCtrls;
type
TForm2 =
class
(
TForm)
ComboBox1:
TComboBox;
ComboBox2:
TComboBox;
ComboBox3:
TComboBox;
ListBox1:
TListBox;
ListBox2:
TListBox;
ListBox3:
TListBox;
Button1:
TButton;
ADOConnection1:
TADOConnection;
ADOQuery1:
TADOQuery;
Label1:
TLabel;
Label2:
TLabel;
Label3:
TLabel;
procedure
FormCreate(
Sender:
TObject
)
;
procedure
Button1Click(
Sender:
TObject
)
;
private
{ Private declarations }
public
{ Public declarations }
end
;
var
Form2:
TForm2;
implementation
uses
ADOThread;
{$R *.dfm}
procedure
TForm2.
Button1Click
(
Sender:
TObject
)
相关文档：
用VC++6.0编写了一个简单的dll，里面包含一个减法函数subtract(int a,int b)，Dll命名为ff.Dll
代码如下：
1.ff.cpp:
// ff.cpp : Defines the entry point for the DLL application.
//
#include "StdAfx.h"
#include "ff.h"
BOOL APIENTRY DllMain( HANDLE hModule,
......
Delphi的方法类型有：
1.静态方法 (Static) 默认类型，可以省略关键字
2.虚拟方法 (Virtual)
3.动态方法 (Dynamic)
4.消息方法 (Message)
5.抽象法方 (Abstract)
=======================================================
1）静态方法[static]
静态方法类似于通常的过程和函数，编译器在编译时就已指定了输出该方� ......
Delphi的Socket编程要分几步？
2008-12-20 02:03:24
标签：Delphi Socket 编程 [推送到技术圈]
ClientSocket 和ServerSocket
几个重要的属性:
1.client和server都有port属性，需要一致才能互相通信
2.client有Address属性,使用时填写对方(server)的IP地址 & ......
====================================================
Delphi操作文件的一般步骤：
1）关联文件：
AssignFile(var F; FileName :string)；
2）初始化文件：
Append(var F :Text);
//只写，于文件最后追加数据
Reset(var F [; RecSize :Word]); ......
所在单元： DateUtils
Day 开头的函数
1、DayOf()
描述： 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是
2、DateTimeTostr()
描述： Da ......
