文档章节

delphi获得网页内容

vga
 vga
发布于 2017/06/25 14:48
字数 88
阅读 26
收藏 0

因为百度屏蔽了IDHttp,你把IDHttp的Request的UserAgent改一下,改成IE或者FireFox什么的都可以的. 比如:


   idhttp1:=Tidhttp.create(nil);
   idhttp1.HandleRedirects := True;
   idhttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0) ';
   url := 'http://news.baidu.com/ns?word=aaa&tn=news&from=news&cl=2&rn=20&ct=1';
   mmo1.Lines.Add(idhttp1.Get(url));
   IdHttp1.Disconnect;
   IdHttp1.Free;

本文转载自:http://bbs.csdn.net/topics/390808178

上一篇: XLSREADWRITE 使用
vga

vga

粉丝 22
博文 364
码字总数 26421
作品 0
佳木斯
私信 提问
加载中

评论(4)

vga
vga
http://blog.csdn.net/diligentcatrich/article/details/17242781
vga
vga
procedure TForm1.Button1Click(Sender: TObject);
var
ShellWindow: IShellWindows;
i: Integer;
spDisp: IDispatch;
IE1: IWebBrowser2;
begin
ShellWindow := CoShellWindows.Create;
for i:=0 to ShellWindow.Count - 1 do
begin
spDisp := ShellWindow.Item(i);
if spDisp <> nil then
begin
spDisp.QueryInterface(iWebBrowser2, IE1);
if IE1 <> nil then
begin
if Pos('http://', LowerCase(IE1.LocationURL)) = 1 then
begin
Memo1.Lines.Add(IE1.LocationURL); //获取网址
Memo1.Lines.Add((IE1.Document as IHtmlDocument2).body.outerHTML); //获取源码
end;
end;
end;
end;
end;
vga
vga
怎么获取当前浏览的ie网页地址,并修改为其他地址!
http://www.myexception.cn/delphi/1225312.html
vga
vga
获取网页源代码的最简单办法,就是利用 WinInet 单元中的函数:
uses WinInet;
function GetWebPage(const Url: string):string;
var
Session,
HttpFile:HINTERNET;
szSizeBuffer:Pointer;
dwLengthSizeBuffer:DWord;
dwReserved:DWord;
dwFileSize:DWord;
dwBytesRead:DWord;
Contents:PChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=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('http://www.delphitop.com/');
delphi中Webbrowser

1.获得网页中变量值 htm中<script> var currID=123</script> 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可......

任远
2015/05/08
0
0
推荐Pascal-Delphi、软件工程;数据库开发 一些编程书

HTF 阅读器下载 IT技术 注意:下面的RAR文件名是网页链接,不RAR源文档,如果弹出下载软件,请单击右键打开新页面再下载。 Pascal-Delphi更新日期:2009-12-514:45:59 总数:12 订阅RSS 《D...

jfyes
2009/12/05
317
0
界面控件包TMS IntraWeb Component Pack Pro Script Edition发布v5.8.8.1

TMS IntraWeb Component Pack Pro Script Edition允许从Delphi IDE直接在IntraWeb表格上编辑设计期间的网页。IntraWeb的TMS控件允许以RAD方法用Delphi进行网页应用程序的开发。这使得网页开发...

Harriet666
2017/10/20
0
0
用delphi6+Apache 开发动态网站(创建一个简单的网页)

用delphi6+Apache 开发动态网站(一) -------创建一个简单的网页 随着Internet 的飞速发展,动态网页的开发方法五花八门,有ASP,JSP,PHP,CGI等等,其中web server主要 集中在IIS,Apache等上,M...

xalion
2012/01/04
0
0
老牌集成开发环境 Delphi 发布免费社区版

Delphi® - 社区版 Delphi Community Edition与我们的自由开发人员,初创公司,学生和非营利组织免费共享,是一个全功能的IDE,用于从单个Delphi代码库(有限的商业使用许可证)构建iOS,And...

vga
2018/07/23
10K
93

没有更多内容

加载失败,请刷新页面

加载更多

新手转行学java难吗?新手学java需要注意的6个方面!

新手转行在成都学java到底难不难,对于这个问题,我们专门做过一个调查,超过1000名已经在职的java从业者,其中有80%的程序员觉得学java不难,20%的程序员觉得前期有点难,其中对于50%自学的...

Java领航员
48分钟前
3
0
动态规划-硬币问题分析

什么是动态规划 上次对动态规划已经有了个大概的分析。引用维基百科的话就是: dynamic programming is a method for solving a complex problem by breaking it down into a collection of...

AI考拉
56分钟前
1
0
谈谈lucene的DocValues特性之SortedSetDocValuesField

SortedSetDocValuesField与SortedDocValuesField类似但它是一键多值的(注意:lucene的数据模型是支持一键多值的即key-values模型),lucene在实现时会判断是一键一值还是多值,如果单值就调...

FAT_mt
今天
1
0
生产者消费者模式

//尚学堂视频里,不是完整的 public class Movie { /** * 共同的资源 */ private String pic; //flay为true生产,false消费 private boolean flag=true; public synchronized void play(Str......

南桥北木
今天
1
0
使用阿里云镜像安装kubernetes

参考阿里云镜像 https://opsx.alibaba.com/mirror?lang=zh-CN 系统: CentOS / RHEL / Fedora cat <<EOF > /etc/yum.repos.d/kubernetes.repo[kubernetes]name=Kubernetesbaseurl=https......

北漂的我
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部