Принять файл по веб-сервису

Тема в разделе "Lotus - Программирование", создана пользователем morpheus, 15 сен 2011.

  1. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Привет

    задача: необходимо принять файлв через веб -сервис, с возможностью дальнейшей работы с ним(файлом)

    у кого какие идеи?
     
  2. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    <!--shcode--><pre><code class='avto'>Use "Base64 LS2J"
    ...
    Class File
    Public FileName As String
    Public Attach As XSD_BASE64BINARY

    Public Sub New ()
    Set Attach = New XSD_BASE64BINARY
    End Sub
    End Class

    Class ArrayFiles
    Public Files() As File

    Public Sub New ()
    End Sub
    End Class
    Public Function CreateDoc (ArrayFiles As ArrayFiles) As String

    Forall File In ArrayFiles.Files
    If File.FileName<>"" Then
    Dim converter As New Base64Converter
    Set inputStream = converter.DecodeBase64(File.Attach.getValueAsString())
    ...[/CODE]
     
  3. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    susinmn
    большое спасибо, работает
     
Загрузка...

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