随笔档案「2012年6月」 - 为人民服务

Demo: 模仿画图程序的选块另存为功能

摘要：Demo: 模仿画图程序的选块另存为功能分类：编程笔记 2007-06-16 10:31转自：http://rabbitfox.blog.sohu.com/50812083.html(**************************************** 单元名称: 模仿画图程序的选块另存为功能作者: LihuaSoft 编码日期: 2007年6月16日说明: 因此程序是演示程序, 只允许使用 BMP格式图片*****************************************)unit Unit1;interfaceuses Windows, Message 阅读全文

posted @ 2012-06-15 21:55 为人民服务阅读(406) 评论(0) 推荐(0)

在DBGrid增加一列CheckBox(而非DBCheckBox

摘要：来自：http://rabbitfox.blog.sohu.com/33264033.htmlhttp://community.csdn.net/Expert/topic/5342/5342920.xml?temp=.9525568问：如何使dbgrid增加一列类似checkbox的控件,可以用鼠标来选择该行是否被选中,可以多选最好的思路还是要在数据表里增加一个布尔字段，然后用DBCheckBox与它关联，而不是CheckBox。（至于在DBGrid里嵌入DBCheckBox的方法，可以参考：http://topic.csdn.net/t/20021118/16/1186480.html）阅读全文

posted @ 2012-06-15 21:54 为人民服务阅读(543) 评论(0) 推荐(0)

Delphi编程分割图片的方法

摘要：Delphi切割图片,Delphi图片分割这个例子是把一张图片平均分成了 4 份, 顺序是: 左、右、上、下; 没使用循环操作, 显得有点笨, 但容易理解.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1: TFo 阅读全文

posted @ 2012-06-07 20:09 为人民服务阅读(669) 评论(0) 推荐(0)

Windows Server 2003 IIS 6.0 多用户FTP服务配置

摘要：WindowsServer2003IIS6.0多用户FTP服务配置2011-04-08 作者:李海彬阅读:814 虽然使用IIS配置FTP服务器也有很多次了,可是一直不知道FTP竟然是支持多用户的，惭愧啊，并且在配置账号密码上也有误解，现在一并总结出来。通过阅读IIS自带的帮助文档，了解到IIS 6.0 的FTP服务器是支持多用户的，那如何配置呢，步骤如下：（1）新建FTP登陆账号运行“管理工具”->“计算机管理”，选择“本地用户和组”，再选择“用户”,可以看到用户列表。如果不是匿名登陆FTP服务器的，必须要先在这里建立新用户，之后再通过这个用户名访问FTP服务器。在“用户”那里阅读全文

posted @ 2012-06-03 21:16 为人民服务阅读(2254) 评论(0) 推荐(0)

如何更高效的禁止向LISTVIEW添加重复数据

摘要：我们在编写程序时，LISTVIEW是一个常用的控件，我们经常要向LISTVIEW控件添加大量的数据，而其中有些数据是不能重复的，一般情况下，我们会采用以下方法来编写程序 //stTest是将要添加的数据 for i:=0 to listview1.item.count-1 do begin if stTest=listview1.items[i].caption {假设CAPTION不能相同} then break else begin item:=listview1.items.add; item.caption:=stTest; end; end; 采用这种方式是网络上和一些编程教程... 阅读全文

posted @ 2012-06-03 21:14 为人民服务阅读(1100) 评论(0) 推荐(0)

关机与禁止关机代码

摘要：今天抽空,写完了定时关机程序的代码,测试了一下,还不错,以前写过个禁止关机的程序,用来测试一下,看哪个强,先运行禁止关机的程序,用Windows xp的关闭计算机试了一下,关不了. 代码很少:private procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;procedure TForm1.QueryEndSession(var Msg:TMessage);begin Msg.Result:=0;end;就是收到关机消息后返回0,告知还不能关机.而定时关机这边主要是用这条API指令来关机: BOOL E 阅读全文

posted @ 2012-06-03 21:13 为人民服务阅读(1118) 评论(0) 推荐(0)

无线路由器作为无线交换机用的例子

摘要：08年的时候参加了一个系统研发小组,地方选择在南宁的某酒店,当时大约有10多号人,两人住一个标间,每个标间配一个网线,为了方便工作,要将小组的笔记本电脑联网,于是买了一台家用型的无线路由器,有4个LAN口,一个WAN口那种,打算大家通过这台无线路由器上网. 酒店方的网关IP为:192.168.254.99,DHCP自动分配IP地址,另外有一台服务器,存放了大量的电影文件,IP:192.168.253.190,知道了这些信息,按路由器的正常配置: WAN:192.168.254.230 掩码:255.255.255.0 (测试过此IP空置) LAN:172.16.10.1 掩码:255.255. 阅读全文

posted @ 2012-06-03 21:12 为人民服务阅读(741) 评论(0) 推荐(0)

LISTVIEW显示JPEG缩略图

摘要：http://www.ctsys.cn/files/SHOW_FILES.ASPX?ID=22许多的JPEG图片浏览器（如由我设计的《JPEG浏览缩放器》），都可以将JPEG缩略图放置到Listview控件中，实现图片的预览。要在Listview上显示图片，Listview控件必须与Imagelist控件关联，先将图片装入到IMAGELIST控件中，再通过这种方式对应: Listview1.Item[0].ImageIndex=3但是Imagelist控件仅支持BMP和ICO格式，而且装载进去的图片，必须强制转换成一个预定的大小，如32*32等，对于JPEG格式的图片来说,是不支持的,而通过重阅读全文

posted @ 2012-06-03 21:07 为人民服务阅读(2008) 评论(0) 推荐(0)

GDI+ 实现透明水印和文字

摘要：最近给《JPEG浏览缩放器》增加了水印功能，在设计的过程中，参考了网上的文章，但是发现文章使用的GDI+ API封装包不是我现在使用的那一套，目前DELPHI使用的GDI+ API封装包有两套，一套包括以DirectDraw.*、Gdipapi.*、Gdipobj.*、 Gdiputil.*为文件名，另一套以GdipExport.*、Gdiplus.*、GdipTypes.*、GdipUtil.*为文件名，我使用的是前者，文章所用的是后者，于是将文章原代码根据我用的那套GDI+ API封装包进行修改，修改后的代码如下: USES GDIPUTIL,GDIPAPI,GDIPOBJ;proced. 阅读全文

posted @ 2012-06-03 21:06 为人民服务阅读(2566) 评论(0) 推荐(0)

Delphi在Listview中加入Eeit控件

摘要：Delphi在Listview中加入Eeit控件2010-07-15 作者:李海彬阅读:1154 Listview是一个非常有用的控件,我们常常将大量的数据(如数据库里的数据)导入到Listview中,有的时候我们需要编辑Listview里的数据,而它并不提供编辑的功能,怎么样才能使它具有编辑功能呢?你可以试试下面这种方法。首先在FORM1中放置一个Listview控件和一个Eeit控件。Edit控件有什么用?当然是用来编辑Listview里的内容，程序的想法是这样的：当鼠标点击了Listview控件后，根据鼠标位置将Edit控件放置到Listview对应的Column里，将对应Ite.. 阅读全文

posted @ 2012-06-03 21:04 为人民服务阅读(2248) 评论(0) 推荐(0)

Delphi实现悬浮的卡拉ＯＫ字幕

摘要：Delphi实现悬浮的卡拉ＯＫ字幕2010-07-15 作者:李海彬阅读:441 千千静音的悬浮式卡拉ＯＫ字幕，大家一定觉得不错吧，其实用Delphi，你也可以很容易的做得到。首先我们在Delphi中新建一个700*130左右的窗体，上面放置两个Image控件，Image控件的Align=alClient,使它们铺满窗口，唯一不同的是，Image1的Visuble=ture,用于前台显示字幕，Image2的Visible=false,用于后台绘制，还要用到一个Timer控件,Interval=100。要使字幕悬浮在Windows桌面上显示，第一要求窗体是透明的，只显示字幕；第二要求字幕.. 阅读全文

posted @ 2012-06-03 21:02 为人民服务阅读(1161) 评论(0) 推荐(0)

Delphi 动态选择控件的输入法

摘要：Delphi动态选择控件的输入法2010-10-06 作者:李海彬阅读:475Delphi的EDIT、Memo等可以接受用户输入的控件，都可以通过ImeName属性为其选择一个输入法，但是在编程的过程中，我们无法知道最终的用户会使用哪种输入法，所以对于控件ImeName属性，我们一般不做设置，但在实际应用中，用户又希望他们在录入数据时，能锁定自己常用的一种输入法，其实通过简单的代码，我们就能实现这一点。procedure TForm1.FormCreate(Sender: TObject);var I:integer;begin//初始化的时候，将电脑所安装的输入法列举加入Combobo.. 阅读全文

posted @ 2012-06-03 21:00 为人民服务阅读(555) 评论(0) 推荐(0)

Delphi FastReport动态加载图片

摘要：DelphiFastReport动态加载图片2011-01-06 作者:李海彬阅读:684 以前用FastReport制作报表,从来没有打印过图片,这段时间做了个打印个人简历的程序，需要打印照片。试着在frreport模板中加载照片没问题，可是想要动态的装载照片要怎么做呢，我的要求是将个人简历包括照片存放在数据库中，在用户查看简历时，先将简历数据载入，照片放在IMAGE控件中，如果要打印，点击[打印]按钮即可。由于每个人的简历照片都不同，所以只能在打印时装入照片。上网找了段代码，是C ++ Builder的： TfrPictureView *pic; pic=(TfrPicture... 阅读全文

posted @ 2012-06-03 20:59 为人民服务阅读(2615) 评论(0) 推荐(0)

delphi 7.0 DateTimePicker控件相同日期比较的问题

摘要：delphi7.0DateTimePicker控件相同日期比较的问题2011-03-19 作者:李海彬阅读:547 DateTimePicker控件作为日期时间控件,在DELPHI中使用得很广泛的,它根据KIND属性可设置为日期控件（dtkDate）或时间控件（dtkTime）,我一直认为，将它设置为日期控件时，与时间是无关的，可是在实际应用中，发现并不是这样。比如下面的这一个程序，两个 DateTimePicker分别用于设置查询数据的起始日期和终于日期，要执行查询时，要求起始日期不能大于终止日期，否则弹出错误提示，可是在两个 DateTimePicker设置的日期相同时，按下[查询.. 阅读全文

posted @ 2012-06-03 20:55 为人民服务阅读(1730) 评论(0) 推荐(0)

LISTVIEW导出到EXCEL的通用函数

摘要：LISTVIEW导出到EXCEL的通用函数2011-08-25 作者:李海彬阅读:470 使用Delphi开发数据库系统软件时,经常会使用Listview控件作为数据库的容器,而将数据导出到Excel中,也经常要用到. 首先在FROM中添加一个BUTTON控件,一个LISTVIEW控件(设成vsReport),一个SaveDialog控件. 下面给出将Listview控件直接导出到Excel表格中的通用代码:use comobj;//直接将LISTVIEWR控件作为入参.procedure TForm1.Excel_lv(lvpt:tlistview);var XL,SHEET:vari.. 阅读全文

posted @ 2012-06-03 20:53 为人民服务阅读(716) 评论(0) 推荐(0)

在DateTimePicker上显示星期几

摘要：DateTimePicker是常用的日期时间控件,在作为日期控件使用时,我们一般只能在上面显示年/月/日的信息,虽然我们可以通过Format格式字符串来设置日期的样式,如用yyyy表示年份,M表示月份,d表示日期,但对于星期几,好象没有相应的英文字母来代表它.而在一些软件上,我却看到它们可以在DateTimePicker上显示星期几,如何实现的呢?应该是通过FORMAT吧,我试写了一下代码,在每次改变DateTimePicker的日期值后,重新计算该日期值是星期几,之后重设DateTimePicker的FORMAT=’yyyy年m月d日星期几’来实现.以下是代码://设置DateTimePic 阅读全文

posted @ 2012-06-03 20:51 为人民服务阅读(1951) 评论(0) 推荐(0)