社区
网络通信/分布式开发
帖子详情
请教高手:如何将TWebBrowser中浏览的网页连同图文件保存?象IE中的另存一样。
天剑68
2003-10-17 06:04:34
如何将TWebBrowser中浏览的网页连同图文件保存?象IE中的另存一样。
...全文
51
8
打赏
收藏
请教高手:如何将TWebBrowser中浏览的网页连同图文件保存?象IE中的另存一样。
如何将TWebBrowser中浏览的网页连同图文件保存?象IE中的另存一样。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
pankun
2003-10-18
打赏
举报
回复
代理设置放在注册表中的啊,具体什么项你查查书吧:)
天剑68
2003-10-18
打赏
举报
回复
编程下载肯定没问题,但如果IE中设置了代理,我如何获得HTTP代理的设置呢?
天剑68
2003-10-18
打赏
举报
回复
你说得没错,我一直想知道只通过TWEBBROWSER能不能解决这些问题,看来还是不好实现,谢谢你的问答。
pankun
2003-10-17
打赏
举报
回复
网页中显示的图像会被保存在Temporary Internet Files文件中.你可以编程COPY出来.
HTML代码中也有图像的地址,你也可以编程下载下来.
天剑68
2003-10-17
打赏
举报
回复
存HTML代码是没有问题了,可是网页中包含的图像文件怎么取得呢?
pankun
2003-10-17
打赏
举报
回复
保存TWebBrowser到文件
procedure SaveHTMLSourceToFile(const FileName: string;
WB: TWebBrowser);
var
PersistStream: IPersistStreamInit;
FileStream: TFileStream;
Stream: IStream;
SaveResult: HRESULT;
begin
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
SaveResult := PersistStream.Save(Stream, True);
if FAILED(SaveResult) then
MessageBox(Handle, 'Fail to save HTML source', 'Error', 0);
finally
{ we are passing soReference in TStreamAdapter constructor,
it is our responsibility to destroy the TFileStream object. }
FileStream.Free;
end;
end;
pankun
2003-10-17
打赏
举报
回复
保存TWebBrowse中的网页为HTML文件,以及读取WebBrowse的HTML源代码:
uses
ActiveX;
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
begin
ps := WebBrowser.Document as IPersistStreamInit;
fs := TFileStream.Create(FileName, fmCreate);
try
sa := TStreamAdapter.Create(fs, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
finally
fs.Free;
end;
end;
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WB_SaveHTMLCode(Webbrowser1, 'c:.txt');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;
from 猛料.
klbt
2003-10-17
打赏
举报
回复
学习,帮你顶。
delphi的T
Web
Browser
控件,实际上是IE,版本比较低,经济打不开
网页
,可以通过修改注册表的方法进行修改成IE11
delphi的T
Web
Browser
控件,实际上是IE,版本比较低,经济打不开
网页
,可以通过修改注册表的方法进行修改成IE11
delphi
中
使用T
Web
Browser
控件
1.获得
网页
中
变量值 2.执行
网页
中
的函数 3.设置
网页
背景 4.调用
网页
中
已知对
象
delphi动态
Web
Browser
释放问题.txt
delphi动态
Web
Browser
释放问题.txt var
web
:T
web
Browser
; procedure TForm1.Button1Click(Sender: TObject); begin
web
:=T
Web
Browser
.Create(Self);
web
.ParentWindow:=Self.Handle;
web
.SetBounds(100,100,100,100);
web
.OnDocumentComplete:=
Web
Browser
1DocumentComplete;
web
.Navigate('http://www.3yeah.com/'); end; procedure TForm1.Button2Click(Sender: TObject); begin //
web
.Destroy;
web
.Free ; end; procedure TForm1.
Web
Browser
1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if(
web
.LocationURL='http://www.qq.com/') then begin //
web
.OnDocumentComplete:=nil;
web
.Free; end; end;
直接向T
Web
Browser
中
写入HTML代码
直接向Delphi
中
的T
Web
Browser
组件
中
写入HTML代码,显示之。T
Web
Browser
通常是用ref方式链接到一个地址或打开
文件
的,本代码给出的方法更直接方便
IE
Web
Browser
编程技巧
Web
Browser
本
Web
Browser
编程技术包括Delphi、C#、VC++、VB等编程资料的集合,其
中
的 实例大多以Delphi为示例讲解,Delphi7 IDE开发环境。 IE_
Web
Browser
编程技巧 修改
Web
Browser
的header信息? Delphi查看
Web
Browser
提交之前的数据头 用T
Web
Browser
组件在DELPHI
中
POST数据和取得
网页
源
文件
在
Web
Browser
中
直接载入流,不通过
文件
判断下载
网页
成功
Web
Browser
失去焦点问题的解决 添加到收藏夹和整理收藏夹 使
Web
Browser
获得焦点 提取
网页
中
所有链接
Web
字体大小
Web
命令操作
Web
Browser
Navigate
中
的 参数 EmptyParam
Web
控件不缓存
网页
,也不从缓存
中
读取 禁止
Web
Browser
复制 CTRL+C 在
Web
Browser
窗口上模拟KeyBd_Event 在使用
Web
Browser
控件,先要 初始化和结束程序后要终止化(Initialization & Finalization) 自定义
浏览
器上下文菜单 自定义
浏览
器 C#
中
调用
Web
Browser
查看源
文件
的功能 -----------------------------------
Web
Browser
与MSHTML 直接在
Web
Browser
中
写HTML字符串 在
web
browser
中
查找字符串并定位 把
图
片拷贝进剪贴板 IHTMLDocument的ExecCommand 处理事件的Internet Explorer
中
的DOM 禁止
Web
Browser
右键弹出菜单 禁止T
Web
Browser
图
像显示 访问HTML的DOM不使用
Web
Browser
如何填写空白(about:blank)页的表单 屏蔽
Web
Browser
的Javascript 创建运行时的IHTMLDocument而不在
Web
Browser
内 HOOK
Web
browser
替换
Web
Browser
的窗口过程 Microsoft.XMLHttp的属性和方法的简介及使用 ------------------------ IE相关的 清空IE缓存 单独删除某一URL的缓存 清空历记录 读取IE历史记录 防止脚本关闭
Web
Browser
连接是否有效 InternetCheckConnection res协议可以使
浏览
器显示储存在资源
中
HTML 往IE
中
嵌入工具条 阻断弹出式广告的BHO 自动填表的IE面板插件 使用Delphi开发IE按钮扩展 使用Delphi开发IE右键菜单扩展 IE异步可插入协议扩展 Delphi开发IE下载扩展 创建3721样式的Google搜索扩展 HTML代码过滤技术 GetDefault
Browser
得到的HTML代码的IE窗口 下载网址wininet ------------------------------- 注意啦,需要HTF 阅读器:http://sites.google.com/site/htfresource/home
网络通信/分布式开发
1,593
社区成员
32,963
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章