上一页 1 ··· 169 170 171 172 173 174 175 176 177 ··· 196 下一页
摘要: // Written by 詠南工作室(陳新光) 2009-06-28 11:13:44//線程池unit Ut_CustomThread;interfaceuses Classes, SysUtils, SyncObjs, Windows;Type //基本线程类 TBaseThread = class; //线程错误处理类 EThreadException = class(Exception); //线程等待错误处理类 EThreadTerminateAndWaitFor = class(EThreadException); //线程停止模式 TThreadStopMode = (smTe 阅读全文
posted @ 2009-06-28 15:06 delphi中间件 阅读(477) 评论(0) 推荐(0) 编辑
摘要: // Writen by 咏南工作室(陈新光) 2009-6-26 14:31:26{ for example:var q: TADOQuery;begin Result := nil; q := g_adoquerypool.GetAdoQuery; if q <> nil then begin q.Close; q.SQL.Clear; q.SQL.Text := sqlCommand; q.Open; Result := q; g_adoquerypool.returnAdoQuery(q); end;}unit AdoQueryPool;{$HINTS OFF}{$WARN 阅读全文
posted @ 2009-06-26 15:03 delphi中间件 阅读(927) 评论(0) 推荐(0) 编辑
摘要: // Writen by 咏南工作室(陈新光) 2009-6-26 11:58:17// 数据库连接池类// 使用ADO引擎,支持access, sqlServer, oracle三种数据库// 连接对象.tag = 正数 表示此连接对象处于非使用状态,否则反之// 所有时间单位均为秒unit UDataConnPool;{$HINTS OFF}{$WARNINGS OFF}interface uses SysUtils, Classes, DB, ADODB, Contnrs, Windows, ExtCtrls;// 常量定义const c_sql = 'sqloledb' 阅读全文
posted @ 2009-06-26 13:57 delphi中间件 阅读(3719) 评论(0) 推荐(0) 编辑
摘要: 許多使用Web Services 開發系統的人都會有一個困擾,那就是效率不高,其原因很簡單,XML 本身屬於純文字型態,加上必須依賴XML Parser 剖析XML 文件,在傳輸與解譯上都是造成效率不彰的原因,這是Web Services 的先天限制,也是為了相容性所付出的代價。當然! 如果網路頻寬夠大,電腦速度夠快,這些都不是問題。但事實是目前的頻寬與電腦速度還不足以勝任,這使得Web Services 的應用面縮減不少,因此許多的Web Servcies開發工具都會提供將SOAP訊息壓縮的解決方案,藉此減少網路傳輸時間。RO 支援兩種訊息標準,一個是SOAP(也就是Web Services 阅读全文
posted @ 2009-06-23 15:56 delphi中间件 阅读(300) 评论(0) 推荐(0) 编辑
摘要: (*首先感谢原作者,但当初在csdn上搜索到该单元时,就没原作者的信息(程序里的有些乱码的注释应该是原作者留下的吧?呵呵)有不足的地方还请各位看官多多指点哈 ^_^Modify By 角落的青苔@2005/05/13 说明:增加导出过程中的回调功能(用户停止,进度条) 是否在第一行插入FieldName 改错:以前只能对word类型数值写入,DWord会Range Check error;已修正,见CellInteger //这个单元原来的Col和Row刚好弄反了(已修正):-( 增加导出分页的功能,因为xls单页不能超过 65536 行(采用的笨办法,不知谁有好一点的方法吗?比如直接写标记表 阅读全文
posted @ 2009-06-18 08:56 delphi中间件 阅读(433) 评论(0) 推荐(0) 编辑
摘要: TDataSetProvider 元件的設定TDataSetProvider 元件的 UpdateMode 特性值會影響 TDataSetProvider 元件產生什麼樣的 SQL 敘述來更新資料。在內定上 TDataSetProvider 元件的UpdateMode 是 設 定 為 upWhereAll , 這 是 最 嚴 格 的 設 定 。由於在尋找資料時也必須比對所有的欄位數值,所以是比較緩慢的更新方式。把 UpdateMode 設定為 upWhereKeyOnly 那麼應用程式伺服器將會執行的快一點。UpdateMode 設定為 upWhereKeyOnly 是表示當 TDataSet 阅读全文
posted @ 2009-06-17 10:55 delphi中间件 阅读(418) 评论(0) 推荐(0) 编辑
摘要: 多層開發注重效率的注意點1.不同資料型態的傳遞負荷成本注意不要任意的使用 Variant,因為 Variant 雖然好用,但是相對上它使用的成本也非常的高。例如如果你使用 Variant 來代表整數的話,那麼整數本身只佔4 個位元組,但是使用 Variant 來代表它則需要 20 個位元組。當這樣的 Variant在網路上傳遞時是比直接傳遞整數來得緩慢。2.減少網路的 roundtrip在分散式應用系統中,遠端呼叫是非常昂貴的事情。因此如果應用系統能夠儘量避免不必要的遠端呼叫的話,就可以有效的增加應用系統的執行效率,因為這可以減少網路的roundtrip。 阅读全文
posted @ 2009-06-17 10:40 delphi中间件 阅读(203) 评论(0) 推荐(0) 编辑
摘要: Midas的三種調用遠程方法的方式1.晚綁定//使用 Late Binding … DCOMConnection1.AppServer.GetSystemInfo(vTime, vRDM, vThread);藉 由 TDCOMConnection( 或 是 TSocketConnection ,TCORBAConnection)的 AppServer 特性取得遠端應用程式伺服器,再呼叫其中的 GetSystemInfo 方法。這種方式可以正確的呼叫到遠端應用程式伺服器之中提供的服務。但是你必須知道的是 AppServer 特性回傳的是一個 Variant 型態的變數,當程式透過 Varia.. 阅读全文
posted @ 2009-06-17 09:24 delphi中间件 阅读(316) 评论(0) 推荐(0) 编辑
摘要: SPCOMM的属性、方法和事件1.属性●CommName:表示 COM1、 COM2等串口的名字;●BaudRate:根据实际需要设定的波特率,在串口打开后也可更改此值,实际波特率随之更改;●ParityCheck:表示是否需要奇偶校验;●ByteSize:根据实际情况设定的字节长度;●Parity:奇偶校验位;●StopBits:停止位;●SendDataEmpty:这是一个布尔型属性,为 true时表示发送缓存为空,或者发送队列里没有信息;为 false时表示发送缓存不为空,或者发送队列里有信息。2.方法●Startcomm方法用于打开串口,当打开失败时通常会报错。错误主要有 7种:⑴串口 阅读全文
posted @ 2009-06-16 10:32 delphi中间件 阅读(316) 评论(0) 推荐(0) 编辑
摘要: 众所周知,在软件开发过程中,每名软件工程师都要掌握大量的编程知识,比如如何访问数据库,如何控制线程的推进顺序等,掌握这些知识是顺利进行开发的必要条件。然而,仅有这些就够了吗?仅仅掌握了这些编程知识就足以开发出优秀的软件?在我看来,开发者还需要掌握“组合”的艺术,你必须知道在某个完成特定功能的程序中,你可以组合哪些基本的构造块,而这些基本的构造块又以何种方式优雅地组合在一起,构成一个有机的整体。基本的构造块不仅仅指可以直接拿来复用的软件组件(或者是SOA中的Service),还包括可以在不同项目间复用的典型代码(比如如何将一个double类型的数字保留两位小数的典型代码段)、技术解决方案(比如各 阅读全文
posted @ 2009-05-06 16:18 delphi中间件 阅读(175) 评论(0) 推荐(0) 编辑
上一页 1 ··· 169 170 171 172 173 174 175 176 177 ··· 196 下一页