[MultiVan]

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

MultiVan,
может это подойдет? функция берет текст УЖЕ загруженной страницы и в мемо его.
функция:

Код:

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
 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;

Использование:

Код:

Memo1.Clear;
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
Memo1.Text:=Utf8ToAnsi(Memo1.Text);//не применять если страница уже в кодировке ANSI
Memo1.SelStart := 0;// фокус переместим в начало,т.к. он встаёт в конец
Memo1.SelLength := 0;

А если браузер находеться в чужую программу? и она не сделана в дельфи?

[Pyro]

можно попробовать настроить ее на прокси и через эту смотреть
http://www.delphisources.ru/pages/so...ttp_proxy.html

[NumLock]

через это пробовал:
Как получить IHTMLDocument2 из HWND
?

[MultiVan]

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

через это пробовал:
Как получить IHTMLDocument2 из HWND
?

а на дельфи какой код?

[MultiVan]

А можно ли завхатить все сылки которые загружаються?

[NumLock]

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

а на дельфи какой код?

примитивный:

Код:

uses
  NumLock,

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:=innerHTML(917906);
end;

917906 - это HWND окна класса Internet Explorer_Server

возвращает исх. текст страницы

http://data.cod.ru/124916

[MultiVan]

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

примитивный:

Код:

uses
  NumLock,

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:=innerHTML(917906);
end;

917906 - это HWND окна класса Internet Explorer_Server

возвращает исх. текст страницы

http://data.cod.ru/124916

1000 раз спасибо , наконецто , вот это то что мне было нужно