(в браузере отключена ява, не работают теги, админы поправьте плз)

файлик в хранилище сохраняется в base64 ничего не добавялется

пример рабочего кода:

USE [DataExchange]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[getFileFromStorage]
@_SimpleKey binary(16) --ID файлика
,@OutputDirectory varchar(1024) --каталог для временного сохранения файлов из SQL
AS
Begin

print 'getFileFromStorage переданы параметры:'
print @_SimpleKey
print @OutputDirectory

declare
@Stream integer,
@Buffer varbinary(4096),
@Size integer,
@Pos integer,
@BufSize integer,
@HR varbinary(4096),
@FileName varchar(1024)

SET @BufSize = 4096

--проверять инициализацию объекта Stream не будем
--полагаем что объект ADODB.Stream работает безошибочно
--:) иначе бы Windows не работала

EXEC @HR = sp_OACreate 'ADODB.Stream',@Stream OUT
EXEC @HR = sp_OASetProperty @Stream,'Type',1 -- binary
EXEC @HR = sp_OASetProperty @Stream,'Mode',3 -- write|read
EXEC @HR = sp_OAMethod @Stream,'Open'

--Получаем информацию о файле
select @Size = DATALENGTH(_Fld194), @FileName =@OutputDirectory+'\'+_Fld193 from _InfoReg191 where _SimpleKey = @_SimpleKey

print 'размер создаваемого файла:' --режим тестирования
print @Size --режим тестирования
print 'имя файла:' --режим тестирования
print @FileName --режим тестирования

Set @Pos=0

WHILE @Pos < @Size BEGIN
SET @BufSize = CASE WHEN @Size - @Pos < 4096 THEN @Size - @Pos ELSE 4096 END

select @Buffer = substring(_Fld194 ,@Pos+1, @BufSize) from _InfoReg191 where _SimpleKey = @_SimpleKey

EXEC @HR = sp_OAMethod @Stream, 'Write', NULL, @Buffer

SET @Pos = @Pos + @BufSize
END


EXEC @HR = sp_OAMethod @Stream,'SaveToFile',null,@FileName,2

EXEC @HR = sp_OAMethod @Stream,'Close'
EXEC @HR = sp_OADestroy @Stream

--метод SaveToFile возвращает НЕ одназначно ответ - создали мы файл или нет
--чтобы понять это, попробуем получить размер созданного нами файлика
declare @hr_ int, @FSO int, @file int, @Size_Сreated int
exec @hr_ = sp_oacreate 'Scripting.FileSystemObject', @FSO output
exec @hr_ = sp_oamethod @FSO , 'GetFile', @file output, @FileName
exec @hr_ = sp_oagetproperty @file, 'Size', @Size_Сreated output
--exec @hr = sp_oadestroy @FSO
print 'Размер созданного файла:'
print @Size_Сreated --режим тестирования
If isNull(@Size_Сreated,0) <> @Size
Begin
print 'ERROR: ошибка при создании файла: '
print @FileName
Return 1
End

print 'файл создан' --режим тестирования
Return 0

END