Проверка на валидность URL [кроссплатформенно]

[bro]

Всем привет. Нужно проверить введённый пользователем URL на валидность. Приложение у меня кроссплатформенное, поэтому воспользоваться функциями IsValidURL и PathIsURL я не могу.

Мне нужно:
1) либо аналогичная функция из другой (кроссплатформенной) части RTL, если она есть
2) либо регулярное выражение для проверки валидности URL.

Попробовав второй путь, я столкунлся с проблемой. Из RegexBuddy я почерпнул две (почти одинаковые по результату (?)) регулярки, ищущие URL:

URL_RegEx = '\b(https?|ftp|file)://[-A-Z0-9+&@#/%?=~_|$!:,.;]*[A-Z0-9+&@#/%=~_|$]';

URL_RegEx = '\b(?<protocol>https?|ftp)://(?<domain>[-A-Z0-9.]+)(?<file>/[-A-Z0-9+&@#/%=~_|!:,.;]*)?(?<parameters>\?[A-Z0-9+&@#/%=~_|!:,.;]*)?';

Ни одна из них не заработала в Delphi XE7u1 (скоро попробую XE8, но думаю, не из-за этого). Хотя RegexBuddy в режиме Delphi XE6 всё прекрасно ищет. В чём проблема и как мне переписать эти регулярки, чтоб они работали в Delphi?
Если что, использую встроенный TRegEx.

[lomastr_]

а смысл проверять ?

тем более ни один из этих патернов не проверит все что можно

[bro]

Сообщение от lomastr_

а смысл проверять ?

тем более ни один из этих патернов не проверит все что можно

Смысл в том, что если введённый текст не является URL - моя программа не будет пытаться оттуда ничего скачать. В общем-то, нужен даже не паттерн для URL, а конкретно HTTP/HTTPS.

Почему не проверит? Вроде они достаточно чётко отсекают неправильные URL.

Пока сделал так:

  URL_RegEx = '^http(s)?:\/\/.{3,}$';

В общем-то фиг с ним, просто хотелось в соответствии с RFC проверять.

[lomastr_]

ну пусть отсекут http://википедия.орг.рф/

вы когда нибудь видели валидный патерн для проверки email? там кода на 2 страницы мелким почерком, потому правильнее всего проверять есть сабака гдето в середине или нет, остальное нафик не надо

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

[lomastr_]

Смысл в том, что если введённый текст не является URL - моя программа не будет пытаться оттуда ничего скачать.

могу придумать 100500 валидных но не рабочих урлов, ваша программа умрет

[bro]

В общем, оставил последний вариант https://github.com/magicxor/URL2Titl...ster/uMain.pas
Спасибо за помощь

[Stanislav]

Сообщение от lomastr_

могу придумать 100500 валидных но не рабочих урлов, ваша программа умрет

Поддерживаю. lomastr_ +10

[Пепел Феникса]

а что вы потом с урлом делаете?

[bro]

Сообщение от Пепел Феникса

а что вы потом с урлом делаете?

Ничего криминального.
Получаю список заголовков страниц по списку урлов. https://github.com/magicxor/URL2Title - сабж