Проблема с all.tags(string?????) ?
Страницы:
<
1
2
>
Johnnnnnn © (2008-09-30 08:24:00)
В общем пишу такой код:
procedure lpc(inputname:string; tagname:string);
var
i:integer;
begin
amdoc:=form1.webbrowser2.Document as IHtmlDocument2;
for i:=0 to amdoc.all.tags(tagname).length-1 do begin
try
if amdoc.all.tags(tagname).item(i).name=inputname then
showmessage('dfgf');
except
end;
end;
end;
procedure TForm1.WebBrowser2DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
lpc('q', 'INPUT');
end;
ну и потом можно браузером navigate на www.google.com должно
появиться сообщение НО! его НЕТ! ок тогда пробуем так
procedure lpc(inputname:string; tagname:string);
var
i:integer;
begin
Edit1.text:=tagname;
amdoc:=form1.webbrowser2.Document as IHtmlDocument2;
for i:=0 to amdoc.all.tags(edit1.text).length-1 do begin
try
if amdoc.all.tags(edit1.text).item(i).name=inputname then
showmessage('dfgf');
except
end;
end;
end;
идем к гуглу сообщение ЕСТЬ! че за беда такая мне впринципе
пофиг могу и эдит на форму кинуть но понять просто хочу в чем
прикол?
Сергей М. (2008-09-30 08:54:00) [21]
> в чем прикол?
А нет никакого прикола - оба варианта абсолютно эквивалентны
по своей логике.
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
