delphi中间件

摘要： windows.WaitForSingleObject(FEventHandle, 180000);......FEventHandle := Windows.CreateEvent(nil, false, False, PChar(@FEventName));......if FEventHandle <> THandle(nil) then Windows.CloseHandle(FEventHandle);......if FEventHandle <> THandle(nil) then Windows.SetEvent(FEventHandle);...... 阅读全文

摘要： SOCKET：Socket接口介于应用程序与硬件之间。对Socket的理解可以简化为：它是封装了数据流（Stream）的从机器到机器的一条软接线，通过这条软接线，并借助于线两端的收发程序，网络上的机器间实现了信息的交流与互通。分离在软线两端的应用程序（服务器端程序和客户端程序）可以通过调用Socket接口来开发具有TCP/IP网络功能的程序应用。作为客户端，即要知道服务程序所在房间的房间号（IP地址），又要知道后门的位置（端口）。这样才能正确地进入房间。數據編發：软线建立完成后，还必须有数据传输的规则，这就是服务端和客户端商量着来的事情了。数据使用什么封装，传送时遵循什么规则（收发协议）、传输 阅读全文

摘要： MIS系统权限控制的一个简便方法MIS系统权限控制的一个简便方法收藏 新一篇: 创MIS系统的权限又多又复杂，很多人是在用户数据表中设置多个字段，每个字段代表一个权限，或者设置一个字符串，不同的字符组合表示用户的不同权限。简单一点的，可以预先设置几个角色，根据角色来行使预设权限，但又不够灵活。现介绍一个简单灵活的权限分配控制的方法，并无高深见解，只是很多人忽略了它。如果您正在设计权限控制模式，不妨接着往下看。此方法非常简洁，扩充性很好。仅用一个 integer 字段即可保存全部权限组合。另外每个权限用一个整型表示如：商品查看权限用 1 ；商品更改权限用 2 ；商品完全浏览权限用 4 ；订单查看 阅读全文

摘要： 針對INDY9版本 // 使用完的線程歸還線程池 procedure TIdThreadMgrPool.ReleaseThread(AThread: TIdThread); var LThreadPool: TList; begin ActiveThreads.Remove(AThread); LT 阅读全文

摘要： 所有對象都封裝成類了，具體運行時就是這些類的實例對象之間的交互問題了對象如何劃分，劃分的粒度，首先要明白具體的業務模型細節問題就是智者見智了解除倆個對象的耦合的關鍵是引入一個第三者對象，讓第三者對象負責調停比如接口就是一個第三者對象。。。搞個專門的調度者對象，定義成抽象類也好，純接口也好，把那些動作定義成一組接口，其它各個對象都調用這組接口來完成具體邏輯。。。其實有時候真分不清是什麼模式，只是怎麼好就怎麼設計最高境界是徹底忘記了什麼模式但隨時拿來就用，別人看見時驚呼XX模式使用者卻渾然不知多用對象的組合，少用類的繼承轉化直接為間接操作因為間接意味著可以轉化，而直接不能間接可以更好應對變化 阅读全文

摘要： // 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 阅读全文

摘要： // 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 阅读全文

摘要： // 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' 阅读全文

摘要： 許多使用Web Services 開發系統的人都會有一個困擾，那就是效率不高，其原因很簡單，XML 本身屬於純文字型態，加上必須依賴XML Parser 剖析XML 文件，在傳輸與解譯上都是造成效率不彰的原因，這是Web Services 的先天限制，也是為了相容性所付出的代價。當然! 如果網路頻寬夠大，電腦速度夠快，這些都不是問題。但事實是目前的頻寬與電腦速度還不足以勝任，這使得Web Services 的應用面縮減不少，因此許多的Web Servcies開發工具都會提供將SOAP訊息壓縮的解決方案，藉此減少網路傳輸時間。RO 支援兩種訊息標準，一個是SOAP(也就是Web Services 阅读全文

摘要： (*首先感谢原作者，但当初在csdn上搜索到该单元时，就没原作者的信息（程序里的有些乱码的注释应该是原作者留下的吧？呵呵）有不足的地方还请各位看官多多指点哈 ^_^Modify By 角落的青苔@2005/05/13 说明：增加导出过程中的回调功能（用户停止，进度条） 是否在第一行插入FieldName 改错：以前只能对word类型数值写入，DWord会Range Check error；已修正，见CellInteger //这个单元原来的Col和Row刚好弄反了(已修正):-( 增加导出分页的功能，因为xls单页不能超过 65536 行（采用的笨办法，不知谁有好一点的方法吗？比如直接写标记表 阅读全文