Открыть страницу в браузере

[NewUser]

Здравствуйте!
Посоветуйте, пожалуйста, средство для открытия страницы в браузере (который по умолчанию) по имеющемуся адресу этой страницы.
Кто чем пользуется?
Использовал для этого VisitMeControl от Clarion Handly Tools. Но там вторым параметром к адресу страницы идет переменная, описывающая название стартовой страницы (index.html по умолчанию). Даже если оставить её не определенной, то в итоге шаблон выдает завершающий слэш в конце сформированного адреса (например: http://mysite.ru/), что в некоторых случаях приводит к непониманию баузером данной конструкции.

[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).

[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 путь к файлу.Примерно это выглядит так

[Stalker]

Использовал для этого VisitMeControl от Clarion Handly Tools. Но там вторым параметром к адресу страницы идет переменная, описывающая название стартовой страницы (index.html по умолчанию). Даже если оставить её не определенной, то в итоге шаблон выдает завершающий слэш в конце сформированного адреса (например: http://mysite.ru/), что в некоторых случаях приводит к непониманию баузером данной конструкции.

Так адрес (например: http://mysite.ru/) до загрузки нужно выловить и почистить последний символ, для этого найти нужную вставку....

[NewUser]

Юрий, Stalker, спасибо за отклик!

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

это первое что решено было сделать в связи с данным вопросом. Но! Вы видели сколько у данного производителя шаблонов/контролов/классов? Там и сам черт ногу сломает. Куда мне с моим начальным опытом шаблонопонимания!
А вот с десяток строк кода от Юрия пришлись в самый раз. Быстро и эффективно. Что так же быстро было реализовано в полной мере моей удовлетворенностью полученным результатом.
Хотя, надо признать, меня заинтересовал File Explorer от CapeSoft. Появиться свободное время - обязательно гляну-поизучаю.

[Дед Пахом]

Насколько я знаю, 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")'}  ! очистить

[NewUser]

Спасибо, Дед Пахом!
Пара строк кода и программа засияла новыми красками!
Вот уже 10 минут как ничего не делаю - только открываю на автомате с нужной позиции в окне своей программы видео материалы с YouTub'а.
Круто смотрится!!!
Еще бы научиться таким же образом открывать с нужной позиции видео в вКонтакте...

[Admin]

Еще бы научиться таким же образом открывать с нужной позиции видео в вКонтакте...

https://vk.com/video-29544671_456239523?t=2m35s

[NewUser]

Круто! Благодарю, Admin!