Вообщем у меня есть браузер в проге..
Допустим пользователь заходит на сайт meil.ru
Мне нужно чтобы: если пользователь переходит на этот сай то выполнялось какоинить действие
if начинка then
Мне нужна начинка)
За каждый адекватный ответ ставлю спасибку
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Самый простой вариант. На кнопку перехода по ссылки кинь код:
Код:
if (Поле_для_ввода_ссылки = 'http://mail.ru/') then
ShowMessage('Mail.ru');
Но могут ввести не [Ссылки могут видеть только зарегистрированные пользователи. ], а [Ссылки могут видеть только зарегистрированные пользователи. ] или mail.ru
Так что перед этим вставь код:
Код:
if pos('http://', Edit1.Text)=0 then
Поле_для_ввода_ссылки:='http://' + Поле_для_ввода_ссылки + '/';
Получится у тебя примерно так:
Код:
...
if pos('http://', Edit1.Text)=0 then
Поле_для_ввода_ссылки:='http://' + Поле_для_ввода_ссылки + '/';
if (Поле_для_ввода_ссылки = 'http://mail.ru/') then
ShowMessage('Mail.ru');
Добавлено через 8 минут
Если нужна не точная ссылка - [Ссылки могут видеть только зарегистрированные пользователи. ] и т.п, а просто присутствовало - mail.ru, можно сделать так:
Код:
if pos('mail.ru', Поле_для_ввода_ссылки)<>0 then
ShowMessage('Mail.ru');
Последний раз редактировалось Erstown; 15.11.2012 в 17:40.
Причина: Добавлено сообщение
муторно, уже давно есть функции, которые берут исходный код с twebbrowser и вставляют в переменную. Потом уже if pos('<head><!--MAIL.RU-->', s)>0 то понеслась
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Регистрация: 12.08.2012
Сообщений: 15
Популярность: 28
Сказал(а) спасибо: 27
Прошу помочь с if'ом
