Текущий архив: 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.47 MB
Время: 0.052 c
