Страница 1 из 1
Открыть страницу в браузере
Добавлено: 25 Апрель 2016, 11:19
NewUser
Здравствуйте!
Посоветуйте, пожалуйста, средство для открытия страницы в браузере (который по умолчанию) по имеющемуся адресу этой страницы.
Кто чем пользуется?
Использовал для этого VisitMeControl от Clarion Handly Tools. Но там вторым параметром к адресу страницы идет переменная, описывающая название стартовой страницы (index.html по умолчанию). Даже если оставить её не определенной, то в итоге шаблон выдает завершающий слэш в конце сформированного адреса (например: http://mysite.ru/), что в некоторых случаях приводит к непониманию баузером данной конструкции.
Открыть страницу в браузере
Добавлено: 25 Апрель 2016, 11:33
Yufil
Проще всего через ShellExecute
Код: Выделить всё
...
Module('windows API')
ShellExecute(UNSIGNED,*CSTRING,*CSTRING,*CSTRING,*CSTRING,SIGNED),UNSIGNED,PASCAL,RAW, |
NAME('ShellExecuteA')
End
...
Shex Group,Pre(Shex)
Type Cstring('Open')
ProgName Cstring(260)
Param Cstring('')
Directory Cstring(260)
End
...
Shex:Directory= ''
Shex:ProgName = URL ! В начале обязательно должно быть 'http://' или 'https://'
If ShellExecute(0, Shex:Type, Shex:ProgName, Shex:Param, Shex:Directory,3).
Открыть страницу в браузере
Добавлено: 25 Апрель 2016, 13:26
Stalker
Использую File Explorer от CapeSoft, доволен, для загрузки при присоединенном шаблоне нужна вставка типа:
if SUB(Clip(pap0:fail1),-4,4) ='.htm' or SUB(Clip(pap0:fail1),-5,5) ='.html' or SUB(Clip(pap0:fail1),1,4) ='http'
lok_htm1= Clip(pap0:fail1)
ThisViewer7.Load (pap0:fail1)
ThisViewer7.SetFocus()
unhide(?Tab5)
select(?Tab5)
else
hide(?Tab5)
if Clip(pap0:fail1) <> ''
Glo:ShellExFileName=Clip(pap0:fail1)
IMPURLHandler(-4{PROP:Handle},clip(Glo:ShellExFileName))
.
.
В итоге в окне шаблона открывается вэб страница иначе загружается файл в ту среду в которой создан (doc,pdf и т.д.)
в переменной pap0:fail1 путь к файлу.Примерно это выглядит так
Открыть страницу в браузере
Добавлено: 25 Апрель 2016, 13:34
Stalker
NewUser писал(а): Использовал для этого VisitMeControl от Clarion Handly Tools. Но там вторым параметром к адресу страницы идет переменная, описывающая название стартовой страницы (index.html по умолчанию). Даже если оставить её не определенной, то в итоге шаблон выдает завершающий слэш в конце сформированного адреса (например:
http://mysite.ru/), что в некоторых случаях приводит к непониманию баузером данной конструкции.
Так адрес (например:
http://mysite.ru/) до загрузки нужно выловить и почистить последний символ, для этого найти нужную вставку....
Открыть страницу в браузере
Добавлено: 25 Апрель 2016, 13:50
NewUser
Юрий, Stalker, спасибо за отклик!
Stalker писал(а): до загрузки нужно выловить и почистить последний символ, для этого найти нужную вставку
это первое что решено было сделать в связи с данным вопросом. Но! Вы видели сколько у данного производителя шаблонов/контролов/классов? Там и сам черт ногу сломает. Куда мне с моим начальным опытом шаблонопонимания!
А вот с десяток строк кода от Юрия пришлись в самый раз. Быстро и эффективно. Что так же быстро было реализовано в полной мере моей удовлетворенностью полученным результатом.
Хотя, надо признать, меня заинтересовал File Explorer от CapeSoft. Появиться свободное время - обязательно гляну-поизучаю.
Открыть страницу в браузере
Добавлено: 25 Апрель 2016, 15:30
Дед Пахом
Насколько я знаю, File Explorer просто обёртка над стандартным ActiveX Shell.Explorer, который есть в любой Windows. Помещаем его на окно:
Код: Выделить всё
OLE,AT(3,17,332,276),USE(?oleShellExplorer),COMPATIBILITY(020H), |
CREATE('Shell.Explorer.2')
END
С помощью метода Navigate можно загрузить удалённый или локальный ресурс:
Код: Выделить всё
?oleShellExplorer{'Navigate("'& 'file://'& LONGPATH(previewfile) &'")'} ! локальный файл. html, pdf, gif, jpg, всё что поддерживает IE
?oleShellExplorer{'Navigate("http://forum.clarionlife.net/phpbb/viewtopic.php?f=1&t=3649&p=26331#p26331")'} ! удалённый ресурс
?oleShellExplorer{'Navigate("about:blank")'} ! очистить
Открыть страницу в браузере
Добавлено: 25 Апрель 2016, 16:37
NewUser
Спасибо, Дед Пахом!
Пара строк кода и программа засияла новыми красками!
Вот уже 10 минут как ничего не делаю - только открываю на автомате с нужной позиции в окне своей программы видео материалы с YouTub'а.
Круто смотрится!!!
Еще бы научиться таким же образом открывать с нужной позиции видео в вКонтакте...
Открыть страницу в браузере
Добавлено: 25 Апрель 2016, 16:49
Admin
NewUser писал(а): Еще бы научиться таким же образом открывать с нужной позиции видео в вКонтакте...
https://vk.com/video-29544671_456239523?t=2m35s
Открыть страницу в браузере
Добавлено: 25 Апрель 2016, 19:03
NewUser
Круто! Благодарю, Admin!