- 博客(32)
- 收藏
- 关注
RSS订阅原创 WINDOWS消息使用详解
消息，就是指Windows 发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg， 它在Windows单元中是这 type TMsg =
2006-01-06 15:52:00
979
原创 托盘图标实例
很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象牙塔”，涉及的面广了，遇到的问题多了，慢慢地也有了自己的一点心得体会。其实,Delphi是基于Object Pascal 语言的开发工具，也就是说Delphi本质上是一种语言工具，并且是真正的面向对象的。下面我举的例子就是用Delphi实现的一个托盘小程序。程序短小精悍，脉络分明，我将对关键部分进
2005-12-16 16:04:00
1181
1
原创 数据连接新方法-用数据连接文件 .udl
习惯了以前用ADO直接去连数据库,可是在数据库改变后,肯定要重新去把连接字串改一下,麻烦,现在好了有了udl数据连接文件,不管数据库的路径怎么改变,只要轻松改变一下就一切ok了用个例子说明一下新建一个应用程序,随便命名,然后在窗体里添加一个ADOConnection,在窗体初始化事件里写代码如下:var DataPath:string;begin ADOConnection1.Connecte
2005-12-08 09:07:00
1323
原创 excel 操作
uExcel文件如下:////////////////////////////////////////////////////////////////// Excel控制类，封装大多数对Excel的操作//// CopyRight(C) Lodgue Written by Lodgue// 20/12/
2005-12-02 14:43:00
1599
原创 一些系统操作 服务器端
unit UnitServer;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, TB97, TB97Tlwn, Buttons, StdCtrls, NMUDP;type TForm1 = class(TForm) MainM
2005-11-17 13:45:00
809
原创 一些系统操作 客户端
unit UnitClient;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, NMUDP,shellapi,mmsystem, StdCtrls;type TForm1 = class(TForm) NMUDP1: TNMUDP;
2005-11-17 13:33:00
835
原创 使用Delphi和WebServices技术开发短信应用程序
摘 要：本文通过使用Delphi和Web Services技术开发短信应用程序的实例详细的介绍了如何在Delphi中开发基于Web Services技术的应用程序。 关键字：Delphi；Web Service；短信应用程序开发一提起基于Web Services技术的应用程序开发，一般人首先想到的开发工具是Vs.net，其实作为快速应用程序开发工具(RAD)的老大，Delphi从6.0就开始支持
2005-11-09 16:50:00
1771
原创 实现应用程序的文件拖放功能
在Delphi中有许多控件支持拖放操作,但仅限于 应用程序内部,而不能实现从Windows环境里向应用程序拖放文件,本文将要介绍的就是如 何用Delphi编写支持文件拖放的应用程序,由于主要使用WindowsAPI函数,因此也可供其 它语言使用者参考. 首先要说明的是下面的三个API函数,为通用起见, 函数说明使用C语言格式, 1.VOIDDragAcceptFiles(HWNDhWnd
2005-10-22 10:02:00
1217
原创 文件夹,txt文件操作
var path:string;begin Path := ExtractFilePath(paramstr(0))+ /Log/Operate; if not DirectoryExists(Path) then begin Try ForceDirectories(Path); Except Exi
2005-10-22 09:44:00
763
原创 在JBUILDER中将程序外观变的更酷的办法！
JAVA程序默认的外观（LOOKANDFEEL）可以改变为JAVA外观、MOTIF外观、WINDOWS外观、MAC外观；而JAVA外观又有五种风格分别是海蓝宝石风格、祖母绿风格、红宝石风格、木炭风格、高对比风格。外观改变具体方法如下：1：可以直接在程序中调用下面三个中的一个： import javax.swing.*; UIManager.setLookAndFeel("com.sun.java.
2005-10-10 15:38:00
2018
原创 SQL语句导入导出大全
/******* 导出到excelEXEC master..xp_cmdshell bcp SettleDB.dbo.shanghu out c:/temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""/*********** 导入ExcelSELECT * FROM OpenDataSource( Microsoft.Jet.OLEDB.4
2005-09-24 13:34:00
686
原创 线程操作
1. 要在protected后面要定义一个public的construtor create(suspened;boolean;参数2,参数3...//是自己定义的参数) 2. 在create函数的函数体里首先要有一句:inheritedcreate(suspended);下面是自己的要写的代码. 注意:别忘了要在最后加一句:freeonterminate:=true来释放所占的内存.
2005-09-24 11:48:00
779
原创 [Delphi]Delphi的多线程编程
.style1 { FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ff6699}.yjx { BORDER-RIGHT: #f0f0f0 0px solid; BORDER-TOP: #f0f0f0 0px solid; BORDER-LEFT: #f0f0f0 0px solid; BORDER-BOTTOM: #f0f0f0 0px
2005-09-23 10:18:00
1596
原创 DELPHI如何使用指针
大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的Object Pascal，可以说在指针运用上，丝毫不会逊色于C语言的指针。 以下内容分为八部分，分别
2005-09-23 10:08:00
1911
原创 JBuilder9+SQL SERVER 2000数据库连接技巧
最近公司准备做一个小项目，DB用SQL SERVER 2000，开发平台为Java2，开发工具使用JBuilder9，所以我仔细分析了一下在此情况下的数据库连接方法。其实大家都知道，Java与DB的连接主要分为四种类型：（1）Type1：使用JDBC－ODBC桥实现DB连接，此方法适合于在WINDOWS平台上使用，缺点是不能在APPLET上使用，如果要在客户端实现DB通信，那么必须设置ODBC数据
2005-09-22 15:49:00
822
原创 Delphi 快捷键
下面的快捷键大部分在Delphi的菜单中找不到，其中有一些还是非常有用的。Ctrl+PageUp 将光标移至本屏的第一行，屏幕不滚动。Ctrl+PageDown 将光标移至本屏的最后一行，屏幕不滚动。Ctrl+↓ 向下滚动屏幕，光标跟随滚动不出本屏。Ctrl+↑ 向上滚动屏幕，光标跟随滚动不出本屏。Ctrl+Shift+NUM 在光标行设置最多九个临时标志号，对临时切换非常有用。行的左边将出现一本
2005-09-22 15:05:00
540
原创 Delphi中DLL库的建立
在Delphi环境中,编写一个DLL同编写一个一般的应用程序并没有太大的区别。事实上作为DLL主体的DLL函数的编写,除了在内存、资源的管理上有所不同外,并不需要其它特别的手段。 一般工程文件的格式为: program 工程标题; uses 子句; 程序体 而DLLs工程文件的格式为: library 工程标题; uses 子句; exprot
2005-09-22 15:04:00
623
原创 VC与Delphi之间动态链接库互相调用
VC中DLL声名格式： Extern “C” void __declspec(dllexport) __stdcall ShowMess(HWND hwnd, char* mess);输出格式为：_ShowMess@8，“8”为函数参数字节数为了避免名称分裂，可采用以下方法解决：1.声明中不加__stdcall，采用VC默认格式__cdecl，但在Delphi中要注明调用格式为cdecl。2.在V
2005-09-22 14:59:00
945
原创 DELPHI 中动态链接库的使用
在DELPHI中，有两种方法可用于调用一个储存在DLL（动态链接库）中的过程。 ---- 一、 调用方法 ---- 1、 静态调用或显式装载使用一个外部声明子句，使DLL在应用程序开始执行前即被装入。例如： Function instring (sourcestr: Pchar ; check: char): integer; far; external ‘ demostr’---- 这种方式
2005-09-22 14:54:00
1012
原创 oracle里的常用命令
第一章：日志管理 1.forcing log switches sql> alter system switch logfile; 2.forcing checkpoints sql> alter system checkpoint; 3.adding online redo log groups sql> alter database add logfile [group 4] sql> (
2005-09-22 14:29:00
533
原创 Delphi 键盘码表
K_LBUTTON = 1;VK_RBUTTON = 2;VK_CANCEL = 3;VK_MBUTTON = 4; { NOT contiguous with L & RBUTTON }VK_BACK = 8;VK_TAB = 9;VK_CLEAR = 12;VK_RETURN = 13;VK_SHIFT = $10;VK_CONTROL = 17;VK_MENU = 18;VK_PAUSE =
2005-09-22 14:26:00
607
原创 术语----堆(内存),栈(内存)
堆(内存)堆表示程序可用的内存区，也叫动态内存区。堆内存的分配与释放次序是随机的，这就是说，如果你按次序分配三块内存，那么到时并不按分配时的次序释放内存。 堆管理器会负责所有操作，你只需简单地使用GetMem 函数请求新内存或调用constructor 建立对象， Delphi 会返回一个新的内存块(随意重用已经丢弃的内存块)。 堆是应用程序可用的三种内存区之一， 其它两种分别是全局内存区(存放全
2005-09-22 14:08:00
3970
原创 ini 文件编程
一、有必要了解INI文件的结构： ;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。 注释以分号“;”开头。 二、定义1、在Interface的Uses节增加IniFiles； 2、在Var变量定义部分增加一行： m
2005-09-22 11:48:00
936
原创 记录类型以及开放数组参数
type Date = record Year: Integer; Month: Byte; Day: Byte; end;var BirthDay: Date;begin BirthDay.Year := 1997; BirthDay.Month := 2; BirthDay.Day := 14;与C语言不同，Pa
2005-09-22 10:45:00
665
原创 delphi 内存
传统的Pascal 语言其数组大小是预先确定的，当你用数组结构声明数据类型时，你必须指定数组元素的个数。专业程序员也许知道些许动态数组的实现技术，一般是采用指针，用手工分配并释放所需的内存。Delphi 4中增加了非常简单的动态数组实现方法，实现过程效仿我前面讲过的动态长字符串。与长字符串一样，动态数组的内存动态分配并且引用记数，不过动态数组不支持 copy-on-write 技术。这不是个大问题
2005-09-20 12:03:00
1203
原创 用StringStatus 函数在一个列表框中显示字符串的内部状态
function StringStatus (const Str: string): string; begin Result := Address: + IntToStr (Integer (Str)) + , Length: + IntToStr (Length (Str)) + , References: + IntToStr (PInteger (Integer
2005-09-20 11:50:00
1230
原创 将DBGrid 当前列定位到指定的字段上
// 功能：将 DbGrid 当前列定位到某字段上。// 参数： pDbGrid:TDbGrid; DBGrid// pcFieldName : string 数据表字段名，字段名不区分大小写// 返回：当表字段在 DBGrid 中存在时，返回表字段所在的列的序号，首序号为0// 否则，返回 -1// 引用：GetDbGridC
2005-07-21 09:26:00
1001
原创 一道受用终身的测试题
一道受用终身的测试题 标 题: 老人、医生和梦中情人，但你的车只能坐一个人!! 给你做一道题吧…… 测试一下看看你是不是通得过自已对自已的考验
2005-07-21 09:23:00
505
原创 男人必看得5个故事
1、 情况不同 一只小猪、一只绵羊和一头乳牛，被关在同一个畜栏里。有一次，牧人捉住小猪，牠大声号叫，猛烈地抗拒。绵羊和乳牛讨厌牠的号叫，便说：「他常常捉我们，我们并不大呼小叫。小猪听了回答道：「捉你们和捉我完全是两回事，他捉你们，只是要你们的毛和乳汁，但是捉住我，却是要我的命呢!立场不同、所处环境不同的人，很难了解对方的感受；因此对别人的失意、挫折、伤痛，不宜幸灾乐祸，而应要有关怀、了解的心情。要
2005-07-21 09:21:00
598
原创 你的数据库程序会被跟踪吗?什么代码都被别人看光了吗?(SQL SERVER)
当你使用的数据库是SQL SERVER时,是不是别人只要打开Profiler,你的程序就感觉赤祼祼了啊,那你想给你的程序穿上防护服吗?今天刚搞定的,答案(共两个):procedure SQLCloseAllTrack;const sql = declare @TID integer + declare Trac Cursor For + SELECT Distinct
2005-07-21 09:15:00
830
原创 用两种方法快速简单的实现窗口淡入淡出
在应用程序中引入图片淡入及淡出，可以让用户界面更加美观。以前报刊杂志中介绍的常用方法有两种：一是自己写程序，诸个象素进行混合渐变；二是使用DirectX，建立一个带Alpha通道的Surface。第一种，效果可以自己控制，但比较麻烦，而且一般不容易生成硬件优化的代码；第二种速度很快，却需要使用DirectX库。 本文结合Delphi实例代码，介绍两种简单快速的实现方法，算是一个总结吧，希望能
2005-07-20 13:22:00
1043
转载 带鼠标图形的截屏代码
截屏软件我们见过的有很多了，可是大多数软件截获后的图片是不能带鼠标图形的，这为我们的使用带来了很大的不便。下面这个单元可以实现带鼠标图形的截屏，并且有多种截屏模式可供选择。unit MyGraph;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls,Forms, Dialogs ,jpeg ,Registry
2005-07-20 13:20:00
891
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人