Решено Открыть html файл в браузере

Тема в разделе "Lotus - Программирование", создана пользователем wowa, 2 ноя 2015.

  1. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Добрый день,

    Подскажите, как открыть html файл в браузере (не во встроенным в лотус).

    tmpdatafilename - путь к файлу, который лежит на компе.

    Предыдущий девелопер сделал так:
    Код (Text):
    Call workspace.Urlopen(tmpdatafilename)
    но у кого открывается в самом лотусе, html файл какой-то поврежденный, теряется половина информации. Там просто очень много скрытых секций и прочего намудреного. Видимо лотус не все может обработать.

    Вопрос, как сделать чтобы файл открывался именно в браузере, независимо от настроек клиента?
    Или есть ли еще какие-н способы открыть файл на диске?
    Спасибо
     
  2. Kizarek86

    Kizarek86 Lotus team
    Lotus team

    Регистрация:
    20 июл 2007
    Сообщения:
    857
    Симпатии:
    5
    Проверяйте перед открытие настройки клиента и меняйте на нужные
     
  3. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    каким образом? и какое право я имею менять настройки клиента?
     
  4. Kizarek86

    Kizarek86 Lotus team
    Lotus team

    Регистрация:
    20 июл 2007
    Сообщения:
    857
    Симпатии:
    5
    Ну имеете ли Вы право я не вкурсе) Если нужно для работы системы то наверное нужно.
    У меня такой кусок энто делает
    Код (LotusScript):
     Dim s As New NotesSession
    Dim DB As New NotesDatabase("", "names")
    Dim DOC As NotesDocument
    Dim arr As Variant
    Dim noteid As String
    arr = Split(s.GetEnvironmentString("Location",True), ",")
    noteid = arr(1) 'noteid текущего location документа
    If noteid<>"" Then
    Set DOC = DB.GetDocumentByID(noteid)
    If DOC.GetItemValue("WebRetriever")(0) <> "9" Then
    Call DOC.ReplaceItemValue("WebRetriever", "9")
    Call DOC.Save(True,True)
    Messagebox "Изменены дефолтные настройки открытия внешних ссылок в Lotus." + Chr(10) + "Для вступления изменений в силу, необходимо перезапустить клиент Lotus.", 48, ""
    Exit Sub
    End If
    End If
     
  5. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.052
    Симпатии:
    146
    @Kizarek86, а дефолтный mail клиент можно таким макаром выставить?
     
  6. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.077
    Симпатии:
    300
    а что мешает:
    Код (LotusScript):
     Dim res, run As String
    run={cmd.exe /c "start } &fname &{"}
    Print {Shell calling...}, run
    res=Shell(run)
     
  7. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.052
    Симпатии:
    146
    @lmike, внешний разработчик.
    Но мне тут сказали, что уже решили эту проблему.
     
  8. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Спасибо, то что надо, но есть загвоздочка.

    Несколько пользователей работает на Линуксе и как я понимаю, код работать не будет. Может быть найдется кусок кода для Линукса?
     
  9. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.077
    Симпатии:
    300
    run={gvfs-open "} &fname &{"}
    единственный момент - д.б. настроено открытие html (и др. типов) в DE
    ну и сам gvfs-open д.б. установлен (не всегда бывает, хотя нотусня этого "требует")
    в бубунте (если не будет находить, но пакет установлен) путь /usr/bin/gvfs-open
     
    #9 lmike, 2 ноя 2015
    Последнее редактирование модератором: 2 ноя 2015
    3 пользователям это понравилось.
  10. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.077
    Симпатии:
    300
    для мака run={open -a "} &fname &{"}
    ЕМНИП
     
  11. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    суперабл. Большое спасибо, протестировал, все как доктор прописал.
     
Загрузка...

Поделиться этой страницей