Страница 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!