HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Заставить файл ждать...[delphi]
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Заставить файл ждать...[delphi]
  #1  
Старый 06.02.2010, 10:27
marcos
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
С нами: 8687741

Репутация: -4
По умолчанию Заставить файл ждать...[delphi]
Всем привет! Подскажите как выполнить такие действия:
Цикл бесконечный:
1. Загружаем файл.
2. Вырезаем ссылку.
3. TWeBrowser на нее переходит.

Реализовал:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
While true do begin
If GetInetFile('http://site.ru', 'opa.js')=true then Memo1.Lines.LoadFromFile('opa.js');
s:=memo1.Lines.Strings[1];
Delete(s,1,21);
Delete(s,81,136);
WebBrowser1.Navigate(s);
end;
end;
, но как проверить условие - загрузилась ли ссылка или нет, и если да, то следующий круг цикла?
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 06.02.2010, 13:19
RDL_Rider
Познающий
Регистрация: 21.06.2009
Сообщений: 81
С нами: 8888963

Репутация: 5
По умолчанию
под рукой сейчас Delphi нету, но возможно у TWebBrowser'а есть событие что-то типа OnNavigateComplete...советую там посмотреть.
 
Ответить с цитированием

  #3  
Старый 06.02.2010, 16:43
patcher
Познающий
Регистрация: 15.12.2009
Сообщений: 81
С нами: 8634231

Репутация: 24
Wink
Вот код:
Код:
procedure navig;
begin
{здесь твоя процедура навигации}
Form1.WebBrowser1.Navigate('google.ru');
end;

{$R *.dfm}

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
navig;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Navig;
end;
Код:
OnDocumentComplete=WebBrowser1DocumentComplete
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
МикроДжоинер для начинающих ReanimatoR Статьи 23 02.01.2010 15:07
Фейки dgonik777 Уязвимости Mail-сервис 34 14.06.2009 04:01
[Delphi] скопировать кусок нужной длины из указанного места в файле в другой файл Jim_Di С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 4 01.06.2009 07:30



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.