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

[morpheus]

Привет

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

у кого какие идеи?

 

[susinmn]

Привет

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

у кого какие идеи?

<!--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]

 

[morpheus]

susinmn
большое спасибо, работает