[Elza]

Вот такая задачка уважаемые форумчане

На форме имеются компоненты:

Memo(либо listbox или edit, без разницы)
Timer
Button
Webbrowser


В Memo добавляются время от времени ссылки на разные сайты.
По таймеру нужно каждые 2 секунды проверять ссылки в memo на наличее определенного сайта и в случае нахождения скажем http://www.delphisources.ru/ или любой другой ссылки но только на этом сайте, загружать эту ссылку в WebBrowser. Отключить таймер и дождавшись загрузки нажать button. очистить memo и снова запустить таймер.

[poli-smen]

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

По таймеру нужно каждые 2 секунды проверять ссылки в memo на наличее определенного сайта и в случае нахождения скажем http://www.delphisources.ru/ или любой другой ссылки но только на этом сайте, загружать эту ссылку в WebBrowser. Отключить таймер и дождавшись загрузки нажать button. очистить memo и снова запустить таймер.

А что из этого у тебя не получается?

[Elza]

не получается непосредственно

проверять ссылки в memo на наличее определенного сайта и в случае нахождения скажем http://www.delphisources.ru/ или любой другой ссылки но только на этом сайте, загружать эту ссылку в WebBrowser.

[Elza]

Теперь получается найти нужный текст в memo, но как выделить всю строку и передать в webbrowser, а не только найденное совпадение текста =(((

[robt]

ншнншншнеку

[Elza]

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

ншнншншнеку

Что за крик души?

[poli-smen]

Пробуй так:

Код:

uses StrUtils;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
  url: string;
begin
  Timer1.Enabled := False;
  try
    for i := 0 to Memo1.Lines.Count - 1 do
    begin
      url := Memo1.Lines[i];
      if AnsiStartsText('http://www.delphisources.ru/', url) then
      begin
        WebBrowser1.Navigate(url);
        while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
        begin
          Sleep(100);
          Application.ProcessMessages;
        end;
        Button1Click(nil);
        Memo1.Clear;
        Break;
      end;
    end;
  finally
    Timer1.Enabled := True;
  end;
end;

[Elza]

Сначало упорно не хотел грузить страничку, но потом добавила forms перед Application.ProcessMessages; и все заработало! Спасибо огромное за код=*

[Elza]

poli-smen подскажите пожалуйста, теперь на некоторых страницах в программе вылазит вот такое сообщение 1.png Оно не мешает работе программы, но все же, как сделать, что бы игнорировался показ этой ошибки.

[poli-smen]

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

poli-smen подскажите пожалуйста, теперь на некоторых страницах в программе вылазит вот такое сообщение Вложение 3448 Оно не мешает работе программы, но все же, как сделать, что бы игнорировался показ этой ошибки.

Попробуй поставить True в свойстве Silent у TWebBrowser.

[Elza]

пробовала сразу, но не помогло к сожалению...

[poli-smen]

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

пробовала сразу, но не помогло к сожалению...

Какие страницы выдают такое окно?
Какой версией Delphi пользуешься?

[Elza]

Сообщение от poli-smen

Какие страницы выдают такое окно?
Какой версией Delphi пользуешься?

делфи 2007. Страницы выдают это окно, когда захожу в главном в любое под меню с ссылками. Может есть способ просто игнорировать любые ошибки или отлавливать именно эту?

[Elza]

или прятать все всплывающие сообщения программы

[poli-smen]

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

делфи 2007. Страницы выдают это окно, когда захожу в главном в любое под меню с ссылками. Может есть способ просто игнорировать любые ошибки или отлавливать именно эту?

Я не знаю что это за окно такое, у меня оно никогда не появлялось ни на каких страницах.
Можешь попробовать вместо стандартного TWebBrowser использовать улучшенный EmbeddedWB, который можно скачать >>отсюда<<.