из twebbrowser в memo

[mishok]

здраствуте все, вопрос наверное оч глупый или легкий но всё же скажите пожалуйста, есть twebbrowser и мемо, как сделать чтоб исходный текст html странички которая загружена в twebbrowser появился в мемо?

[SunKnight]

В IE5, можно получить исходник используя свойство outerHTML тэгов HTML. В IE4 или IE3, Вам понадобится записать документ в файл, а затем загрузить файл в TMemo, TStrings, и т.д.
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
...
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('te st.htm'), True);

while HTMLDocument.readyState <> 'complete' do
Application.ProcessMessages;
...
end;

Хотиш больше узнать зайди на www.delphiworld.narod.ru

[mishok]

ты наверное не понял у мен открыт проект на нем есть memo, TWebBrowser и кнопка, B Twebbrowser открыта страница (например яндекс, нужно чтоб когда я нажал на кнопку, весь html код который в twebbrowser оказался в MEMO

[SunKnight]

procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.Get('www.swissdelphicenter. ch');
memo1.Text := NMHTTP1.Body
end;

[mishok]

причем тут NMHTTP1? если я говорю что нужно из TWEBBROWSER и страница уже открыта которая мне нужна, а ты предлагаешь заного загружать из инета страницу с помощью NMHTTP

[GAGARIN-NEW]

uses
   ActiveX;

 function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean; // чтобы сохранить в файл
 var
   ps: IPersistStreamInit;
   fs: TFileStream;
   sa: IStream;
 begin
   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; //чтобы получить код в memo1.lines
 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;

 procedure TForm1.Button1Click(Sender: TObject);//Применение - сохраняем в файл c:\test.txt
 begin
   WB_SaveHTMLCode(Webbrowser1, 'c:\test.txt');
 end;

 procedure TForm1.Button2Click(Sender: TObject);//Применение сохраняем в memo1.lines - тоесть в мемо
 begin
   WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
 end;

ЗЫ Если очень интересно откуда материал - материал взят с DelphiWorld

[mihali4]

Сообщение от mishok

здраствуте все, вопрос наверное оч глупый или легкий но всё же скажите пожалуйста, есть twebbrowser и мемо, как сделать чтоб исходный текст html странички которая загружена в twebbrowser появился в мемо?

Отнюдь. Вопрос довольно непростой.

Кстати, вот еще полезная штука:
WebBrowser1.ExecWB(4, 0);
вызывает диалог сохранения открытого в данный момент урла. (sources.ru)

[Igory86]

GAGARIN-NEW Ты очень помог! Спасибо!

[Квэнди]

Используйте же вы поиск по форуму.
http://programmersforum.ru/showthread.php?t=8863
http://programmersforum.ru/showthread.php?t=6723
http://programmersforum.ru/showthread.php?t=5259
это было найдено только за 2 минуты.
Закрыто.