Например используя регулярные выражения:
Метод заменяет ссылки на свои значения, обрати внимание на условие в строчке 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;
|
|