1. Уважаемые участники и гости, 19 октября codeby будет работать в режиме "Только чтение". Регистрация новых участников будет закрыта. 20 октября портал продолжит работу в прежнем режиме.

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

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

  1. morpheus

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

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

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

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

    susinmn Well-Known Member

    Репутация:
    0
    Регистрация:
    16 окт 2007
    Сообщения:
    529
    Симпатии:
    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 скриптописец

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

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