Delphi多线程下的ADO编程

Delphi 5.0初学者编程范例教程

Delphi是由Borland公司开发的一种集成开发环境（IDE），支持多种操作系统平台。它使用的是一种基于Pascal语言的面向对象扩展——Object Pascal。Delphi独特的组件框架，VCL（Visual Component Library），极大地简化了Windows应用程序的开发过程。VCL（Visual Component Library）是Delphi中用于快速开发应用程序的一个图形化的组件库。它提供了一套丰富的预构建组件，使得开发者可以在构建用户界面时更加直观和高效。

Delphi使用ADO连接池(存储过程示例)

一个使用ADO连接池的示例,演示了TADOStoredProc动态参数的使用，带重连机制 =================== unit UnitDemo; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; //数据库服务器 gDBServer: String = '127.0.0.1'; //数据库名称 gDBName: String = 'master'; //数据库用户名 gDBUser: String = 'sa'; //密码 gDBPass: String = '2001'; implementation {$R *.dfm} uses ADODB, UnitADOConnectionPool; const CreateSQL = 'create procedure TestMyPool (@type sysname) '#13#10+ 'as'#13#10+ 'select * from sysobjects where xtype=@type'#13#10+ 'return @@rowcount'; DeleteSQL = 'if Exists(select 1 from sysobjects where xtype=N''P'' and name=N''TestMyPool'')'#13#10+ ' drop procedure TestMyPool'; var gPoolMan: TADOConnPoolMan = Nil; procedure TForm2.Button1Click(Sender: TObject); var ADOObject:TADOConnPoolObject; ADOStoredProc:TADOStoredProc; Running :Integer; I: Integer; begin //取得一个存储过程资源（含一数据库有效连接） ADOObject := gPoolMan.CreateSP('TestMyPool'); if ADOObject = Nil then //取得资源失败 Exit; try ADOStoredProc := ADOObject.ExecObject as TADOStoredProc; Running := 2;//允许重试(两次)操作，以便在操作失败之后达到重连 while Running>0 do begin Dec(Running); if ADOObject.NeedRefresh then begin//判断是否有重连标志（比如数据库断开等，可能需要进行重连） if Not ADOObject.Reconnect then Exit; ADOObject.NeedRefresh := Not ADOStoredProc.Parameters.Refresh; if ADOObject.NeedRefresh then Exit; end; for I := 1(*Zero is the *Result* Parameter*) to ADOStoredProc.Parameters.Count - 1 do begin //========================= //传递参数 ADOStoredProc.Parameters.Items[I].Value := 'U'; //========================= end; if Running 0 then try //执行存储过程 ADOStoredProc.Open; //执行存储过程成功，退出循环进入后续的数据处理 break; except On E:Exception do begin //执行失败非程序级的异常通常有两种可能： //1.数据库连接断开 //2.自适合的参数传递当中可能存储过程已更新，参与不一致 //设置重连标志 ADOObject.NeedRefresh := True; //=================== //这里记录数据库操作失败日志 //=================== end; end; Exit; end; //========================== //从ADOStoredProc当中读取记录 ShowMessage(IntToStr(ADOStoredProc.Parameters.ParamByName('Result').Value)); //========================== //关闭存储对象的资源 ADOStoredProc.Close; finally //调用结束，释放资源 ADOObject.Free; end; end; procedure TForm2.FormCreate(Sender: TObject); var ADOConn:TADOConnection; begin (****************BEGIN*******************) (*注：仅为测试准备 *) //初始化测试环境 ADOConn := Nil; if Not TADOConnPoolMan.ConnectADO( gDBServer,gDBUser,gDBPass,gDBName,true,ADOConn) then Exit; try ADOConn.Execute(DeleteSQL); ADOConn.Execute(CreateSQL); finally try ADOConn.Close; except end; ADOConn.Free; end; (*****************END********************) //初始化连接池 gPoolMan := TADOConnPoolMan.Create(gDBServer,gDBUser,gDBPass,gDBName,true); end; procedure TForm2.FormDestroy(Sender: TObject); var ADOConn:TADOConnection; begin //释放连接池 if Assigned(gPoolMan) then gPoolMan.Free; (****************BEGIN*******************) (*注：仅为测试准备 *) //清理测试环境 ADOConn := Nil; if Not TADOConnPoolMan.ConnectADO( gDBServer,gDBUser,gDBPass,gDBName,true,ADOConn) then Exit; try ADOConn.Execute(DeleteSQL); finally try ADOConn.Close; except end; ADOConn.Free; end; (*****************END********************) end; end.

Delphi程序设计与开发手册：GUI设计、多线程与数据库应用

Delphi作为一个高级语言开发环境，提供了对多线程的全面支持。Delphi中的TThread类是实现多线程的关键组件，它封装了线程的基本操作，使得开发者可以较为容易地进行多线程编程。TThread类实现了以下功能：简化线程的创建和启动流程。提供了挂起、恢复和终止线程的接口。允许线程访问所属组件的线程安全方法。支持线程间的事件通知机制。Delphi自1995年推出以来，一直是快速网络应用开发的首选工具之一。

delphiXE多线程同步对象及异步执行.zip

本下载解决delphiXE在处理多线程时，如何对各线程进行管理、如何做到中途中断执行多线程时的线程安全，如何在多线程内部进行UI同步等等，还可看我的博文同步。

delphi 多线程 动态创建ADO

delphi 在多线程中动态连接ADO控件 异常：exception class EOleSysError with message '尚未调用CoInitialize' 如果是使用多线程的话那就在 Execute事件的开头加上 CoInitialize（nil）; 结尾加上CoUninitialize() unit Unit1;interfaceuses Windows, Mes...

【转】Delphi多线程学习（9）：多线程数据库查询（ADO）

原文：http://www.cnblogs.com/djcsch2001/articles/2382559.html ADO多线程数据库查询通常会出现3个问题： 1、CoInitialize 没有调用（CoInitialize was not called）；所以，在使用任何dbGo对象前，必须手 调用CoInitialize和CoUninitialize。调用CoInitialize失败会产...

Delphi多线程学习：多线程数据库查询（ADO）

 ADO多线程数据库查询通常会出现3个问题：    1、CoInitialize 没有调用 （CoInitialize was not called）；所以，在使用任何dbGo对象前，必须手 调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitialize was not called"例外。    2、画布不允许绘画 （Can

AsyncCalls（异步调用函数）

AsyncCalls（异步调用函数），Delphi异步调用函数的单元和例子

Delphi进度条(多线程),美观不卡界面,简单开启,定位,结束

Delphi进度条(多线程),美观不卡界面,简单开启,定位,结束: 包目录(MyProgress): MyProgress.dcu //最终引用 MyProgressPackage.bpl //安装包 MyProgressPackage.bpi MyProgressPackage.dcp MyProgressPackage.lib 包安装(无需编译,直接安装): 将包目录(MyProgress)复制到目标安装目录 Delphi\菜单\Component\Install Packages\...选择包目录中的包文件 .\MyProgressPackage.bpl 添加路径: Delphi\菜单\Tools\Options\Environment Options\Delphi Optioins\Library\Library path: 添加包目录 在工程中单元中引用: uses MyProgress 功能列表: 1.开启进度(标题,消息,透明度(0-255),是否同步任务栏,是否有边框) procedure StartPro(aTitle,aMsg:String; AlphaValue:Integer=0; IsSyncTaskbar:Boolean=True; IsHasBorder:Boolean=True);//显示动画 2.给养进度(标题,,消息):保持或更新进度指示,不调用则保持StartPro时的状态 procedure FeedPro(aTitle:String; aMsg:String='正在处理中, 请等待...'); 3.关闭进度 procedure ClosePro;

delphi多线程调用dll

delphi多线程调用dll delphi多线程调用dll 有点复杂

Delphi多线程快速检测SQL连接源码解析

Delphi诞生于1995年，最初由Borland公司推出，并迅速成为市场上的主导RAD（Rapid Application Development）工具。其特点包括编译速度快、执行效率高以及易于学习和使用的语言特性。Delphi的VCL（Visual Component Library）提供了一套完备的组件库，使得开发者能够快速创建复杂的GUI（Graphical User Interface）应用程序。Delphi的并行编程库提供了丰富的API支持并行处理。

Delphi的线程类

本文是没有写过delphi的多线程，对delphi的线程类TThread不熟悉的人而写的，主要从 TThread的源代码入手． 　Delphi为多线程的实现专门封装了一个TThread类来实现，我们从Create函数入手来认识一下这个类，这里一般都是windows下的开发，所以先去掉linux环境的代码： constructor TThread.Create(CreateSuspended:

Delphi实现传奇游戏服务器端代码解析

htmltable {th, td {th {pre {简介：传奇游戏服务器端Delphi代码展示了一系列游戏服务端开发中的关键技术和概念。Delphi的强大面向对象编程能力，使得它在游戏服务端开发中显得尤为重要。本代码关注了包括网络编程、多线程、数据库交互、数据结构与算法、安全性、通信协议、性能优化和错误处理等多个方面，为游戏服务器的核心功能提供支持。学习这些技能不仅可以掌握传奇服务器的实现，还能将其应用在更广泛的多人在线游戏服务端开发上。

带着问题学习delphi

今天学习了基本的语法和线程，明天再学习下类，组件比较简单，活学活用吧。 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   T

delphi问题集（二）

====================================================== 注：重要！程序员如何有效的放松身心！下班后做什么？ ====================================================== 问题1:在delphi中如何对变量赋值? 答:在delphi中使用的编程语言是基于pascal的面向对象语言,但是在