Flash [D6, Win2k]
Сережа550 © (2004-04-08 16:04:00)
Уважаемые знатоки. Есть такая процедура:
procedureGetLinks(pDisp:iDispatch;Kuda:TStrings);
var
i:integer;
iDoc:IHtmlDocument2;
iDisp: IDispatch;
iElement:IHTMLElement;
iAnchorElement:IHTMLAnchorElement;
Link: widestring;
begin
WithfrmMain
do
begin
iDoc:=(pDisp
asIWebBrowser2).Document
asIHtmlDocument2;
fori:=1
toiDoc.links.length
do
begin
iDisp:=iDoc.links.item(pred(i),0);
iDisp.QueryInterface(IHTMLElement, iElement);
ifassigned(iElement)
then
begin
if( ( iElement.tagName = 'A' ) )
then
begin
iElement.QueryInterface(iHtmlAnchorElement,iAnchorElement);
Link := IAnchorElement.href;
Kuda.Add(Link);
end;
end;
end;
end;
end;
Данная процедура прекрасно работает - TWebBrowser (Internet
Explorer) отдает мне все ссылки с загруженного документа.
Вопрос:Возможно ли получить у TWebBrowser'а ссылки на
отображаемые на странице Flash'ки? Проблема в том, что 90% всех
Flash-роликов на страницах указаны не явно, а при помощи
Java-Script'ов и явного пути к файлы .swf в коде страницы нет. Но
раз Explorer их отображает, значит он выполняет эти скрипты и
получает действительный путь к Flash-файлу. Возможно ли как-то
спросить у него эти пути? Сдается мне, что это можно сделать,
используя вместо IHTMLAnchorElement - IHTMLObjectElement. Но может
быть я и ошибаюсь. Искренне надеюсь на вашу помощь. Помогут любые
советы.
CAHEK (2004-04-09 00:12:00) [1]
Как через JavaScript'ы SWF'ки отображать???Можно HTML-код
плиз?
Вообщето браузеры не отоброжают того у чего пути не указано!А
единственным способом SWF'ку пихнуть является тег
<object>,где параметры имеются,в которых путь
указывается.
Наверх 
ЧАТ |
Орешник |
|
