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 надо но я точно не шарю, и плюс у меня ощущение что код перейдет по первой ссылке, и после обновления опять перейдет по ней, но уже ничего не изменится, я просто с первым вариантом пробовал именно так и вышло(((
братцы умоляю кому не сложно, помогите... мне действительно очень надо, а в программировании увы я ноль( |
|
|