Stream Для Zip-файлов. Help.

[susinmn]

Нужно создать zip-архив и передать его побайтно с помощью web-сервиса.

zip-архив создаю, открывается нормально.
далее пытаюсь передать архив побайтно

Dim uploadFile As New XSD_BASE64BINARY

Set Stream = s.CreateStream
If Not Stream.Open(zipFilePath, "binary") Then
....
End If

Call uploadFile.setValueFromNotesStream(Stream)

при принятии, архив не открывается.

 

[lmike]

есть два предположения:
-обратно, из бэйз64, никто не преобразует B)
-"как обычно" - в ЛС криво реализовано

 

[susinmn]

есть два предположения:
-обратно, из бэйз64, никто не преобразует B)
-"как обычно" - в ЛС криво реализовано

маленькие zip-файлы открываются, большие нет B)
причем при передачи не заархивированного *большого* файла, все ровно.
чудеса...

 

[susinmn]

вот где чудеса:

Call uploadFile.SetValueFromNotesStream(Stream)
Set tmpStream=uploadFile.Getvalueasnotesstream()

Stream - ["Binary", True, 1162710, 1162710, False]
tmpStream - ["Unicode", True, 313036, 313036, False]

 

[susinmn]

Вот с такого толкача, вроде бы, завелся...тестируем...

outString=""

Do
Set OutStream = s.CreateStream
buffer = Stream.Read(32767)
Call OutStream.Write(buffer)
Call uploadFile.SetValueFromNotesStream(OutStream)
outString=outString+uploadFile.Getvalueasstring()
Loop Until Stream.IsEOS

Call uploadFile.Setvaluefromstring(outString)

 

[lmike]

ну тоды скорее всего пункт два...
а пример кривости

Ссылка скрыта от гостей