В большинстве случаев Вы используете TWebBrowser для отображения HTML-документов, таким образом, создавая свою версию интернет-браузера по аналогии с Internet Explorer. Одна из особенностей браузера заключается в отображении информации о ссылке, например, в строке состояния, когда мышь находится над ссылкой. Это можно сделать и в Delphi: получить адрес ссылки, когда мышь движется над ссылкой в документе TWebBrowser.
Иногда нужно лишь извлечь ссылку из HTML документа (URL). Нам же нужно получить атрибуты всех тегов HREF.
Здесь приведен пример, как можно извлечь все ссылки из HTML-документа. Процедура ExtractLinks заполняет объект TStrings значениями атрибутов тега HREF из HTML-документа.
uses mshtml, ActiveX, COMObj, IdHTTP, idURI; //извлекаем атрибуты «href» тега A из URL в TStrings procedure ExtractLinks(const url: String; const strings: TStrings) ; var iDoc : IHTMLDocument2; strHTML : string; v : Variant; x : integer; links : OleVariant; docURL : string; URI : TidURI; aHref : string; idHTTP : TidHTTP; begin strings.Clear; URI := TidURI.Create(url) ; try docURL := ‘http://’ + URI.Host; if URI.Path <> ‘/’ then docURL := docURL + URI.Path; finally URI.Free; end; iDoc := CreateComObject(Class_HTMLDOcument) as IHTMLDocument2; try iDoc.designMode := ‘on’; while iDoc.readyState <> ‘complete’ do Application.ProcessMessages; v := VarArrayCreate([0,0],VarVariant) ; idHTTP := TidHTTP.Create(nil) ; try strHTML := idHTTP.Get(url) ; finally idHTTP.Free; end; v[0]:= strHTML; iDoc.write(PSafeArray(System.TVarData(v).VArray)) ; iDoc.designMode := ‘off’; while iDoc.readyState<>’complete’ do Application.ProcessMessages; links := iDoc.all.tags(‘A’) ; if links.Length > 0 then begin for x := 0 to -1 + links.Length do begin aHref := links.Item(x).href; if (aHref[1] = ‘/’) then aHref := docURL + aHref else if Pos(‘about:’, aHref) = 1 then aHref := docURL + Copy(aHref, 7, Length(aHref)) ; strings.Add(aHref) ; end; end; finally iDoc := nil; end; end;
Источник: codeplace.ru
Актуальный способ получить прямую ссылку на песню из ВКонтакте
Как получить ID ссылки в ВКонтакте
Есть ссылка https://vk.com/XXXXXX?w=wall239752675_486 ее ID 486 Есть еще такая https://vk.com/XXXXXX?w=wall-65888168_1449 ее ID 1449 Есть ли ВКонтакте способ получать ID этих ссылок?
Отслеживать
5,185 3 3 золотых знака 23 23 серебряных знака 48 48 бронзовых знаков
задан 24 окт 2015 в 22:48
1,053 7 7 золотых знаков 17 17 серебряных знаков 37 37 бронзовых знаков
это такая завуалированная реклама ?
24 окт 2015 в 23:02
1 ответ 1
Сортировка: Сброс на вариант по умолчанию
Если вас интересуют id записей на стене, вы можете использовать метод wall.get
Подробная информация находится в документации vk.com/dev/wall.get
UPD: Используйте регулярные выражения
Отслеживать
ответ дан 24 окт 2015 в 23:00
666 3 3 серебряных знака 13 13 бронзовых знаков
Как Скопировать Ссылку в ВК на Телефоне 2022 Сделать Ссылку на Свою Страницу Аккаунт Профиль Взять
Нет мне нужно с такой вот ссылки vk.com/idхххххх?w=wall239752675_486 вытащить ее id 486 а далее уже по id я буду делать выборку на стене пользователя, дело в том что сама ссылка хранится в базе данных.
24 окт 2015 в 23:08
24 окт 2015 в 23:11
Огромное спасибо Вам, Вы мне очень помогли. А то 2 дня голову ламал, а решение оказывается такое простое.Еще раз благодарю Вас.
24 окт 2015 в 23:18
24 окт 2015 в 23:20
24 окт 2015 в 23:25
- php
- вконтакте
- vkontakte-api
-
Важное на Мете
Похожие
Подписаться на ленту
Лента вопроса
Для подписки на ленту скопируйте и вставьте эту ссылку в вашу программу для чтения RSS.
Нажимая «Принять все файлы cookie» вы соглашаетесь, что Stack Exchange может хранить файлы cookie на вашем устройстве и раскрывать информацию в соответствии с нашей Политикой в отношении файлов cookie.
Источник: ru.stackoverflow.com
Извлечь URL-адреса Онлайн
На данной странице доступно быстрое извлечение ссылок из текста любого объема. Воспользуйтесь удобным инструментом бесплатно и без регистрации.
Генераторы
Форматирование Текста
Перемешать Текст
Регистр Текста
Сортировка Текста
Редактирование Текста
Статистика Текста
Выравнивание Текста
Поле ввода
Загрузить файл
Копировать
Сортировка
алфавитный порядок
обратный алфавитный порядок
Инструмент выбирает все адреса электронной почты, присутствующие в тексте. При этом в поле выдачи не будет повторяющихся результатов — программа удаляет идентичные емейлы автоматически.
Как использовать инструмент
Скопируйте текст, который вы хотите изменить, и вставьте его в поле. Заполните настройки и нажмите кнопку «Извлечь». Большой текст можно загрузить файлом. Далее скопируйте из соседнего окна получившийся текст или выгрузите файл.
Когда полезен инструмент
Соберите все ссылки из большого файла и будьте уверены, что не пропустите ни одну, как это возможно при ручном поиске. Это удобно при сборе ссылок из научных работ, документов, статей и прочем.