Получение HTML - кода???

[PashaXP]

Привет всем! Нахожу окно по заголовку -
FindWindow(nil, 'Имя окна'), оно является HTML, запущеной в браузере Internet Explorer... Есть ли такая функция для получения HTML-кода, этой странички, т.е. например Form1.RichEdit1.Text:=XXXXXX(..., k, ...); где k :HWnd
т.е. k:=FindWindow(nil, 'Имя окна')
????

У меня есть громоздкий вариант получения html - кода, но хотелось бы что-нить по проще...

[Ozerich]

я уверен что такой функций нету.
Так как Тип Thandle это окно и не обязательно Internet explorer

[Stilet]

По-моему можно, только нужно через интерфейсы к IE обратиться...

[PashaXP]

Жаль. Можно ли упростить код :

//--- Функция считивания html-кода в TMemo
 function GetHTMLCode(WB: IWebbrowser2; ACode: TStrings): Boolean;
 var
  //вытягивает код страницы в tstrings
  ps: IPersistStreamInit;
  s: string;
  ss: TStringStream;
  sa: IStream;
 begin
  ps := WB.document as IPersistStreamInit;
//  s := '';
  ss := TStringStream.Create(s);
  try
    sa:= TStreamAdapter.Create(ss, soReference) as IStream;
    Result := Succeeded(ps.Save(sa, Bool(True)));
    if Result then ACode.Add(ss.Datastring);
  finally
    ss.Free;
  end;
 end;
...
  ShellWindow := CoShellWindows.Create;
  // получаем запущенный экземпляр  Internet Explorer
   // для этого пробегаемся по всем окнам системы
 for k := 0 to ShellWindow.Count do
 begin{1}
    spDisp := ShellWindow.Item(k);
   if spDisp = nil then Continue;
    //QueryInterface определяет, может ли интерфейс использоваться с объектом
      // проверяем , а не Браузер ли это :
   spDisp.QueryInterface(iWebBrowser2, WB);
    if WB <> nil then
    begin{2}
    // проверяем , а не HTML ли это 
      WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
      if iDoc1 <> nil then   // если да, то выдергиваем html код
      begin{3}
      // связываем запущенный экземпляр Internet Explorera как браузер
        WB := ShellWindow.Item(k) as IWebbrowser2;
        begin{4}
          Form1.RichEdit1.Clear;//Отчистка RichEdit1
          GetHTMLCode(WB, RichEdit1.Lines);// Пишем html код в  RichEdit
end;
end;
end;
end;
....

в цикле, используя функцию поиск окна по заголовку - FindWindow ???

[Ozerich]

Компонент IDHttp
метод GET

[PashaXP]

Может я конечно не доганяю))) Но в этом компонентк явно указывется URL, а у меня он постоянно меняется, остается лишь не изменен заголовок окна )))

[Ozerich]

я вот тоже не догоняю.Как я понимаю ты хочешь получить код странички в нете.У тебя URL меняется.Заголовок не меняется.
Я не догоняю причем здесь заголовок когда Html код у URL адреса существует а не у заголовка.

Расскажи что ты сделать хочешь?
Может помочь как из EDITa в internet explorer вытащить URL

[WittySpark]

Так. Насколько я понял. Вам необходимо получить HTML-код страницы, которая открыта в браузере IE?
А не проще найти Handle адресной строки (через FindWindow) узнать URL странички и самому в программе спокойно скачать её (естественно в HTML-виде).

[PashaXP]

В общем нужно следующее - получить HTML-код странички, зная лишь заголовок окна (так как URL постоянно меняется, т.е например - http://111.111.0.2/repair/finish-form.php?wl_id=1 и в конце могут быть разные цифры. Но заголовок остается тот же). я реализовал получение кода на выше приведенном примере (перебираю все окна), но мне кажется это громоздким. Дело в том что на компе запущено куча всяких приложение - EXCEL, WORD, браузерыб в том числе IE. И все это не могу привязать через FIndWindow, чтобы не перебирать все окна...

[BOBAH13]

Ничего страшного. FindWindow это грубо говоря просто перебор числового массива где для каждого элемента ищется строка ( заголовок ) или имя класса. Так что от этого нагрузки никакой. Есть вариант GetWindow для перебора окон, параметры смотрим в MSDN