有关WebBrowser控件的问题,希望大家来讨论。(200分)(200分)

  • 主题发起人 主题发起人 小梅
  • 开始时间 开始时间

小梅

Unregistered / Unconfirmed
GUEST, unregistred user!
我在大富翁中找了很久,没有找一个合适的答案。以前也有人提过这个问题
1:怎样将WebBrowser打开的网页保存为*.mht,不是*.html格式。
可以用ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT);
来进行保存,但会出现一个对话框,没有办法屏蔽掉。
2:如果出现对话框,如何可以在程序中修改“文件名”中的字符串,选择文件类型,
并模拟单击“保存”.
 
我不知道这个问题是不很难,希望大家来讨论,共同进步!!!!
 
掉出原代码,然后自行保存
 
我也曾被难过,,特别关注
 
大家快来看看呀,真的没法做到????
 
自己写函数保存,把.html编码为.mht的代码我写过,不难的!
 
其实,可以保存成.zip文件,可以编写一个直接读zip页面内容的协议,
这样占用的控件更小
 
to 爱元元的哥哥
您能详细讲一讲怎样实现吗????
 
用记事本打开一个.mht文件看一下就明白了
自己写倒是不难,可是还要下载页面上的其他东西呢
 
要下载不如分析出连接href,然后取得文件
 
要下载不如分析出连接href,然后取得文件
 
用 Microsoft CDO for Exchange 2000 就可以直接保存为mht文件。
 
var o : Olevariant;
begin
o:=WebBrowser1.OleObject.document.all.item('LoginUserID',0);
o.value:='text';
WebBrowser1.oleobject.document.all.item('LoginPassword',0);
o.values:= '123';
WebBrowser1.oleobject.document.Forms.Item(0, 0).submit;
end;

o.value:='text';
老出错,是怎么回事,请教
 
自动关闭保存对话框
 
保存TWebBrowser中的网页

Uses
ActiveX,MSHTML_TLB, SHDocVw_TLB, ComCtrls, OleCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('c:/SavedFile.html'), System.True);
end;

 
后退
顶部