Здравствуйте, Гость
Пятница, 24.11.2017, 02:24
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: Ekz 
Форум » Все о Delphi » Интернет и сети » Взять ссылку из исходного кода
Взять ссылку из исходного кода
XakerДата: Четверг, 25.03.2010, 11:49 | Сообщение # 1
Ранг 4
Группа: Проверенные
Сообщений: 83
Награды: 1
Репутация: 0
Статус: Offline
В общем всем привет...

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

Code
<a href="меняющаяся ссылка"><img src="/img/btn_download.gif" border="0">

Подскажите каким образом её можно получить.... 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 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz