long6 - 博客园

[置顶] Variant和Tstream这间相互转化

摘要：所在单元VariantsfunctionVarArrayLock(constA: Variant): Pointer; VarArrayLock锁定给定的变量数组，并返回一个指针数组中存储的数据。锁定时，一个Variant数组不能被调整和任何VarArrayRedim的调用将失败。一旦锁定，一个Variant数组必须使用VarArrayUnlock后来被解锁。如果由一个给定的变种，是不是一个数组，一个EVariantError将引发异常。返回的指针数组元素，其中最左边的尺寸先增加VarArrayLock点。换句话说，返回的数组指针的尺寸逆转从变异阵列的尺寸。VarArrayLock一旦被证.. 阅读全文

posted @ 2012-03-07 15:22 long6 阅读(677) 评论(0) 推荐(1)

[置顶] DELPHI自动分析表单(WebBrowser)

摘要： //-----先创建一个WebBrowser，以及自己Negative,也就是先打开一个页面///----------------stringgrid初始化-------------procedure TForm1.stringCreate(StringGrid: TStringGrid);begin StringGrid.Cells[0, 0] := '序号 '; StringGrid.Cells[1, 0] := 'ID号 '; StringGrid.Cells[2, 0] := '类别 '; StringGrid.Cells[3, 0] : 阅读全文

posted @ 2012-02-22 11:03 long6 阅读(1485) 评论(0) 推荐(1)

[置顶] 取得任意位的随机数

摘要： function TForm1.RandomStr(UP: boolean; Low: boolean; Number: boolean; Digit: integer):string;//--大写字母,小写字母,数字,字符串的位数var i: Byte; s: string;begin if UP then s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' else s := ''; if Low then s := s + 'abcdefghijklmnopqrstuvwxyz'; if Number then s := s 阅读全文

posted @ 2012-02-08 10:58 long6 阅读(282) 评论(0) 推荐(1)

[置顶] delphi XE2 托盘程序

摘要： //----------这是在 delphi xe2-----------//unit Umain;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Menus, Winapi.ShellAPI;type TForm1 = class(TForm) Button1: TBut... 阅读全文

posted @ 2012-02-07 17:49 long6 阅读(972) 评论(0) 推荐(1)

[置顶] 屏蔽F1的练习（hook）

摘要： //-----------勾子判断按键方法-------function LowLevelKeyboardProc(Wnode: Integer; Wparam: WPARAM; Lparam: LPARAM):LRESULT;stdcall;type KeyHook = record VKcode: DWORD; ScanCode: DWord; Flags: DWord; Time: DWord; dwExtraInfo: DWord; end;var p : ^keyhook;begin Result := 0; p := Pointer(Lpar... 阅读全文

posted @ 2012-02-02 15:48 long6 阅读(426) 评论(0) 推荐(1)

[置顶] 隐藏系统的任务栏、桌面图标

摘要： //--------Flag 为全局变量，初始化为false//--------Shell_TrayWnd 为系统任务栏窗口的类名//------这里是隐藏任务栏的---------------------procedure TForm2.Button3Click(Sender: TObject);var h: HWND;begin h := FindWindow('Shell_TrayWnd', nil); if (h <> 0) and (flag = False) then begin ShowWindow(h, SW_SHOW); flag := True 阅读全文

posted @ 2012-02-02 14:38 long6 阅读(444) 评论(0) 推荐(0)

[置顶] cxgrid对经过筛选过的数据的选择（反选)

摘要： // 下面这个主要是对查询出来的数据，经过筛选后得到的数据中进行反选操作，然后对选择的数据进行修改（全选或选择一部分也可以根据些代码修改） Screen.Cursor := crHourGlass; cxGrid2DBTableView1.DataController.GotoFirst; for i := 0 to cxgrid2DBTableView1.DataController.FilteredRecordCount - 1 do begin if cxGrid2DBTableView1.DataController.GetItemByFieldName('IsChec.. 阅读全文

posted @ 2012-01-31 14:45 long6 阅读(2961) 评论(1) 推荐(1)

根据某一字段值相同合并字符串 - - SQL

摘要：根据某一字段值相同合并其他字符串 - - SQL请参考:http://blog.csdn.net/xiaomianao2010/article/details/6035634 阅读全文

posted @ 2013-07-13 10:03 long6 阅读(495) 评论(0) 推荐(0)

SQL查询案例：多行转换为一行

摘要： SQL查询案例：多行转换为一行使用通常的方式测试表与测试数据CREATETABLETestTitle(nameVARCHAR(10),titleVARCHAR(10));INSERTINTOTestTitleVALUES('张三','程序员');INSERTINTOTestTitleVALUES('张三','系统管理员');INSERTINTOTestTitleVALUES('张三','网络管理员');INSERTINTOTestTitleVALUES('李四','项目经理& 阅读全文

posted @ 2013-07-13 09:31 long6 阅读(373) 评论(0) 推荐(0)

SQL Server 索引结构及其使用（四）

摘要：文章概要：在上一节的标题中，笔者写的是：实现小数据量和海量数据的通用分页显示存储过程。这是因为在将本存储过程应用于“办公自动化”系统的实践中时，笔者发现这第三种存储过程在小数据量的情况下，有如下现象： 1、分页速度一般维持在1秒和3秒之间。 2、在查询最后一页时，速度一般为5秒至8秒，哪怕分页总数只有3页或30万页。一、深入浅出理解索引结构二、改善SQL语句三、实现小数据量和海量数据的通用分页显示存储过程聚集索引的重要性和如何选择聚集索引在上一节的标题中，笔者写的是：实现小数据量和海量数据的通用分页显示存储过程。这是因为在将本存储过程应用于“办公自动化”系统的实践中时，笔者发现这第三种存储过程阅读全文

posted @ 2013-06-29 09:54 long6 阅读(219) 评论(0) 推荐(0)

SQL Server 索引结构及其使用（三）

摘要：文章概要：建立一个 Web 应用，分页浏览功能必不可少。这个问题是数据库处理中十分常见的问题。经典的数据分页方法是:ADO 纪录集分页法，也就是利用ADO自带的分页功能（利用游标）来实现分页。但这种分页方法仅适用于较小数据量的情形，因为游标本身有缺点：游标是存放在内存中，很费内存。游标一建立，就将相关的记录锁住，直到取消游标。游标提供了对特定集合中逐行扫描的手段，一般使用游标来逐行遍历数据，根据取出数据条件的不同进行不同的操作。而对于多表和大表中定义的游标（大的数据集合）循环很容易使程序进入一个漫长的等待甚至死机。一、深入浅出理解索引结构二、改善SQL语句实现小数据量和海量数据的通用分页显示存阅读全文

posted @ 2013-06-29 09:51 long6 阅读(193) 评论(0) 推荐(0)

delphi xe2样式的一个小bug

摘要：在一个偶然的下，在xe2下创建了一个vcl窗体，然后在project>options>apperrance里customs styles里选上了一个样式（windows外），再在下的default styles下选中刚添加的样式， ok, F9运行，点击标题栏最大化，问题来了：这样你谅不能点击右上角的最大化，最小化，关闭，也不能双击标题栏了，也只能标题栏右击。不知道这算不算是bug, 或者是我那里设置有问题呵呵阅读全文

posted @ 2012-03-26 10:03 long6 阅读(420) 评论(0) 推荐(1)

取得进程和dll

摘要：前些时候看到别人写出了这样的一个小程序：取得系统所有的进程名和其相应的dll路径，其实是很容易的，只要你懂得几个函数： CreateToolhelp32Snapshot，Module32First，Module32Next，Process32First，Process32Next，呵呵你了解这些东西你就会可以写出来了。主要的代码如下：记得引用：Winapi.TlHelp32, Winapi.PsAPI,其中： List: array [0..254,0..1] of Cardinal;为全局procedure TForm1.FormShow(Sender: TObject);beg... 阅读全文

posted @ 2012-03-22 16:17 long6 阅读(542) 评论(0) 推荐(1)

ClientDataSet的用法（转）

摘要： TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能，而本身并不依赖上述几种数据库驱动程序，基本上能满足单机"瘦"数据库应用程序的需要。 1．TClientDataSet的基本属性和方法介绍 1)．FieldDefs: 字段定义列表属性开发者可通过单击属性编辑器中该属性编辑按钮，或在该控件上单击右键选择弹出菜单中的"Fields Editor"菜单进行字段编辑。设置完此属性后，实际上就相当于定义了表的结构；如果想装入已有的数据表的结构和阅读全文

posted @ 2012-03-20 16:16 long6 阅读(520) 评论(0) 推荐(0)

Lazarus开发Android应用程序指南(中文首发)(转)

摘要： Lazarus开发Android应用程序指南(中文首发)本指南为中文版本首发，版权由delphicn所有，QQ：1339838080(tom)，转载请保留版权信息。文中难免有错，欢迎指正。本文件描述的安装环境为Windows XP SP3。1．下载和安装配置FPC和Lazarus安卓（Android）开发环境：1.1下载安装JDK：http://www.oracle.com/technetwork/java/javase/downloads/index.html，如图1和图2所示。1.2下载安装Android SDK从以下网址下载安卓SDK开发包：http://developer.androi 阅读全文

posted @ 2012-03-01 15:17 long6 阅读(14378) 评论(0) 推荐(3)

获得一个网页的所有的URL（WebBrowser）

摘要： //记得要引用MSHTMLprocedure TForm1.Button6Click(Sender: TObject);var Doc: IHTMLDocument2; Len: Integer; item: OleVariant; all: IHTMLElementCollection; I: Integer;begin Doc := WebBrowser1.Document as IHTMLDocument2; all := Doc.links; Len := all.length; for I := 0 to Len -1 do begin item :=... 阅读全文

posted @ 2012-02-22 15:55 long6 阅读(1704) 评论(0) 推荐(1)