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

morpheus

скриптописец
07.08.2006
3 915
1
#1
Привет

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

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

susinmn

Well-known member
16.10.2007
529
3
#2
Привет

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

у кого какие идеи?
<!--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]