永发信息网

delphi 读取网页源代码问题

答案:1  悬赏:80  手机版
解决时间 2021-04-25 17:52
delphi 网页里有一个大表格,里面有各种数据。从源代码里知道这个表格的ID。如何用读源代码方法只读这个表格的源代码
最佳答案
获取网页源代码的最简单办法,就是利用 WinInet 单元中的函数:uses WinInet;function GetWebPage(const Url: string):string;var Session, Http文件:HINTERNET; szSizeBuffer:Pointer; dwLengthSizeBuffer:DWord; dwReserved:DWord; dwFileSize:DWord; dwBytesRead:DWord; Contents:PChar;begin Session:=InternetOpen('',0,niL,niL,0); Http文件:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0); dwLengthSizeBuffer:=1024; HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved); GetMem(Contents,dwFileSize); InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead); InternetCloseHandle(HttpFile); InternetCloseHandle(Session); Result:=StrPas(Contents); FreeMem(Contents);end;使用时,直接把收到的源代码显示出来::Memo1.Text := GetWebPage(blog.asp?name=aliwy);
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
评价贝多芬的句子,描写贝多芬的句子
G450A-TFO(H)和G450A-TFO哪个好 散热可以不
北京专卖店哪有特步鞋XM605189
有把MP4转化成RMVB格式的工具吗,给个下载地
找个律师解决点问题
彩票从什么时候开始有的?
我够我兄弟p吗??
黄缘龟为什么那么贵,侧颈龟是不是比剃刀龟还
告诉一下这些国家的紧急电话号码
手机QQ具体收费方法
光棍节要怎么过
怎样给对方放碟片
我的女朋友在我生日那天送我香水是代表什么哦
以七夕情人节写两首诗、
应该因为自己的病,而放弃爱,不让对方为难吗
推荐资讯
四陵在哪里啊,我有事要去这个地方
减肥,最容易瘦的是哪个部位?
Why the people is hierarchical?
DNF如何升级?
怎样把和我同一ip的人踢下去?
阿爸父诗歌,描写普陀的诗句
为什么人会死掉?
为什么QQ里一个好友都没有,也没有被人加过自
从东莞寮步汽车东站到深圳丹竹头汽车站怎么走
如何让自己高兴起来
谁知道怎么才能查到08年会计上岗证试题???
谁能给我四川大学的简介?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?