РАбота с webbrowser

[serg90]

Помогите пожалуйста розобратся.У меня есть мини браузер на основе webbrowser.МНе нужно что бы он анализировав все ссылки что есть на страничке, выбрал нужную и перешел по ней.Мне главное что бы находил заданную ссылку(Или можно просто переходил по первой что попадет под курсор.

[serg90]

Натолкните хоть где искать...

[ArtGrek]

Google

Пример создания браузера на Delphi с использованием компонента WebBrowser

Для начала бросим на форму компонент WebBrowser, он находится на вкладке Internet.
Затем бросим на форму ComboBox, это будет строка для ввода сайтов в нашем браузере. Далее идём Object Inspector -> Events и находим onkeydown, кликни 2 раза и вставляем:

procedure TForm1.ComboBox1KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN then
WebBrowser1.Navigate(ComboBox1.Text);
end;

Можно сказать что браузер уже готов. Если ты запустишь программу и введёшь сайт в поле и нажмёшь Enter, то в WebBrowser откроется сайт. Теперь давай добавив в наш браузер кнопки навигации. А именно, Назад, Вперёд, Обновить, Стоп, Печать страницы. В моём примере кнопки в виде картинок.

Функция Назад
procedure TForm1.backClick(Sender: TObject);
begin
WebBrowser1.GoBack;
end;
Функция Вперёд
procedure TForm1.forwardClick(Sender: TObject);
begin
WebBrowser1.GoForward;
end;
Функция Обновить
procedure TForm1.updateClick(Sender: TObject);
begin
WebBrowser1.Refresh;
end;
Функция Стоп
procedure TForm1.stopClick(Sender: TObject);
begin
WebBrowser1.Stop;
end;
Функция Печать страницы
procedure TForm1.printClick(Sender: TObject);
var
PostData, Headers: OLEvariant;
begin
WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, PostData, Headers);
end;

PS. поиск ссылок по саиту где то на форуме есть, иши

[serg90]

Спасибо большое ArtGrek, браузер есть.А вот поиск по сайту ссылок...щас буду искать)