本站原创本文是一篇计算机网络论文范文,关于计算机网络方面在职研究生毕业论文,关于基于WinintAPI的网址检索应用相关在职毕业论文范文。适合计算机网络及参考文献及对象方面的的大学硕士和本科毕业论文以及计算机网络相关开题报告范文和职称论文写作参考文献资料下载。
摘 要：Delphi与本地Windows具有较好的整合性,对WindowsAPI的支持也达到了一定高度.在网络编程的实现中,除了可以利用Delphi自带的各种网络组建之外,还可以直接应用windowsAPI命令来实现,同时在搜索的同时,系统还在系统条中随时反馈网络搜索情况.
关 键 词：API；Delphi；网络编程
中图分类号：TP393.08
1基于WinintAPI的体系结构
利用Delphi对WindowsAPI命令的强大支持,可以在程序中很轻松地对底层的系统的调用,这就是使用API命令较使用其他空间所具备的较为突出的优点.通过使用WinintAPI,从而可以轻松的调用其中的三个网络API函数——InterOpen、InterOpenurl和InterReadFile等三个命令.通过对这三个API函数的适当组合,可以检索和拷贝任何URL对应的文件,通过对该文件进行解析,可以从中取出所需要的字段信息,通过检索出文件资料中包含检索关键字的网址,然后添加到程序列表框中.
2WinintAPI网址检索的基本步骤
使用API命令的一个主要优点是使用的空间较少,设置也比较的简单.
（1）新建一个工程,然后往系统自动创建的空白窗体上添加控件：一个TEdit对象,用来输入检索关键字,一个TlistBox对象,用来存储URL列表记录,一个TstatusBar对象以显示状态,同时还需要添加一个按钮对象,以创建他们并作适当布局.
（2）由于程序检索是要通过后台手机信息,所以一般都要耗费相当长的一段时间.为了解决这个问题,可以通过建立一个县城Tthread对象来控制后台进程,这样处理的一个比较明显的好处,就是在程序运行过程中可以一次执行多个搜素操作,即可建立多个进程：
tfindweb等于class（tthread）
private
strstatus：string；
protected
procedureexecute；override；
procedureaddtolist；
procedureshowstatus；
public
strurl：string；
straddr：string；
end；
其中,全局对象Straddr用来保存程序收集到信息文件.
（3）该线程具有三个方法,其中最为重要的就是Execute,这是一个所有线程对象都具备的方法,编辑该方法,对父类Thread的方法实现进行覆盖.：
tread：等于”；
hhttpsession：等于interpoen（‘findweb’,inter_open_type_preconfig,nil,nil,0）；
try
hrequrl：等于interopenurl（hhttpsession,pchar（strul）,nil,0,0,0）；
strstatus：等于’链接到：’+strurl；
synchronize（showstatus）；
try
repeat
interreadfile（hrequrl,@buffer,sizeof（buffer）,nread）；
strred：等于strread+string（buffer）；
stread：等于strread+string（buffer）；
stratatus：等于’正在接收：’+inttostr（length（strread）+’of’+strurl；
synchronize（showstatus）；
untilnread等于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：//search.yahoo./bin/search?p等于’+form1.edit1.text+’&n等于100&h等于s&b等于1’；
Findwebthread.Tesume；
（6）保存工程文件,运行程序,可以实现网址的检索.
3总结
文本通过对WinintAPI命令与线程的相互配合使用,实现了在网络编程的过程中对网络地址的检索功能,并且使用API命令所涉及的各种控件较少,设置更为简单,有效性更强.