Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

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

← →
New_user   (2005-03-12 15:38) [0]

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

---

← →
Zeqfreed ©   (2005-03-12 16:10) [1]

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;

---

← →
New_user   (2005-03-12 19:24) [2]

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

---

← →
ShimON ©   (2005-03-12 19:34) [3]

uses ActiveX

---

← →
vertal ©   (2005-03-13 01:12) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.032 c