WebBrowser

[Жека-старший]

Такая просьба.
Начал работать, а точнее изучать компонент WebBrowser появилось несколько вопросов.
Один из ни.

Для адреса на форме выделен ComboBox. Как мне при загрузки страницы поместить туда текущий адрес url?
Если пользователь туда вводит все норм, а если по ссылке переходить, увы не знаю.
Проблема не в занесении в ComboBox, а в том как получить этот адрес. Есть какая-нибудь функция которая возвращает его?
Заранее спасибо!

[Tinki]

в событии onBeforeNavigate2 пишешь:

procedure TForm1.WebBrowser1BeforeNavigate2(S ender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
edit1.Text:=URL;
end;

и получаешь перед загрузкой в эдит текущий урл
или
в событии onNavigateComplete2 - после загрузки:

procedure TForm1.WebBrowser1NavigateComplete2 (Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
edit1.Text:=URL;
end;

[Жека-старший]

Благодарю!

[Виталий Желтяков]

Хочу посоветовать: не мучайтесь с делфийским webbrowser поставьте EmbeddedWB - это аналог с массой полезных свойств.

[Жека-старший]

Виталий Желтяков, интересно, спасибо за совет.
Попробую посмотреть что он из себя представляет.

Но у меня возник такой вопрос, не хочу его бросать.
Вот если допустим нужно что-либо скачать из нета.
Мне говорили, что можно воспользоваться загрузчиком и Internet Explorer-а. Как это можно осуществить... и можно ли?

[Виталий Желтяков]

Простая функция:

uses urlmon, wininet
//-------------------- Функция загрузки файла --------------------------------//
// SourceFile - источник, DestFile - назначение
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;
//----------------------------------------------------------------------------//

[Жека-старший]

Благодарю!!!!

[Жека-старший]

"Химичил" я "химичил" что-то получилось, почти доволен, однако есть проблема.
Пробовал разные варианты, так сказать методом тыка, но результата не получил.
Минимум- это не дать возможность.
А именно:
при возникновении события "Открытия нового окна" браузера.
Как не дать его открыть я вроде как понял, угадал так сказать. А вот как сделать так, чтобы при возникновении этого события новое окно не открывалось, а загружалось в текущее?
Заранее спасибо.

[Виталий Желтяков]

Используйте WebBrowser.Navigate

[Жека-старший]

Вот, что мне в голову пришло. Вроде работает. Обошел открытие нового окна. Теперь оно открывается в текущем.
Может вариант не супер, но по-другому не смог.

procedure TForm2.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
var ur:OleVariant;
begin
   WebBrowser1.Navigate(Text1);
   cancel:=true;
end;

procedure TForm2.WebBrowser1StatusTextChange(ASender: TObject;
  const Text: WideString);
begin
  Text1:=Text;
  StatusBar1.SimpleText:=Text;
end;