ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
01.09.2009, 07:07
|
|
Новичок
Регистрация: 04.05.2008
Сообщений: 7
Провел на форуме:
35431
Репутация:
0
|
|
Сообщение от akahaos
for i:=0 to listbox1.items.count-1 do
WebBrowser1.navigate(listbox1.items[i]);
или не навигате там, лень делфю запускать, ну вобщем смысл понятен.
вообщем ставлю я этот код на новую кнопку, переходит только по первой ссылке из списка, далее при нажатии просто обновляется страница, но переходов уже нет, наверное потому-то ссылка осталось в листбоксе, и он пробует перейти по ней еще раз, но она уже не валид)
а чтобы он ждал пока первая загрузится и тока потом переходил к загрузке следущей делай так:
for i:=0 to listbox1.items.count-1 do begin
WebBrowser1.navigate(listbox1.items[i]);
while not complete do application.processmessage;
complete присваивай в true в событии браузера OnComplete или чето такое
здесь я вообще не разобрался, значение присвоил, на строку while not complete do application.processmessage; компилятор жалуется,
там вместо комплит я писал что-то вроюде ondownloadcomplete, ни каких результатов, и на application.processmessage тоже ошибка(((
|
|
|
01.09.2009, 08:40
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761
Репутация:
180
|
|
Сообщение от woolfon
и на application.processmessage тоже ошибка(((
Application.ProcessMessages - S забыл в конце
|
|
|
|
01.09.2009, 09:59
|
|
Новичок
Регистрация: 04.05.2008
Сообщений: 7
Провел на форуме:
35431
Репутация:
0
|
|
ну вот что у меня есть:
Код:
procedure TForm1.Button3Click(Sender: TObject);
var
link:variant;
i:integer;
begin
link:=WebBrowser1.OleObject.Document.getelementsbytagname('a');
for i:=0 to link.length-1 do
if pos('http://mysite.ru/index.php?addfriend?recall=',link.item(i).href)<>0 then ListBox1.Items.Add(link.item(i).href);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listbox1.items.count-1 do begin
WebBrowser1.navigate(listbox1.items[i]);
while not complete do application.processmessages;
end;
на button3 все норм работает, в listbox добовляются ссылки
на button2 не соображаю как дописать код, компилятор выдает ошибку undeclared identifier "complete"
там помоему ondownloadcomplete надо но я точно не шарю, и плюс у меня ощущение что код перейдет по первой ссылке, и после обновления опять перейдет по ней, но уже ничего не изменится, я просто с первым вариантом пробовал именно так и вышло(((
братцы умоляю кому не сложно, помогите... мне действительно очень надо, а в программировании увы я ноль( |
|
|
|
01.09.2009, 12:04
|
|
Познающий
Регистрация: 05.05.2008
Сообщений: 43
Провел на форуме:
718081
Репутация:
2
|
|
Ну дак конечно жалуется, ты complete обьяви в глобальном варе как boolean и сразу там же его равняй в false. а потом событии браузера онКомплете присваивай его в true
да и не забудь первым действием в цикле его вновь в false ставить.
|
|
|
|
01.09.2009, 12:05
|
|
Познающий
Регистрация: 05.05.2008
Сообщений: 43
Провел на форуме:
718081
Репутация:
2
|
|
стукни в аську 671411, набросаю
|
|
|
|
01.09.2009, 12:11
|
|
Новичок
Регистрация: 04.04.2007
Сообщений: 1
Провел на форуме:
58382
Репутация:
0
|
|
а что б прога не подвисала помоему вполне несложно бросить компанент антифриз
|
|
|
|
01.09.2009, 12:34
|
|
Познающий
Регистрация: 05.05.2008
Сообщений: 43
Провел на форуме:
718081
Репутация:
2
|
|
что вы все заладили подвисала-подвисала, если в его случае все грамотно реализовать то там не будет мест где бы морда висла.
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Нужна помощь!!
|
snAKe33 |
Болталка |
0 |
08.06.2009 23:47 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
