写入:
procedure TForm1.LoadStream(WebBrowser:TWebBrowser; Stream:TStream);
var
PersistStreamInit: IPersistStreamInit;
StreamAdapter: IStream;
MemoryStream: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
repeat
Application.ProcessMessages;
Sleep(0);
until
WebBrowser.ReadyState=READYSTATE_COMPLETE;
if WebBrowser.Document.QueryInterface(IPersistStreamInit,PersistStreamInit)=S_OK then
begin
if PersistStreamInit.InitNew=S_OK then
begin
MemoryStream:=TMemoryStream.Create;
try
MemoryStream.CopyFrom(Stream,0);
MemoryStream.Position:=0;
except
MemoryStream.Free;
raise;
end;
StreamAdapter:=TStreamAdapter.Create(MemoryStream,soOwned);
PersistStreamInit.Load(StreamAdapter);
end;
end
end;
测试:
procedure TForm1.btn_1Click(Sender: TObject);
var
S: TStringStream;
begin
S := TStringStream.Create(mm1.Text);
try
LoadStream(wb1,S);
finally
s.Free;
end;
end;
读取就很简单了,这里不再阐述。
分享到:
相关推荐
Delphi中webBrowser控件bug
1,在项目中引用程序集拓展中的Microsoft.mshtml后,可以在公共控件中找到WebBrowser控件。 2,在窗体中加入三个按钮,然后添加WebBrowser控件,右键控件选属性,设置相应的属性。 3,设置WebBrowser控件的属性 ...
WebBrowser控件使用详解,WebBrowser控件使用详解
delphi 从TWebBrowser WebBrowser得到全部html源码 收藏 网上查询出很多方法,归结起来有两种
Delphi WebBrowser 将一段HTML文字显示在网页浏览器中,实际是创建了一个HTML格式内容并显示出来,主要使用Delphi中内置的WebBrowser方法来实现: WebBrowser1.Navigate('about:blank'); while(tag=0) do ...
博客演示代码,演示了IE WebBrowser控件的基本使用,包括静态创建、动态创建和事件响应。
WebBrowser控件技巧集
vb6_Webbrowser控件使用技巧 1、获得浏览器信息: Private Sub Command1_Click() WebBrowser1.Navigate "http://www.applevb.com" End Sub Private Sub Command2_Click() Dim oWindow Dim oNav Set oWindow ...
delphi利用webbrowser控件下载彩票开奖号码
WebBrowser控件,Embedded.Web.Browser
MFC的WebBrowser控件 C++与JavaScript之间数据交互传递
Excel2007 VBA使用WebBrowser控件登录12306网站,推荐IE8,IE9也可以登录,但后继不能查询车票,是脑残的12306的问题。 程序涉及计时器、表单提交、页面加载完成判定、页面文字判断等多个方面。 代码来自网上若干人...
C# 从内存中获取webbrowser控件截图,可以后台或者隐藏窗体截图 C# 从内存中获取webbrowser控件截图,可以后台或者隐藏窗体截图
输入一个网址,通过WPF使用WebBrowser控件定时访问刷新网页
直接访问WebBrowser控件中的HTML源码
webBrowser控件操作动态html,源码都有,点击下载
在开发C#项目时用到的WebBrowser,文档中汇总了该控件的属性和方法实现。包含代码实现。属性方法不足的地方希望大家补充。
WebBrowser控件网上资料大全 本人为学习制作vb浏览器,在网上收集的文章及代码!
使用WebBrowser控件打印页面demo,通过修改demo中的几行代码就可以使用
MFC WebBrowser控件加载HTMLVC++源码,WebBrowser控件加载HTML网页时不显示滚动条,实现事件 documentcomplete,当HTML下载完毕时再显示出来,然后在此事件代码中去掉滚动条。.zip