| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Использование WebBrowser [D6, Win2k]

AAZ72 ©   (2003-10-15 18:23:00) 

Добрый вечер. Какое свойство данного компонента нужно использовать для отображения, скажем, HTML-содержимого Memo?

Благодарю

---

Ihor Osov'yak   (2003-10-16 01:09:00) [1]

... Какое свойство данного компонента нужно использовать для отображения, скажем, HTML-содержимого вMemo?

Если так, то можешь попытаться так (только не свойство это уже будет):

function SaveToString(const WebBrowser: IWebBrowser2): string;
var
S: TStringStream;
begin
result := "";
if not assigned(WebBrowser) then
exit;
if not assigned(WebBrowser.Document) then
exit;
S := TStringStream.Create("");
try
(WebBrowser.Document as IPersistStreamInit).Save(TStreamAdapter.Create(S), True);
Result := S.DataString;
finally
S.Free;
end;
end;

...

memo1.text := SaveToString(WebBrowser1.DefaultInterface);

---

Наверх