delphi中间件

摘要： { For example :procedure TForm1.ComboBox1Change(Sender: TObject);begin SetActiveLanguage(ComboBox1.Text);end;procedure TForm1.FormCreate(Sender: TObject);begin ComboBox1.Items.AddStrings(SearchLanguagePack);end;}unit uLanguage;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, F 阅读全文

摘要： Delphi中Socket的操作方式Delphi分別使用TClientSocket元件和TServerSocket元件來操縱用戶端 Socket和伺服器段Socket的連接和通信。根據連接發起的方式以及本地 Socket要連接的目標，Socket之間的連接可以分為：用戶端連接、監聽連接以及伺服器端連接。(1)所謂用戶端連接，是指由用戶端的 Socket提出連接請求，要連接的目標是伺服器端的Socket。為此，用戶端的Socket首先要描述它要連接的伺服器端Socket，主要是伺服器端Socket的位址和埠號，然後再定位所要連接的伺服器端Socket。找到以後，就向伺服器端Socket請求連接。 阅读全文

摘要： //数据集串行化function RecordsetToXML(const Recordset: _Recordset): string;var RS: Variant; Stream: TStringStream;begin Result := ''; if Recordset = nil then Exit; Stream := TStringStream.Create(''); try RS := Recordset; // adPersistADTG保存为二进制文件 adPersistXML保存为xml。二进制的传输效率要高于XML RS.Save(TS 阅读全文

摘要： unit WebAdoStream;{**************************************************************** 单元名称：WebAdoStream.pas 创建日期：2009-10-01 创建者 本模块改编于 New Midas VCL Library(1.00)的JxStream.pas 功能: 当前版本： Email：dcopyboy@tom.com QQ:445235526***************************************************************}interfaceuses ... 阅读全文

摘要： http://www.ccw.com.cn/applic/prog/htm2003/20030423_096DZ.htmado控件的參數轉化為Variant数组使用ClientDataSet的DataRequest方法把Variant数组上传触发服务器DataSetProvider的OnDataRequest事件，在OnDataRequest对上传的Variant数组进行解析服務器上的ADO控件根據上傳的參數操作數據庫把操作的結果轉換為Variant数组，下發客戶端客戶端解析Variant数组，顯示數據//Parameters转换为Variant数组function ParametersToV 阅读全文

摘要： 表結構：exeno caption params sqlcommand tablename201 登錄 @loginname ftsring(20) select * from user where loginname=:loginname user//author: cxgunit MySQL;interfaceuses SysUtils, ADODB, uFunction;type TMySQL = class(TObject) private fExeNo: Integer; fCaption: string; fParams: string; fSqlcommand: string; 阅读全文

摘要： CnPack多语组件是CnPack组件包中的一个重要组成部分，主要用来用来实现多语言界面。它们虽未组成可安装的独立组件包，但它们功能相对独立，在组件板上独占一页，和其他组件关联不大。1、 最简单的多语组件的使用步骤1. 建立一空工程，拖放一些可视化组件在上面。保存。2. 拖一TCnHashLangFileStorage，添加一语言条目。3. 拖一TCnLangMgr，LanguageStorage设置为刚才的CnHashLangFileStorage1。4. 拖一TCnLangTranslator，双击打开翻译管理器，生成语言条目并翻译、保存。5. 运行，代码中写CnLanguageManag 阅读全文

摘要： Beep 其实是调用的 API 函数: MessageBeep(MB_OK); MessageBeep 有下面几种用法可以调用几种不同的声音文件: MessageBeep(MB_OK);MessageBeep(MB_ICONHAND);MessageBeep(MB_ICONQUESTION); {这个不响, 不知道为什么}MessageBeep(MB_ICONEXCLAMATION);MessageBeep(MB_ICONASTERISK);MessageBeep($FFFFFFFF); {同 MessageBeep(MB_OK);} 阅读全文

摘要： type TLoginUser = record //登陆用户结构 id: string; name: string; ruleid: string; rulename: string; pwd: string; end; PShareObjectRecord = ^TShareObjectRecord; TShareObjectRecord = record //共享对象结构 Connection: TADOConnection; LoginUser: TLoginUser;end; var G_PShareObjectRecord: PShareObjectRecord;//... 阅读全文

摘要： AdvAlertWindow1.AlertMessages.Add.Text.Text := s; AdvAlertWindow1.Last; AdvAlertWindow1.Show;tms套件中控件，做消息提示框效果非常好。 阅读全文