ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Заставить файл ждать...[delphi]
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

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

Репутация: -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;
, но как проверить условие - загрузилась ли ссылка или нет, и если да, то следующий круг цикла?
 
Ответить с цитированием

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

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

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

Репутация: 24
Отправить сообщение для patcher с помощью ICQ
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 E-Mail 34 14.06.2009 04:01
[Delphi] скопировать кусок нужной длины из указанного места в файле в другой файл Jim_Di С/С++, C#, Delphi, .NET, Asm 4 01.06.2009 07:30
Линукс для чайников Dracula4ever Soft - *nix 11 24.01.2007 10:49
чтиво для новичков genom-- *nix 5 20.10.2006 19:17



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


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




ANTICHAT.XYZ