炜少-优快云博客

原创 IT人士必去的10个网站收藏

IT人士必去的10个网站收藏 1、Chinaunix 网址：http://www.chinaunix.net/ 简介：中国最大的linux/unix技术社区。 2、ITPub 网址：http://www.itpub.net/ 简介：有名气的IT技术论坛，看看它的alexa排名就知道有多火了，尤其以数据库技术讨论热烈而闻名。ITPUB论坛的前身是建立在smiling的oracle小组。 3、51cto 网址：http://www.51cto.com/ 简介：

2010-06-26 12:40:00 48189

原创 http://fxh7622.blog.51cto.com/63841/337456

http://fxh7622.blog.51cto.com/63841/337456

2010-06-26 12:35:00 569

原创 Cannot assign a TFont to a TFont!!

Cannot assign a TFont to a TFont!!There are lots of resources and solutions out there on the internet that are specific to this problem, however, in using the BusinessSkinForm components, that are tightly integrated with the VCL and messaging, I ca

2010-06-20 16:16:00 1492

原创判断鼠标是否在窗体

var P: tpoint; h: thandle; getCursorpos(p); h:= windowFromPoint(p); if h= wincontrol.handle then showmessage('在某一控键上');

2010-06-19 15:36:00 969

原创 TreeView 用法

一. 如何初始化一个TreeView？ 弄一个窗口，放上一个TreeView和一个Button，分别取名为TV1和Btn1。如果需要 在每个节点前有个图，请在窗口上放上一个ImageList，取名为ImageList1，双击 它，加入六个图标。还要记得记得将TV1的Images属性改为ImageList1噢。双击按 钮Btn1，在里面填入以下代码，然后按F9运行，点击Btn1就可以看到效果了。 <br

2010-06-18 14:45:00 891

原创收藏不显示删除回复显示所有回复显示星级回复显示得分回复如何绘制类似于Windows开始菜单的菜单

这里有一篇文章! 上面图片是这些代码对照图片。 在Delphi中做这种菜单关键就在于怎么画分隔符，因为分隔符在属性面板我们是输入“-”表示的，但在delphi中它却不是按普通字符处理的，打开库源代码可以看到，它是将“-”转化为系统中真正的分隔符，它的类型（MenuItemInfo）是MFT_SEPARATOR而一般的字符串的类型是MFT_STRING的，所以我们在重画的时候就要注意，否则会出现1的那种情况，因为分隔符不要用一般的重画过程，如果这样处理它会割断图片，如果我们按字符串形式

2010-06-18 11:53:00 604

原创 Delphi序列化和反序列化

Delphi序列化和反序列化2009-07-21 23:09 串行化、序列化，持久化 function ComponentToStr(AComponent: TComponent): string; var BinStream: TMemoryStream; StrStream: TStringStream; s: string; begin BinStream := TMemoryStream.Create; try

2010-06-18 11:11:00 2450 3

原创 java 加密

import java.security.*; import javax.crypto.*; public class Crypt { private static String Algorithm="DES"; //定义加密算法,可用 DES,DESede,Blowfish static boolean debug = false; static{ Security.addPr

2010-06-07 09:36:00 438

原创 3DES加密java的实现代码

3DES加密java的实现代码 加密算法的实现2006-10-29 10:12:07阅读249评论0字号：大中小 3DES加密java的实现代码 public void getKey(String strKey) { try{ KeyGenerator _generator = KeyGenerator.getInstance("DES"); _generator.init(new SecureRandom(s

2010-06-07 09:36:00 873

原创获取一个DLL的导出方法列表

获取一个DLL的导出方法列表获取方法:运行: tdump.exe C:/windows/system32/gdiplus.dll c:/temp/gdiplus.txt

2010-05-22 19:55:00 853 1

原创 dbgrid中根据任一条件某一格变色

dbgrid中根据任一条件某一格变色 procedure TForm_main.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin if (trim(DataModu

2010-05-22 19:55:00 790

原创 freemarker获取request,session等

freemarker获取request,session等Java代码 <a title="复制代码" onclick="function onclick(){dp.sh.Toolbar.CopyToClipboard(this);return false;}" href="#">http://yezi.javaeye.com/blog/58048 h

2010-05-12 10:38:00 10164

原创任务栏闪动

Delphi 怎样闪动指定窗口在任务栏上的按钮？(转) 大中小 [收藏本文] 如果您创建的应用程序是运行在Windows 98或更高版本操作系统上，您可以通过调用API函数FlashWindowEx并赋给它一个FlashWInfo结构体来实现. 而如果是运行在Windows 95上则比较麻烦，但您也可以通过使用一个Timer组件来实现想要的效果。Fla

2010-04-24 13:27:00 3613

原创滚屏幕

卷屏到光标处 SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0, 0); 向下卷屏一行 SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0) 向下卷屏到底 SendMessage(RichEdit1.Handle,

2010-04-21 13:01:00 561

原创 DLL:cannot assign a tfont to a tfont

DLL:cannot assign a tfont to a tfont作者：佚名技巧来源：不详点击数：167 更新时间：2008-5-22 /> DLL:cannot assign a tfont to a tfont 编程论坛　楼主DLL调用弹出这个提示: cannot assign a

2010-04-17 21:32:00 1635

原创 Cannot assign a TFont to a TFont

There are lots of resources and solutions out there on the internet that are specific to this problem, however, in using the BusinessSkinForm components, that are tightly integrated with the VCL and m

2010-04-17 21:13:00 1387

原创 TList的用法

TList是一个很好的东东，有了它我们不再去费尽心思地写什么列表类，直接用它就行了，下面的例子示范了怎样建立一个TList并插入两条记录，这些记录将输出在PaintBox上。 C Builder 请参照Delphi的例子 Delphi procedure TForm1.FormButton1Click(Sender: TObject); type PMy

2010-04-17 21:13:00 2714 3

原创透明gif

Delphi(Pascal) code unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm)

2010-04-14 23:16:00 1411

原创在DELPHI中显示GIF动画

想没想过在DELPHI中显示GIF动画？Delphi的用户是非常幸运的，因为有免费控件可以使用。最著名的控件是Anders Melander编写的TGifImage，并提供完整的源程序。它原来的主页是www.melander.dk/delphi/gifimage/，不过有很长时间没有更新了。如果要在新版本的Delphi中使用，可以从http://finn.mobilixnet.dk/delphi/

2010-04-13 22:42:00 10099

原创修改版list控件

{*******************************************************}{ }{ ComponentName : SJListView }{ Version : 2.2a

2010-04-12 22:38:00 670

原创响应鼠标

先检测鼠标滚轮是否响应，然后就向发送下面的消息用SendMessage(TreeView->Handle,WM_VSCROLL,SB_LINEDOWN,0)来实现向下滚动一行 SB_LINEDOWN 下移一行 SB_LINEUP 上移一行 SB_PAGEDOWN

2010-04-08 23:51:00 702

原创 list用法

2010-04-08 22:48:00 532

原创实现文件下载，只需要加入到线程就可以了

uses UrlMon; 　　function DownloadFile(Source, Dest: string): Boolean; 　　begin 　　try 　　Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; 　　except 　　Result := False;

2010-03-27 23:19:00 590

原创临时查询用网址

显示进度http://tech.sina.com.cn/s/2005-07-25/1014672039.shtml下载http://www.enet.com.cn/article/2004/0429/A20040429306316.shtml 多文件搜索http://comeoffbest.blog.163.com/blog/static/91893565200910272138293

2010-03-21 23:29:00 515

原创 ucenter 用户加密方式

ucenter 用户加密方式2009年11月27日 18:37cdb_members（论坛用户表）这个表中的密码是无效的。也不知道这个密码是怎么来的。修改之后还是能登陆的。密码按照cdb_uc_members中的为准。cdb_uc_members（ucenter的用户表）发现ucenter的用户的加密方法有些怪异,得到的密码不知标准的MD5的结果.翻了翻google,发现d

2010-03-10 17:32:00 3597

原创 Delphi中高级DLL的编写和调用技巧

Delphi中高级DLL的编写和调用技巧根据Delphi提供的有关 DLL编写和调用的帮助信息，你可以很快完成一般的 DLL编写和调用的应用程序。本文介绍的主题是如何编写和调用能够传递各种参数（包括对象实例）的 DLL。例如，主叫程序传递给 DLL一个ADOConnection 对象示例作为参数， DLL中的函数和根据Delphi提供的有关 DLL编写和调用的帮助信息，你可以很快完成一

2010-03-08 13:50:00 783

原创主程序调用DLL窗体 cannot assign a TFont to a TFont 问题的彻底解决方案

主程序调用DLL窗体 cannot assign a TFont to a TFont 问题的彻底解决方案在网上搜索N久，总结并实战出来的经验和大家分享 1、中国的网站链接大多建议的方案是 project->options选项的packages标签页面勾选 Buidl with runtime packages 我个人在D7中测试确实能够解决问题。但是程序发布的时候需要带很多bp

2010-03-08 13:49:00 5458 2

原创非应用程序主窗口显示在任务栏的问题

非应用程序主窗口显示在任务栏的问题Delphi中,除了应用程序主窗口会显示在任务栏上,其它窗口默认都不会显示在任务栏.没有MS开发环境中的ShowInTaskBar属性.解决办法:1.重载窗口 CreateParams 方法以实现,ShowInTaskBar效果 procedure CreateParams(var Params: TCreateParams);override; pro

2010-03-05 16:59:00 675

原创浅谈Object Pascal的指针

浅谈Object Pascal的指针大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的 Object Pascal，可以说在指针运用上，丝毫不会逊

2010-03-04 21:12:00 354

原创 1：Winsock基本函数

var WSData: WSAData; ServerSocket: TSocket; ClientSocket: TSocket; LocalAddr: TSockAddrIn; ClientSocketAddr: TSockAddrIn; ClientSocketAddrLen: Integer; SocketMode: Integer;

2010-03-04 21:08:00 482

原创 2：WSAAsyncSelect模型

共有五种类型的套接字I/O模型，可让Winsock应用程序对I/O进行管理，它们包括： select（选择）、WSAAsyncSelect（异步选择）、WSAEventSelect（事件选择）、overlapped（重叠）以及 completion port（完成端口）。WSAAsyncSelect（异步选择）是最简单也最好理解的模式，因为用这个模式你都不需要明白多线程的编程知识~ 话

2010-03-04 21:07:00 896

原创 3：Select模型

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, WinSock, ExtCtrls; type TWorkThread = cl

2010-03-04 21:06:00 378

原创 4：WSAEventSelect模型

unit Unit1; interface uses WinSock2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TWorkThread = c

2010-03-04 21:05:00 583

原创 5：I/O Overlapped （重叠）模式

unit Unit1; interface uses WinSock2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TWorkThread = c

2010-03-04 21:03:00 630

原创 6：IOCP完成端口模型

unit Unit1; interface uses WinSock2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type //单IO数据结构

2010-03-04 21:01:00 520

原创 Delphi编写系统服务一：如何编写一个系统服务

Delphi编写系统服务一：如何编写一个系统服务收藏打开Delphi编辑器，选择菜单中的File|New|Other...，在New Item中选择Service Application项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TserviceApplication是一个封装NT服务程序的类，它包含一个TService1对象以及服务程序的装卸、注册

2010-03-04 20:59:00 1187

原创 Delphi编写系统服务三：编写两栖系统服务

Delphi编写系统服务三：编写两栖系统服务收藏采用下面的方法，可以实现一个两栖系统服务（既系统服务和桌面程序的两种模式）工程代码：program FleetReportSvr;uses SvcMgr, Forms, SysUtils, Windows, SvrMain in SvrMain.pas {FleetReportService: TService}, AppM

2010-03-04 20:58:00 1106

原创 Delphi编写系统服务二：系统服务和桌面程序的区别

Delphi编写系统服务二：系统服务和桌面程序的区别收藏 Windows 2000/XP/2003等支持一种叫做“系统服务程序”的进程，系统服务和桌面程序的区别是：系统服务不用登陆系统即可运行；系统服务是运行在System Idle Process/System/smss/winlogon/services下的，而桌面程序是运行在Explorer下的；系统服务拥有更高的权限，系统服务拥有Sy

2010-03-04 20:58:00 1343

原创 Delphi编写系统服务五：在系统服务和桌面程序之间共享内存

Delphi编写系统服务五：在系统服务和桌面程序之间共享内存收藏用于创建内核对象的函数几乎都有一个指向SECURITY_ATTRIBUTES结构的指针作为其参数，在使用CreateFileMapping函数的时候，通常只是为该参数传递NULL，这样就可以创建带有默认安全性的内核对象。默认安全性意味着对象的管理小组的任何成员和对象的创建者都拥有对该对象的全部访问权，而其他所有人

2010-03-04 20:57:00 1307

原创 Delphi编写系统服务四：如何限制系统服务和桌面程序只运行一个

Delphi编写系统服务四：如何限制系统服务和桌面程序只运行一个收藏如何限制系统服务和桌面程序只运行一个在工程加入下列代码可以设置系统服务和桌面程序只运行一个。program FleetReportSvr;uses SvcMgr, Forms, SysUtils, Windows, SvrMain in SvrMain.pas {FleetReportService:

2010-03-04 20:57:00 899