VPF::Найти Flash - Форум программистов

simsmann

Дата 31.1.2009, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 26.11.2006

Репутация: нет
Всего: нет

Как найти на странице файлы swf т.е. флеш ролики и определить их УРЛ. КАк делать парсинг есть в том числе и страниц с фреймами. Но как позиционируется именно объект флеш.

Rrader

Дата 1.2.2009, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 6
Всего: 191

simsmann, страница загружена в TWebBrowser?

--------------------

Let's do this quickly!
Rest in peace, Vit!

simsmann

Дата 2.2.2009, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 26.11.2006

Репутация: нет
Всего: нет

Не имеет значения. Интересны оба варианта.

cemick

Дата 12.2.2009, 12:54 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 1
Всего: 6

Например используя регулярные выражения:
Метод заменяет ссылки на свои значения, обрати внимание на условие в строчке 56(Если что то не понятно спрашивай, не хотелось вырезать лишнее):

Код


function ModifyPathInHTMLText(const AHTMLText: string): string;
var
  r, r_tmp: TRegExpr;
  ObjParam, FirstVariant, SecondVariant: string;
  ThirdPartLen, SecPartLen: integer;
  exPos: integer;
  MPos: integer;
  NewPath: string;
const
  strStartObjectTag = '<[\s]*object[\s]+';
  strEndObjectTag = '<[\s]*/object[\s]*>';
  strObjectParamTag = '<[\s]*param[\s]+';
  strParamName = 'name[\s]*=[\s]*';

  strMovieParam = '[''"]movie[''"]';
  strParamValue = 'value[\s]*=[\s]*';
  strValue = '[''"](.*?)[''"]';
  strClassId = 'classid[\s]*=[\s]*' + '[''"]clsid:D27CDB6E-AE6D-11cf-96B8-444553540000[''"]';
begin
  result := AHTMLText;
  r := TRegExpr.Create;
  r_tmp := TRegExpr.Create;

  FirstVariant := strParamName + strMovieParam + '[\s]+' + strParamValue + strValue;
  SecondVariant := strParamValue + strValue + '[\s]+' + strParamName + strMovieParam;
  ObjParam := strObjectParamTag + '(' + FirstVariant + '|' + SecondVariant + ')';
  r.Expression := strStartObjectTag + '.*?' + ObjParam + '.*?' + strEndObjectTag;
  r_tmp.Expression := strClassId;

  with r do
  begin
    ModifierS := true;
    ModifierX := true;
    ModifierI := true;
  end;
  with r_tmp do
  begin
    ModifierS := true;
    ModifierX := true;
    ModifierI := true;
  end;

  try
    r.InputString := AHTMLText;
    exPos := 1;
    while r.Execpos(exPos) do // Перебор всех объектов
    begin
      if r.Match[2] <> '' then // Выясняем какое подвыражение найдено
        MPos := 2
      else
        MPos := 3;
      r_tmp.InputString := r.Match[0];

      if (r_tmp.Exec) and
        not (AnsiContainsText(r.Match[MPos], BackSlash) or
        AnsiContainsText(r.Match[MPos], ForwSlash)) then //Если объект -- флеш
      begin
        SecPartLen := r.MatchPos[MPos] + r.MatchLen[MPos];
        ThirdPartLen := Length(r.InputString) - r.MatchPos[MPos] + r.MatchLen[MPos];
        NewPath := ExtractFilePath(Application.ExeName) + r.Match[MPos];
        exPos := r.MatchPos[MPos] + Length(NewPath);
        //Замена ссылки к флешу       ExtractFilePath(Application.ExeName)
        r.InputString := Copy(r.InputString, 1, r.MatchPos[MPos] - 1)
          + NewPath + Copy(r.InputString, SecPartLen, ThirdPartLen);
      end else
        exPos := r.MatchPos[0] + r.MatchLen[0]; // Опеределяем откуда начать следующий поиск выражения
      result := r.InputString;
    end;
  finally
    r.Free;
    r_tmp.Free;
  end;
end;

И еще, если загружена в TWebBrowser:

Код


inode: IHTMLDOMNode;
  iHtmlObject2: IHTMLObjectElement;
  DOMObjectParam: IHTMLParamElement;
  Рекурсивный обход DOM  в глубину/ Ищем флеш ролики и модифицируем путь к файлам
  function FindAndModifyHtmlObjectAttr(inode2:IHTMLDOMNode):IHTMLObjectElement;
  begin
    result := nil;
    While inode2 <> nil do
    begin
      //терминальная ветвь
      if (inode2.QueryInterface(IHTMLObjectElement,iHtmlObject2) = 0) and
        (AnsiSameText(iHtmlObject2.classid,'clsid:D27CDB6E-AE6D-11cf-96B8-444553540000')) then
        begin
          result := iHtmlObject2;
          // Перебираем все параметры для найденного объекта
          inode2 := inode2.firstChild;
          while  inode2 <> nil do
          begin
            if (inode2.QueryInterface(IHTMLParamElement,DOMObjectParam) = 0) and
             AnsiContainsText(DOMObjectParam.Name,SrcFlashMovieParamName) and
              not(AnsiContainsText(DOMObjectParam.Value,BackSlash) or AnsiContainsText(DOMObjectParam.Value,ForwSlash)) then
                DOMObjectParam.value := ExtractFilePath(Application.ExeName) + DOMObjectParam.Value;
            inode2 := inode2.nextSibling;
          end;
          exit;
        end;
        result := FindAndModifyHtmlObjectAttr(inode2.firstChild); // Вход в рекурсию
        inode2 := inode2.nextSibling;
    end;
  end;

simsmann

Дата 13.2.2009, 21:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 26.11.2006

Репутация: нет
Всего: нет

Спасибо!
Пробуем разобраться.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »