皮皮网

【手机分类信息源码】【在线工具源码下载】【景安webftp源码】delphi 获取网页源码_delphi获取网页内容

时间:2024-11-24 23:32:32 来源:山西麻将 源码

1.delphi 循环采集网页

delphi 获取网页源码_delphi获取网页内容

delphi 循环采集网页

       //改了一下您的获取获代码,目前的网页网页手机分类信息源码案例是可以,取到5天的源码在线工具源码下载资料

       unit Unit1;

       interface

       uses

         Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

         Dialogs, MsXML, StdCtrls;

       type

         TForm1 = class(TForm)

           Memo1: TMemo;

           procedure FormCreate(Sender: TObject);

         private

           {  Private declarations }

         public

           {  Public declarations }

           function GetStr(var StrSource:string; StrBegin, StrEnd: string): string;

         end;

       var

         Form1: TForm1;

       implementation

       { $R *.dfm}

       function TForm1.GetStr(var StrSource:string; StrBegin, StrEnd: string): string;

       var

         in_star, in_end: integer;

       begin

         in_star := AnsiPos(strbegin, strsource) + length(strbegin);

         in_end := AnsiPos(strend, strsource);

         Result := copy(strsource, in_star, in_end - in_star);

         if (in_star = 0) or (in_end = 0) or (in_end < in_star) then

           StrSource := '' 

         else

           StrSource :=  copy(strsource, in_end+length(strend), length(strsource))

       end;

       procedure TForm1.FormCreate(Sender: TObject);

       var

         req: IXMLHTTPRequest;

         SetNoteStr,ResponseStr: string;

       begin

         req :=CoXMLHTTPRequest.Create;

         req.open('Get', '/wap/weather/.shtml', False,EmptyParam, EmptyParam);

         req.send(EmptyParam);

         memo1.clear;

         ResponseStr := req.responseText;

         while ResponseStr<>'' do

         begin

           SetNoteStr := GetStr(ResponseStr, '<dt>', '<br />&');//获取标签直接的代码

           memo1.Lines.Add(SetNoteStr);

         end;

       end;

       end.

推荐资讯
代币系统源码_代币系统源码怎么用

代币系统源码_代币系统源码怎么用

国外仿吃鸡源码_吃鸡游戏源码

国外仿吃鸡源码_吃鸡游戏源码

大牛飞天指标公式源码_飞天指标源代码

大牛飞天指标公式源码_飞天指标源代码

java实现日记软件源码

java实现日记软件源码

wss协议源码

wss协议源码

react全家桶源码实现_react全家桶项目

react全家桶源码实现_react全家桶项目

copyright © 2016 powered by 皮皮网   sitemap