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

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

Как отобразить веб страницу из TWEBbrouser в TMEMO(исходный код)

New_user ©   (2005-03-12 15:38:00) 

Как отобразить веб страницу из TWEBbrouser в TMEMO(исходный код)

---

vertal   (2005-03-13 01:12:00) [1]

Видел неплохую статью на эту тему на
http://rsdn.ru/article/qna/inet/wbsave.xml

---

ShimON   (2005-03-12 19:34:00) [2]

uses ActiveX

---

New_user   (2005-03-12 19:24:00) [3]

Ругается на IPersistStreamInit,IStream говорит ундекларейт тип
:(

---

Zeqfreed   (2005-03-12 16:10:00) [4]

New_user   (12.03.05 15:38)


function GetSource(const WebBrowser : TWebBrowser): String;
var
PersistStream: IPersistStreamInit;
StringStream: TStringStream;
Stream: IStream;
begin
PersistStream := WebBrowser.Document as IPersistStreamInit;
StringStream := TStringStream.Create('');
try
 Stream := TStreamAdapter.Create(StringStream, soReference) as IStream;
 PersistStream.Save(Stream, True);
 Result := StringStream.Datastring;
finally
 StringStream.Free;
end;
end;

---

Наверх