基于Winint API的网址检索应用

摘 要：Delphi与本地Windows具有较好的整合性，对Windows API的支持也达到了一定高度。在网络编程的实现中，除了可以利用Delphi自带的各种网络组建之外，还可以直接应用windows API命令来实现，同时在搜索的同时，系统还在系统条中随时反馈网络搜索情况。

关键词：API；Delphi；网络编程

中图分类号：TP393.08

1 基于Winint API的体系结构

利用Delphi对Windows API命令的强大支持，可以在程序中很轻松地对底层的系统的调用，这就是使用API命令较使用其他空间所具备的较为突出的优点。通过使用Winint API，从而可以轻松的调用其中的三个网络API函数——InternetOpen、InternetOpenurl和InternetReadFile等三个命令。通过对这三个API函数的适当组合，可以检索和拷贝任何URL对应的文件，通过对该文件进行解析，可以从中取出所需要的字段信息，通过检索出文件资料中包含检索关键字的网址，然后添加到程序列表框中。

2 Winint API网址检索的基本步骤

使用API命令的一个主要优点是使用的空间较少，设置也比较的简单。

（1）新建一个工程，然后往系统自动创建的空白窗体上添加控件：一个TEdit对象，用来输入检索关键字，一个TlistBox对象，用来存储URL列表记录，一个TstatusBar对象以显示状态，同时还需要添加一个按钮对象，以创建他们并作适当布局。

（2）由于程序检索是要通过后台手机信息，所以一般都要耗费相当长的一段时间。为了解决这个问题，可以通过建立一个县城Tthread对象来控制后台进程，这样处理的一个比较明显的好处，就是在程序运行过程中可以一次执行多个搜素操作，即可建立多个进程：

tfindweb=class（tthread）

private

strstatus：string；

protected

procedure execute；override；

procedure addtolist；

procedure showstatus；

public

strurl：string；

straddr：string；

end；

其中，全局对象Straddr用来保存程序收集到信息文件。

（3）该线程具有三个方法，其中最为重要的就是Execute，这是一个所有线程对象都具备的方法，编辑该方法，对父类Thread的方法实现进行覆盖。：

tread：=”；

hhttpsession：=internetpoen（‘findweb’，internet_open_type_preconfig，nil，nil，0）；

try

hrequrl：=internetopenurl（hhttpsession，pchar（strul），nil，0，0，0）；

strstatus：=’链接到：’+strurl；

synchronize（showstatus）；

try

repeat

internetreadfile（hrequrl，@buffer，sizeof（buffer），nread）；

strred：=strread+string（buffer）；

stread：=strread+string（buffer）；

stratatus：=’正在接收：’+inttostr（length（strread）+’of’+strurl；

synchronize（showstatus）；

until nread=0；

finally

interetclosehandle（hrequrl）；

end；

finally

interneclosehandle（hhhttpsession）；

end；

straddr：=strread；

Synchronize（addtolist）；

（4）在上面的方法实现中，通过线程对象的Synronize对象方法，对线程的两个输出过程AddTOlist和ShowStatus进行调用，使之不断地向主窗体反馈信息。其中，ShowStatus方法用来实现在状态条中显示转台，操作比较简单，只要将它赋给StatusBar1的相应属性即可。AddToList方法则用来对获取的文件信息进行分析，从中解析出网址，然后加入到列表中去，在这个方法的内部需要一点点技巧，在程序中，为了简单，只显示有限几条网址：

Spos：=pos（‘href=http：’，straddr）；

Strl：=copy（straddr，spos，（spos+40））；

Epos：=copy（straddr，spos+5，epos-6）；

Form1.listbox1.items.Insert（i，str）；

Inc（i）；

Straddr：=copy（straddr，spos+spos+epos，length（straddr）-epos-spos+1）；

（5）主窗体上，只有一个按钮的单击事件，在该事件中，需要设置一些检索的属性，并唤醒线程：

Findwebthread：=tfindweb.crewate（true）；

Findwebthread.FreeOnTerrminate：=true；

Findwebthread.strurl：-‘http：///bin/search？p=’+form1.edit1.text+’&n=100&h=s&b=1’；

Findwebthread.Tesume；

（6）保存工程文件，运行程序，可以实现网址的检索。

3 总结

文本通过对Winint API命令与线程的相互配合使用，实现了在网络编程的过程中对网络地址的检索功能，并且使用API命令所涉及的各种控件较少，设置更为简单，有效性更强。

参考文献：

[1]网冠科技.Delphi 5.0控件时尚编程百例[M].北京：机械工业出版社，2001，07.

[2]刘艺.Delphi程序设计大学教程[M].北京：机械工业出版社，2005，06.

作者简介：刘畅（1978-），研究方向：计算机网络。

作者单位：吉林工商学院，长春 130062