Передача страницы из webbrowser

[adigozalov]

а может с OnTitleChange по пробовать...

[Viteef]

Тайтл будет меняться на урл, а потом на title самой страницы. Если отображать страницу не надо, то идеальным решением будет использовать IdHTTP.Get

[SibBear]

Memo1.Text:=idHTTP1.Get(WebBrowser1.LocationURL);

[u961]

  
try
    wb := TWebBrowser.Create(Form1);
    TWinControl(wb).Name := 'MyWebBrowser';
    wb.Align := alClient;
    TWinControl(wb).Parent := panel1;
  except
  end;

  wb.Navigate('http://rrr.rr/'); 
  while (wb.ReadyState <> READYSTATE_COMPLETE)  do 
    Application.ProcessMessages;

  gethtmlcode(wb,'1.txt');
  memo1.Lines.LoadFromFile('1.txt');

[u961]

код получатся после полной загрузка страницы
если на странице есть бока может грузить очень долго

[postal2]

>Реализовать реакцию на полную загрузку страницы невозможно ввиду современной реализации протоколов HTTP и иже с ними
Извините, а как же webbrowser1.readystate=4 ??????????? Полная загрузка страницы)
А можно ещё проверять по onpercentchange (точно не помню как пишется) т.е. если полный равен текущему и оба равны нулю. то страница загружена. НО если в документе несколько форм, то срабатывает на каждую т.е. юзайте первый вариант

[NurNet]

Сообщение от Квэнди

try
     sa := TStreamAdapter.Create(ss, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
     if Result then ACode.Add(ss.Datastring);
   finally
     ss.Free;

вот здесь у мня выводить ошибку

[Пепел Феникса]

а в браузер страница загруженна?