Взять ссылку из исходного кода

Страница 1 из 1

Модератор форума: Ekz

Форум » Все о Delphi » Интернет и сети » Взять ссылку из исходного кода

Взять ссылку из исходного кода

Xaker

Дата: Четверг, 25.03.2010, 11:49 | Сообщение # 1

Ранг 4

Группа: Проверенные

Сообщений: 83

Награды: 1

Репутация: 0

Статус: Offline

В общем всем привет...

У меня такая проблема...мне нужно из исходного кода страницы (или просто с страницы) взять ссылку, из под изображения...проблемма в том что адрес ссылки постоянно меняется.

Code

Подскажите каким образом её можно получить.... wacko

Admin

Дата: Четверг, 25.03.2010, 15:18 | Сообщение # 2

Ранг 10

Группа: Пользователи

Сообщений: 1268

Награды: 16

Репутация: 2

Статус: Offline

нуууу, первое что приходит в голову - решение в лоб - тупо ищем позицию

Code

<a href="../

и начинаем копировать начиная с полученной позиции + длинна

Code

<a href="../

. Копируем до следующего символа кавычек. Но еще раз говорю, это самое тупое что можно придумать. Малейшее изменение кода страницы может привести к неработоспособности алгоритма.

Вот что я написал когда нужно было решить похожую задачу. Ищет все ссылки на странице.

Code

procedure GetAllLinks(HTMLCode:String; var lnk, txt:TStringList);
var s: string;
     i:integer;
     Doc: IHTMLDocument2;
     v: OleVariant;
     DocA: IHTMLElementCollection;
     DocElement: IHtmlElement;
begin
   Doc := coHTMLDocument.Create as IHTMLDocument2;

   v := VarArrayCreate([0,0], VarVariant);
   v[0] := HTMLCode;
   Doc.Write(PSafeArray(TVarData(v).VArray));

   DocA  := Doc.All.Tags('A') as IHTMLElementCollection;
   For i:=0 to DocA.length-1 do
   begin
     DocElement := DocA.Item(i, 0) as IHtmlElement;
     lnk.Add(DocElement.innerHTML);
     txt.Add(DocElement.getAttribute('href',0));
   end;

end;

Не оказываю помощь через личные сообщения и ICQ

Ekz

Дата: Четверг, 25.03.2010, 15:35 | Сообщение # 3

Ранг 10

Группа: Пользователи

Сообщений: 164

Награды: 2

Репутация: 1

Статус: Offline

Я, когда делал программу, следящую за обновлениями на сайте, просто искал в коде страницы набор символов, который встречается только до и после места , где была нужная мне ссылка. примерно так как делаем это админ.

Xaker

Дата: Четверг, 25.03.2010, 16:10 | Сообщение # 4

Ранг 4

Группа: Проверенные

Сообщений: 83

Награды: 1

Репутация: 0

Статус: Offline

Admin, спасибо) с помощью Pos,copy,delete получаю то что нужно)

Форум » Все о Delphi » Интернет и сети » Взять ссылку из исходного кода

Страница 1 из 1