如何另存为“网页，仅HTML”(50分)

N

nobitian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-06

• #1

在IE中的文件－》另存为中有一个选项为“网页、仅HTML”，
请问各位大大，有没有办法，用一个按钮实现这个功能。
我自己做了一个浏览器，可以“另存为－》网页，全部”，
不过就是没有办法实现这个功能。

 

N

nobitian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-07

• #2

各位大大，没有什么建议吗？
[]

 

E

e-

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-08

• #3

EmbeddedWB.SaveToFile(const Fname: string)

 

X

xinyue_liang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-08

• #4

如果是用TWebBrowser控件做的浏览器，可以试用以下方法，应该可以满足你的要求。
SWebBrowser为TWebBrowser控间
var RichEdit : TMemo;
begin
if SaveDialog.Execute then
begin
RichEdit := TMemo.Create(Self);
try
RichEdit.Visible := False;
RichEdit.Parent := Self;
RichEdit.Font.Name := 'Arial';
RichEdit.Font.Size := 10;
RichEdit.Lines.Add(IHtmlDocument2(SWebBrowser.Document).Body.OuterHtml);
RichEdit.Lines.SaveToFile(SaveDialog.FileName);
finally
RichEdit.Free;
end;
end;
end;

 

N

nobitian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-10

• #5

to e- :
EmbeddedWB，这是什么？
to xinyue_liang:
IHtmlDocument2是什么，我在这行过不去

 

N

nobitian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-10

• #6

可以了，各位大大，谢谢。

 

N

nobitian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-10

• #7

多人接受答案了。

 

D

dzogchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-10

• #8

var
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
try
HttpCli1.URL := 'http://vc.chinanasdaq.com/cyyq/cyyq.asp?classearchTypeID=itgo5_classearchType_1002';
HttpCli1.RcvdStream := ms;
HttpCli1.Get;
ms.Position := 0;
Memo1.clear;
Memo1.Lines.LoadFromStream(ms);
finally
HttpCli1.RcvdStream := nil;
ms.Free;
end;
END;

 

N

nobitian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #9

多人接受答案了。