 |
|
01.09.2009, 07:07
|
|
Новичок
Регистрация: 04.05.2008
Сообщений: 7
С нами:
9484548
Репутация:
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
С нами:
9227388
Репутация:
180
|
|
Сообщение от woolfon
и на application.processmessage тоже ошибка(((
Application.ProcessMessages - S забыл в конце
|
|
|
|
01.09.2009, 09:59
|
|
Новичок
Регистрация: 04.05.2008
Сообщений: 7
С нами:
9484548
Репутация:
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
С нами:
9482319
Репутация:
2
|
|
Ну дак конечно жалуется, ты complete обьяви в глобальном варе как boolean и сразу там же его равняй в false. а потом событии браузера онКомплете присваивай его в true
да и не забудь первым действием в цикле его вновь в false ставить.
|
|
|
|
01.09.2009, 12:05
|
|
Познающий
Регистрация: 05.05.2008
Сообщений: 43
С нами:
9482319
Репутация:
2
|
|
стукни в аську 671411, набросаю
|
|
|
|
01.09.2009, 12:11
|
|
Новичок
Регистрация: 04.04.2007
Сообщений: 1
С нами:
10054270
Репутация:
0
|
|
а что б прога не подвисала помоему вполне несложно бросить компанент антифриз
|
|
|
|
01.09.2009, 12:34
|
|
Познающий
Регистрация: 05.05.2008
Сообщений: 43
С нами:
9482319
Репутация:
2
|
|
что вы все заладили подвисала-подвисала, если в его случае все грамотно реализовать то там не будет мест где бы морда висла.
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Скачать Delphi 7, помощь.
|
_casper_ |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
20 |
08.12.2009 04:54 |
|
Нужна помощь!!
|
snAKe33 |
Болталка |
0 |
08.06.2009 23:47 |
|
Нужна ваще помощь XP
|
jks |
Windows |
12 |
22.01.2009 00:33 |
|
Шахматы на Delphi нужна помощь.
|
Mobile |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
3 |
01.12.2008 02:53 |
|
Программа на Delphi. Помощь нужна.
|
Happer |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
7 |
25.03.2006 21:08 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
