Текущий архив: 2004.05.30;
Скачать: CL | DM;
Вниз
Flash Найти похожие ветки
← →
Сережа550 (2004-04-08 16:04) [0]Уважаемые знатоки. Есть такая процедура:
procedure GetLinks(pDisp:iDispatch;Kuda:TStrings);
var
i:integer;
iDoc:IHtmlDocument2;
iDisp: IDispatch;
iElement:IHTMLElement;
iAnchorElement:IHTMLAnchorElement;
Link: widestring;
begin
With frmMain do
begin
iDoc:=(pDisp as IWebBrowser2).Document as IHtmlDocument2;
for i:=1 to iDoc.links.length do
begin
iDisp:=iDoc.links.item(pred(i),0);
iDisp.QueryInterface(IHTMLElement, iElement);
if assigned(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) [1]Как через JavaScript"ы SWF"ки отображать???Можно HTML-код плиз?
Вообщето браузеры не отоброжают того у чего пути не указано!А единственным способом SWF"ку пихнуть является тег <object>,где параметры имеются,в которых путь указывается.
Страницы: 1 вся ветка
Текущий архив: 2004.05.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.066 c
