基于Winint API的网址检索应用.docVIP

基于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=