WebBrowser问题：怎样保存document到一个文件？

Question

希望大家能帮我解决以下问题：
1.怎样保存document到一个文件？
2.编辑一个Html页面时插入表格、图片、声音等对象的源码怎么写？

Answer 1

function GetHTMLCode(WB: IWebbrowser2; ACode: TStrings): Boolean; 
var
 ps: IPersistStreamInit;
 s: string; 
 ss: TStringStream; 
 sa: IStream; 
begin 
 ps := WB.document as IPersistStreamInit; 
 s := ''; 
 ss := TStringStream.Create(s); 
 try 
   sa:= TStreamAdapter.Create(ss, soReference) as IStream; 
   Result := Succeeded(ps.Save(sa, Bool(True))); 
   if Result then ACode.Add(ss.Datastring); 
 finally 
   ss.Free; 
 end; 
end; 上面的函数可以将WB指定的IWebbrowser接口的网页内容保存到ACode中

Answer 2

谢谢 TechnoFantasy(www.applevb.com)的帮助！有谁知道第二个问题呢？请大家赐教，我很快就结帖。

Answer 3

有没有人能回答第二个问题：2.编辑一个Html页面时插入表格、图片、声音等对象的源码怎么写？我用了WebBrowser来编辑Html文件，但不知道怎么写插入表格、图片、声音等对象的代码。

Answer 4

http://weki.myrice.com/language/html/htmlindex.html

Answer 5

哪位大侠用Delphi写段代码给我示范一下？

Answer 6

我也遇到第2种情况的问题，怎样用DELPHI往WebBrowser中<input type=file name="upfilename">对象赋值问题，确实有点难度

Answer 7

注：
 WebBrowser1.OleObject.Document.form1.upfilename.value := 'E:\source\pic\按钮\08.gif';
这种方式并不能赋值进去，因为保存的是文件流

Answer 8

有人知道吗？Delphi的高手都哪里去了？我原来是学VB/VC的，最近为了做一个项目才初识Delphi的，感觉很不错，写代码的感觉很舒服，可是遇到难题没人解决太痛苦了……呜呜!究竟怎样才能使用WebBrowser控件做一个Html编辑器呢？有源码看看就好了……

Answer 9

如果简单的编辑器的话，引入DHTML Edit Control就可以了，基本可以实现所见即所得的编辑。