- 博客(30)
- 资源 (6)
- 收藏
- 关注
RSS订阅
转载 Delphi中流的基本概念及函数声明
一、Delphi中流的基本概念及函数声明在Delphi中,所有流对象的基类为TStream类,其中定义了所有流的共同属性和方法。 TStream类中定义的属性介绍如下: 1、Size:此属性以字节返回流中数据大小。 2、Position:此属性控制流中存取指针的位置。 Tstream中定义的虚方法有四个: 1、Read:此方法实现将数据从流中读出。函数原形为: Function Read(va
2009-12-16 09:59:00
565
原创 cb 服务程序开发
好久没有写东西了，实在是太懒惰了，前一阵写了一个服务程序，觉得挺简单的，但是某日一位小弟却来求救，声称服务程序很灵异，为此研究了一下，果然有点意思：一、服务程序的创建:其实服务程序的开发很简单，只要选择菜单File-->New-->Other--->Service App
2011-10-07 15:20:41
916
原创 判断鼠标点击事件点下的是哪个键
<br />常常在程序中处理鼠标事件，常常见到ssLeft判断鼠标按键，始终没太注意，今天收集了一下相关知识。<br /> <br />—— ssShift，判断当前是否键盘shift键被按下<br />—— ssAlt，判断当前是否键盘Alt键被按下<br />—— ssCtrl，判断当前是否键盘Ctrl键被按下<br />—— ssLeft，判断当前是否鼠标左键被按下<br />—— ssRight，判断当前是否鼠标右键被按下<br />—— ssMiddle，判断当前是否鼠标中键被按下<br />——
2011-04-14 13:13:00
1474
原创 CB2007 中使用Microsoft Agent 控件
<br />一、控件的安装：<br />1. 一般windows 2000和XP中都已经预装了Agent组件，不过也有例外，我的系统里就没有，不过没关系，Agent控件的核心组建msagent.exe 找到后安装一个就好了。<br />2. 不要忘了还需要安装acs文件。<br />3.安装Agent控件：<br /> a>打开编译器，新建一个package工程<br /> b>Component-〉Import Component->Import ActiveX Controls 下一步，从R
2010-12-22 16:06:00
528
转载 vc lib 转 bcb
<br /><br />今天用C++Builder6.0 调用三方lib文件时，编译的时候出现如下错误：<br />“contains invalid OMF record, type 0x21 (possibly COFF)”<br />才知道这个lib文件是别人用VC做的，要在C++Builder下面使用的，必须转换成CB格式的<br />这才想起调用CB安装目录下的coff2omf工具；需要cmd 操作，忘了一通了，查查文档，转换成功，<br />现在记录一下。<br />先把需要转换的VC的ml.l
2010-10-28 16:13:00
1813
原创 在回调函数中调用vcl事件
<br />近日整理以前的工程，作了一个IndyThreadComponent控件的管理，为了在启动线程时执行不同的功能，要对线程的OnRun事件进行调整，因此想到用回调函输来处理；<br />1. 首先，先定义了一个与IndyThreadComponent控件OnRun事件相同的函数体<br /> void __fastcall TMyForm::MyThrd(TIdThreadComponent *Sender)<br />{<br /> <br />EnterCriticalSection(&cs2
2010-10-22 12:06:00
723
原创 sqlserver2000 的timestamp原来可以转成bigint型
<br />为了实现对数据库变化的监控想到了可以用一下sqlserver 的timestamp类型，大致的知道一些用法，没想到使用起来却是一筹莫展。<br />sqlserver帮助文档中说：<br />timestamp<br />用于表示SQL Server在一行上的活动顺序，按二进制格式以递增的数字来表示。当表中的行发生变动时，用从@@DBTS函数获得的当前数据库的时间戳值来更新时间戳。timestamp数据与插入或修改数据的日期和时间无关。若要自动记录表中数据更改的时间，使用 datetime 或
2010-08-30 10:09:00
8040
原创 ListView 的按列排序
一个非常常见的功能，点击列表头排序；1. 先定义两个变量 int ColumnToSort; bool desc;2. 设置ListView的ColumnClick属性为true；3. 处理OnColumnClick事件void __fastcall TFMain::ListView1ColumnClick(TObject *Sender, TListColumn *Column){ ColumnToSort=Column->Index; if (Column->Tag==0) {
2010-08-23 16:10:00
992
原创 内存共享实现程序间的互斥运行
<br />原理很简单，在虚拟内存中按名称共享一个数据，通过对该数据的验证实现程序间的互斥。<br />主要用到的方法：<br /> 1. CreateFileMapping(...);<br /> 2. MapViewOfFile(...);<br /> 3. OpenFileMapping(...);<br /> 4. CloseHandle(...);<br />用法bcb help中就有例程，这里就不浪费唇舌了，只是记下来备用。<br /> <br /> <br />实现代码
2010-08-19 11:17:00
862
原创 TListString 分隔字符串 代码顺序很关键
<br />转做builder以来常常会用到TListString 这个控件来完成字符分隔的工作，用法很简单，很方便，但是今天的这段代码却没有达到预期的效果。<br /> Stirng str = "a,b,c,d;e,f,g;"<br /> TStringList * lst = new TStringList(); <br /> lst->DelimitedText = str;<br /> lst->Delimiter = ';';<br /> for(int i =0;i<lst->Count;i+
2010-08-16 15:28:00
691
原创 bcb combobox 加载text 和value
<br />今天用到的，积累下来供下次使用。<br />一直想实现类似网页中select的那种功能，显示一个值同时对应一个隐含的值。<br />要用到combobox的一个方法：<br />virtual int __fastcall AddObject(const AnsiString S, System::TObject* AObject)<br />也就是说你可以将想要加载到ComboBox的对象转成一个Object。<br />举例说明：<br /> <br />我想要为ComboBox1加载：<b
2010-07-28 14:16:00
3358
原创 RzPageCtrl 的用法
<br />好久没有写东西了，今天被一个小小的问题折磨了半天，faint！<br />原本想要做一个动态生成页面的程序结果发现生成后激活的标签页很难分辨出来，想要改变当前页的颜色。。。。悲剧了。。。。<br />不过总算解决了，记下来，省得下次再掉进同一口井里。<br /> <br />事实是RzPagectrl的当前页标签的颜色正是它自身的颜色，因此要想改变当前标签的颜色只需设置RzPageCtrl的Color属性，同时在TabColors中设置shadow的颜色为标签设置阴影颜色即可获得想要的效果。<b
2010-07-12 16:05:00
691
转载 邮件蠕虫与垃圾邮件技术的融合
邮件蠕虫与垃圾邮件技术的融合 作者：pkxp/CVC日期：2004-03-05 背景 病毒，DDOS，垃圾邮件已经成为当今网络安全的三大技术难题。反垃圾邮件之所以如此困难，是因为(E)SMTP协议本身的缺陷。正如DDOS，是利用TCP/IP协议固有的缺陷一样。需要说明的是，邮件蠕虫为了传播自身而发送的邮件，也属于垃圾邮件的一种。 2003年出现的Sob
2010-05-10 13:25:00
1037
转载 BCB通用函數庫
今天浏览网页又有新收获获得计算机名称AnsiString GetComputerName() { char name[MAX_COMPUTERNAME_LENGTH + 1]; DWORD size = MAX_COMPUTERNAME_LENGTH + 1; if(GetComputerName(name,&size)) ret
2010-05-10 13:04:00
2204
原创 bcb AnsiString 型的内存释放
最近做一个项目，在线程中用到了一个大约5k大小的string型变量，发现内存不断增长，这种现象应该会很常见，我们通常都采用str=""的方法给str置空，而实际上这种方法只是将结束符"/0"放到最前面，并未将内存清空并释放，下次使用str时会在"/0"前插入赋的值，这样str占的空间就不断增长，要想真正的释放str占用的空间，需要加入以下代码：str.delete(0,str.Length()
2010-05-06 13:35:00
1973
原创 bcb 在ListView中显示图标
一、 在列标题上显示图标 1.为smallimage关联imagelist； 2.在columns中选中要显示图标的列，在imageindex属性中设置imagelist的值即可。二、在第一列中显示图标 1.为stateimage关联imagelist； 2.加载item时设置imageindex的值。 TListItem
2010-04-24 16:53:00
1737
转载 bcb中寻找本机或者服务器上活动的SQLServer
又发现点有用的东西，继续收集。。。。 #include //包含头文件Variant SQLServer; Variant Serverlist; int i,nServers; String aRetValue; try { SQLServer=CreateOleObject("SQLDMO.Application"); } catch(...
2010-04-09 10:13:00
631
转载 C++BUILDER中几种容器的使用
C++BUILDER中几种容器的使用 -------BCB中控件数组的实现 C++BUILDER是Borland公司基于C++的快速开发工具，它简单的使用方法和强大的功能一直深受很多编程人员的好评。C++BUILDER（以下简称BCB）的组件库跟DELPHI一样，都是VCL。跟微软的MFC不同，VCL完全是用Object Pascal语言编的。也因此，使BCB同时获得了Pascal和C++的强大功
2010-03-22 16:18:00
4353
转载 asp图片加水印的功能
asp肯定是需要组件来实现的。找了一个AspJpeg的组件，实现了图片水印或者文字水印的功能，使用的组件名称是：AspJpeg 1.9.0.1 (搜索V1.9应该就可以找到) 破解注册码：17361-38566-42221（安装完成的时候输入）CodeCode highlighting produced by Actipro CodeHighlighter (freeware)http://w
2010-03-20 13:59:00
1371
转载 HTML特殊标记 上标 下标 下划线 删除线等——收集中
HTML特殊标记 上标 下标 下划线 删除线等 在网页设计中，有时会遇到一些特殊的表示方式，比如化学组成、方程式等会用到上标或者小标等一些特殊的表示方式。上标：上标内容 例如：a3小标：小标内容 例如：H2下划线：下划线内容 例如：重点推荐内容删除线：删除线部分内容 例如：市场价：128.00 元斜体：斜体部分内容 或者斜体部分内容 加粗：粗体部分内容或者粗体部分内容
2010-03-20 13:56:00
3423
转载 c++ 技巧
又找到点有用得东西，收集起来。 1、启动屏保程序，发送一条启动的消息给windows就行了void __fastcall TForm1::Button1Click(TObject *Sender){SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);}2、动态调用程序 如果我们需要实现动态调用程序功能
2010-03-12 16:09:00
603
原创 bcb 读写txt
一、写txt： //保存到txt文件 info = "cmd /c echo " + info + ">>alarm.txt"; //info 要写入txt的字符串 WinExec(info.c_str(),SW_HIDE); 二、读txt： //读txt String fnm, msg; TStringList* S = new TStri
2010-03-09 13:51:00
2720
转载 TDBChart和TChart的一些用法
TDBChart和TChart的一些用法2009-12-01 22:412009-07-27 | TDBChart和TChart的一些用法 有关DBChart的问题，报错：is not valid floating point valuewith dmAllWeb.ADOQuery3 dobeginSQL.Clear;SQL.Add(selec
2010-03-01 10:19:00
3000
转载 开源代码网站收集
优秀网站源码、编程源码下载网站大集中 1.51源码：http://www.51aspx.com/ ——web 编程2.源码之家：http://www.codejia.com/ ——web 编程3.源码网：http://www.codepub.com/ ——web 编程4.虾客源码：http://www.xkxz.com/ ——w
2010-02-26 15:35:00
1109
原创 TDBChart 用法
最近开发的软件要做个曲线图，从网上搜索后知道了BCB中自带的TeeChart std中有TChart和TDBChart空间可以实现此功能，然而添加控件后即被长长地属性列表和右键菜单吓晕了，几经尝试总算可以画出一个小小的曲线图，赶紧记下来，为以后用。 静态使用：1. 添加控件：TeeChart std中选择TDBChart；2.右键选择EditChart...3.从Chart选项
2010-02-02 14:39:00
10527
原创 Delphi 获取句柄 sendmessage
查找另外一个窗口的句柄： handle := FindWindow(nil,PChar(窗口的标题));//查到窗体句柄查找子窗体：childHandle := FindWindowEx(handle,0,子窗体类,子窗体标题); 另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);用这个函数需要自己写一个回调的函数，比如：function
2009-12-19 10:48:00
1583
转载 DELPHI 文件压缩加密
1、 系统功能 1）、数据压缩 使用DELPHI提供的两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩。 2）、数据加密压缩 通过Delphi编程中“流”的应用实现数据加密，主要采用Tstream的两个派生类Tfilestream、Tmemorystream 来完成的；其中数据压缩部分采用1）的实现方法 3）、双击压缩文件自动关联
2009-12-16 16:58:00
3658
2
转载 Delphi的快捷键
//**************需要强调的两个快捷键********************** 51.CTRL+SHIFT+U 代码整块左移2个空格位置 52.CTRL+SHIFT+I 代码整块右移2个空格位置 60.Ctrl+Alt+c 注释块 61.Ctrl+Alt+u 取消注释块 48.CTRL+SHIFT+C
2009-12-03 10:22:00
401
转载 listview 用法详解
2007-12-10 19:57//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:=id;ListView
2009-11-27 16:03:00
1566
c++builder2007下的UDP通信源码
2011-09-19
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人