delphi中间件

摘要： //在后面介绍 TPerlRegEx 类的方法时, 关于对 (子表达式) 的引用还有更多话题.Delphi 正则表达式语法(9): 临界匹配 - 也叫"预搜索"与"反向预搜索" //匹配右边varreg: TPerlRegEx;beginreg := TPerlRegEx.Create(nil);reg.Subject := 'Delphi 6; Delphi 7; Delphi 2007; Delphi Net';reg.RegEx := 'Delphi (?=2007)'; // ?=reg.Replacement : 阅读全文

摘要： uses NativeXml;procedure TForm1.Button1Click(Sender: TObject);begin Caption := fXML.Root.FindNode('father').Value; {tom}end;procedure TForm1.CreateXMLClick(Sender: TObject);begin fXML.CreateName('root'); // create root node with fXML.Root.NodeNew('student') do begin // create 阅读全文

摘要： {eclApp.ActiveSheet.PageSetup.PaperSize := xlPaperA3; //设置纸张的类型 eclApp.ActiveSheet.PageSetup.Orientation := xlLandscape; //设置是横向打印还是纵向打印 eclApp.ActiveSheet.PageSetup.PrintTitleRows := '$3:$5'; //设置表头重复如果多页的情况下 eclApp.ActiveSheet.PageSetup.CenterFooter := '第&P页，共 &N 页'; //设置页码 阅读全文

摘要： 类似代码：CoInitialize(nil) ; //CoInitialize was not called Qry := TADOQuery.Create(nil) ; try// MUST USE OWN CONNECTION// Qry.Connection := Form1.ADOConnection1; Qry.ConnectionString := ConnStr; Qry.CursorLocation := clUseServer; Qry.LockType := ltReadOnly; Qry.CursorType := ctOpenForwardOnly; Qry.SQL.T 阅读全文

摘要： 网上一大把这种方法，可惜许多不能用。这个我试过了，可以。USES Masksprocedure GetFileListEx(FilePath, ExtMask: string; FileList: TStrings; SubDirectory: Boolean = True); //遍?目?及子目?function Match(FileName: string; MaskList: TStrings): boolean;var i: Integer;begin Result := False; for i := 0 to MaskList.Count - 1 do begin if Match 阅读全文

摘要： zsl := cxGrid1DBTableView1.DataController.Summary.FooterSummaryValues[0]; zje := cxGrid1DBTableView1.DataController.Summary.FooterSummaryValues[1]; 阅读全文

摘要： //我们在写C/S管理系统时经常是根据用户的权限来相应禁止一些菜单//在实践时，我发现使用动态方法创建菜单有可能对软件被破解起到一点小的作用//因为实现起来，不是很难，所以写出来分享一下//我们在菜单的事件中，利用菜单项的TAG值来判定是点了那一项//首先，用一张数据表来存所有用户的菜单内容，格式如下//ID int//image int //-1是指ImageIndex的值，即无图标//caption varchar 20//layer smallint //菜单的层次-1是第一层//tag int //菜单的TAG值，用于得知点击事件//所有的菜单项将使用一个公共事件处理，在... 阅读全文

摘要： 我已经看到了很多人想在一个应用程序中挂接消息搞一个干净的解决方案。所以，前一段时间作我决定写一个钩子类，能很好的处理事件之类的东西。 Hook.pas可以分配方法的指针指向一个过程（有一些汇编的帮助）。 例如：如果你想在应用程序中捕获所有击键 - 只需声明一个TKeyboardHook实例，指派一个处理程序给OnPreExecute或OnPostExecute，或同时处理这两个事件。设置激活你的KeyboadHook（KeyboardHook.Active：= true）然后你就可以出去等他运行了.. Windows的钩子下面是Windows API指南中钩子的说明： 一个钩子是系统消息处理机 阅读全文

摘要： 随着“金盾工程”建设的逐步深入和公安信息化的高速发展，公安计算机应用系统被广泛应用在各警种、各部门。与此同时，应用系统体系的核心、系统数据的存放地――数据库也随着实际应用而急剧膨胀，一些大规模的系统，如人口系统的数据甚至超过了1000万条，可谓海量。那么，如何实现快速地从这些超大容量的数据库中提取数据（查询）、分析、统计以及提取数据后进行数据分页已成为各地系统管理员和数据库管理员亟待解决的难题。在以下的文章中，我将以“办公自动化”系统为例，探讨如何在有着1000万条数据的MS SQL SERVER数据库中实现快速的数据提取和数据分页。以下代码说明了我们实例中数据库的“红头文件”一表的部分数据结 阅读全文

摘要： DLL直接返回对象时是有可能出错的，这是因为程序和DLL用了不同的VCL，就是相当于一个接口的不同实例，所以只要是从DLL里返回VCL相关的对象都会出错。有两种方法可以解决：1、在Controls单元的implementation前面声明一个GetControlAtom方法{...}implementationfunction GetControlAtom: Pointer;begin Result := @ControlAtom;end;然后在DLL里实现并导出以下两个过程procedure DLLInitialize(App : TApplication; Scr : TScreen; R 阅读全文