Web-browser

[BaRSyk174]

Здраствуйте, есть такой вопрос. Имеется веб-браузер написанный на делфи и вроде все хорошо работает, но по заданию необходимо создать кнопку при нажатии на которую появлялся бы HTML код страницы, на которой находится сейчас пользователь. Помогите пожалуйста реализовать. Заранее благодарен

[TwiX]

Web-browserom я не пользовался.
Это можно с инди сделать:

idHTTP.get(currentURL, stream);

и в stream сохраниться исходный код

[Usov]

А по конкретней, какими компонентами реализован сам браузер?
Если TWebBrowser, то:

function WB_GetHTMLCode(WebBrowser: TWebBrowser): String;
 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;
     ps.Save(sa, True);
     Result := ss.Datastring;
   finally
     ss.Free;
   end;
 end;

[BaRSyk174]

function WB_GetHTMLCode(WebBrowser: TWebBrowser): String

да испоьзую TWebBrowser, но чего то на эту строчку ругаетя после String курсор ставит

[Usov]

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

function WB_GetHTMLCode(WebBrowser: TWebBrowser): String

да испоьзую TWebBrowser, но чего то на эту строчку ругаетя после String курсор ставит

так объяви функцию например в private:
private
function WB_GetHTMLCode(WebBrowser: TWebBrowser): String

...

function TForm1.WB_GetHTMLCode(WebBrowser: TWebBrowser): String

...

[BaRSyk174]

неа все равно не хочет на приват теперь ругается =((
наверное мы с ним безнадежны =((

[Usov]

трудно сказать, надо смотреть исходник

[mosq]

все проще.

memo1.text:=Webbrowser1.Oleobject.Document.body.innerHTML;

загрузит html код в окно memo1. все.

[BaRSyk174]

Usov спасибо большое, за то что помучились со мной)))
mosq а вам за код спасибо большое!) вот теперь работает))
Огромное спасибо!!!)))

[BaRSyk174]

А вот есть такой вопрос хоть он может показаться, досточно смешным, но сделать не могу нужны клавиши выделить и копировать. Выделить (выделение всего документа тоесть Ctrl+A) ну а копировать соответственно как обычно Ctrl+C.
Помогите кто чем сможет.