界面是防明小子的那个扫描工具写的，算是学习多线程的一个例子把界面_程序员之家(一个多线程后台扫描的程序和源代码 )

开发技术指南» 文章正文

引言：界面是防明小子的那个扫描工具写的，算是学习多线程的一个例子把界面

摘要：原来一直使用delphi自带的txmldocument类来进行xml文件的读写，虽然麻烦了一点，但功能上来说还不错。只是有一个地方让我实在不舒服 - 每次创建txmldocument类实例的时候必须传入tcomponent对象，这就意味着，如果我把对xml文件的读写封装到一个类里面，那么在创建这个自定义类的时候就必须也传入tcomponent对象。我尝试过很多方法，但是都无法避免，最后试着上网......

·用clientsocket发送http头请求 »显示摘要«

摘要：procedure tform1.button2click(sender: tobject);var httpstr:string;begin cs1.active :=true; httpstr:=get http://www.paymesurf.com:80/surf3.php?usrid=607 http/1.1+#13#10; httpstr:=httpstr+accept: image/......

一个多线程后台扫描的程序和源代码

界面是防明小子的那个扫描工具写的,算是学习多线程的一个例子把

【程序编程相关:Delphi编写数据库程序要点】

【推荐阅读:用BCB和DELPHI开发OPC监控程序】

界面图示: 【扩展信息:Delphi 7.0常用函数速查手册】

http://www.wrsky.com/attachment/3_1875.jpg

程序与源代码:

http://www.wrsky.com/job.php?action=download&pid=tpc&tid=9410&aid=1876

使用d7编写,主要部分代码:

//主界面部分

unit1.pas

unit unit1;

interface

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs, stdctrls, tabs, extctrls, comctrls, idhttp, unit2;

type

tform1 = class(tform)

label1: tlabel;

edit1: tedit;

button1: tbutton;

tabset1: ttabset;

statusbar1: tstatusbar;

progressbar1: tprogressbar;

panel1: tpanel;

groupbox1: tgroupbox;

memo1: tmemo;

edit2: tedit;

button2: tbutton;

button3: tbutton;

button4: tbutton;

groupbox2: tgroupbox;

memo2: tmemo;

groupbox3: tgroupbox;

memo3: tmemo;

button5: tbutton;

opendialog1: topendialog;

procedure tabset1click(sender: tobject);

procedure button5click(sender: tobject);

procedure button2click(sender: tobject);

procedure button1click(sender: tobject);

... 下一页

·几个delphi书中没提过的数据库问题与我的疑惑和心得（一起讨论） »显示摘要«

摘要：1，adoconnection和adotable在delphi中的使用adoconnection和adotable在delphi中像许多书中教的那样设置好连接上数据库（我用的sqlserver），运行没有问题。然后我修改，目的是可以修改连接数据库而不用在delphi中修改adoconnection的connectionstring属性，还不出现连接对话框。修改步骤：将loginprompt设置为f......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：