Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser и TRichEdit [D6, D7, Win95/98, WinXP]

Ренат © (2004-10-17 15:56:00)
У меня такая проблема, помогите плиз...
Есть ВебБроузер1 и РичЕдит1. Мне надо весь HTML из Веббраузера поместить в РичьЕдит.

SergP (2004-10-18 07:29:00) [1]

> Ренат (17.10.04 15:56)
> У меня такая проблема, помогите плиз...
> Есть ВебБроузер1 и РичЕдит1. Мне надо весь HTML из Веббраузера
> поместить в РичьЕдит.

Что значит "весь HTML"? А если открываемая в браузере страничка имеет несколько фреймов? Какой из них в таком случае тебе нужен?

Piter (2004-10-17 20:17:00) [2]
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
begin
Result := False;
IF WebBrowser.Document = nil then exit;
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;

Rouse_ (2004-10-17 18:20:00) [3]
В поиске набери TWebBrowser тут этот вопрос сотни раз разжевывался...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »