1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

Тема: Запуск внешнего приложения с Lotus

данный пример запускает по клику на кнопку внешнее приложение java.exe
Далее запускается таймер, который при появлении файла в папке pathOUT крепит его в док и стирает файл.

В кнопке:

Set nTimer = New NotesTimer(5)
Print "ТАЙМЕР ПОИСКА ФАЙЛОВ В ПАПКЕ ВКЛ"
    
On Event Alarm From nTimer Call FileExists
    
krip$ = |C:\Program Files\Java\jre7\bin\java.exe -jar "C:\HTTPserver.jar" "|+  datapatch$ +XMLname  + |" 9999 "| + datapatch$ + |OUT\\"|
Print  krip$
kripto% = Shell (krip$)
    
Print "XML кнопка подписи - КОНЕЦ"

А форме в Globals -> Declarations:

Dim nTimer As NotesTimer
Public XMLname As String 
Public datapatch As String

Функция на форме в Globals

Sub FileExists(Source As NotesTimer)
    Print "FileExists - START"
    Dim pathOUT As String, FName As String 
    pathOUT =  datapatch & "OUT\"
    FName = Dir$(pathOUT & {*.*}, 0) 
    If FName = XMLname Then 
        Dim workspace As New NotesUIWorkspace
        Dim uidoc As NotesUIDocument
        Set uidoc = workspace.CurrentDocument
        Dim doc As NotesDocument
        Set doc = uidoc.Document
        Dim rtitem As NotesRichTextItem
        Set rtitem = New NotesRichTextItem( doc, "XMLattach" )
        Call rtitem.EmbedObject ( EMBED_ATTACHMENT, "", pathOUT & FName)
        Kill     pathOUT  & FName ' подписанный XML
        Kill     datapatch & XMLname ' исходный XML
        Call doc.save (True, False)
        nTimer.Enabled = False
        Call uidoc.Close
        Call workspace.EditDocument(False, doc)
        Msgbox "Подписанный XML прикреплен"
        Exit Sub
    End If
    Print "FileExists - END"
End Sub

Поделиться