[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;