摘要：/修改
var
form1: tform1;
startbutton: hwnd;
oldbitmap: thandle;
newimage: tpicture;
/ 将代码放入formcreate事件
procedure tform1.formcreate(sender: tobject);
begin
newimage := tpicture.create;
......
摘要： 在delphi数据库应用程序中，我们访问数据库通常有两种方法．一种是通过bde数据库搜索引擎，即利用delphi自带的数据库驱动程序，这种方法的优点是速度快，但应用范围有限，当数据库版本更新时，有可能不能用于操作新的数据库；另一种方法是通过odbc，这种方法的优点是可以随操作系统(如windows)提供，作为标准接口能适应多种数据库，缺点是速度慢．在编程时，我们可以根据需要选择其中的一种方法．......
用Delphi实现图形化批量IP检测作者:广东南海市公安局计算机安全监察股 喻凯
【程序编程相关:
避免浮点操作的四舍五入错误】 【推荐阅读:
用Delphi 5创建Web Servi】
当要检测的ip比较少时,我们一般直接使用dos命令ping来实现.但是,如果我们要检测的ip比较多时（比如一个网段）,再用ping命令就比较繁琐了,即使写一个批处理来实现,大把数据看起来也让人恼火.这里,我们用delphi实现对批量ip的检测,检测结果用明了的图形显示. 【扩展信息:
得到CPU速度，单位MHz】
一:程序实现
在这个程序中,我们用treeview来表示检测的ip结果;用ics控件组的ping控件来实现对ip的检测.
一）ping功能的实现
为了实现ping功能,我们在ics的ping控件基础上写一个函数,函数结果表示ip是否可以ping通,如果可以,结果为true,反之,为false.函数如下:
//函数ping
//使用了ics的ping控件
function tmainform.ping(strip:string):boolean;
begin
//ip地址
ping1.address:=trim(strip);
ping1.ping;
//结果
if ping1.errorcode=0 then
begin
ping:=true;
end
else
begin
ping:=false;
//如果不能ping通,i加一;
i:=i+1;
end;
end;
函数说明:
参数strip:要检测的ip;
变量i:如果不能ping通,i加一（注意:i定义为一个全局变量）;
二）控件说明
程序中使用控件的属性功能如下:
三）程序代码
主要代码部分如下:
var
mainform: tmainform;
//i记录不能ping通的总数;
i:integer;
...
下一页 摘要： 在我们日常工作中，常会碰到这样一个难题：一大堆收集好的纯文本格式，比较规整的资料怎样才能将它们分离，转到自己已经建好的数据库中进行管理呢？例如，有一段人事档案资料document.txt，内容如下：
张强,25,助理工程师,
王宏,30,工程师,
李远,45,高级工程师,
要将它转入数据库中，document.db结构如下：
姓名，年龄，职称
怎么办呢？现在通......
