Как залить бинарный файл из БД в каталог?

22.06.2006, 20:09. **Показов** 1345. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Т.е. уже имею rs("Content").value
и его надо положить в каталог. а как?

Код

Set FS = CreateObject("Scripting.FileSystemObject")
   Set TextStream = FS.CreateTextFile("c:inetpubwwwOGKezopasnostaa.doc , true)
   For i = 1 to LenB(rs("Content").value)
   TextStream.Write chr(AscB(MidB(rs("Content").value,i,1)))
   Next

такой способ медленный. а как не перебирая посимвольно слить?

@bazile · 22.06.2006, 21:04

FileSystemObject здесь не подходит так как не умеет работать с бинарными файлами. Пользуйся объектом ADODB.Stream - http://support.microsoft.com/default.aspx/kb/258038 http://support.microsoft.com/default.aspx/kb/258038.

22.06.2006, 21:09

все спасибо. получилось
ADODB.Stream помог. спасибо ему :-)

olegator
		1
	Как залить бинарный файл из БД в каталог? 22.06.2006, 20:09. Показов 1345. Ответов 2 Метки нет (Все метки) Т.е. уже имею rs("Content").value и его надо положить в каталог. а как? Код Set FS = CreateObject("Scripting.FileSystemObject") Set TextStream = FS.CreateTextFile("c:inetpubwwwOGKezopasnostaa.doc , true) For i = 1 to LenB(rs("Content").value) TextStream.Write chr(AscB(MidB(rs("Content").value,i,1))) Next такой способ медленный. а как не перебирая посимвольно слить?

@bazile 85 / 61 / 69 Регистрация: 15.03.2007 Сообщений: 6,906
	22.06.2006, 21:04	2
	FileSystemObject здесь не подходит так как не умеет работать с бинарными файлами. Пользуйся объектом ADODB.Stream - http://support.microsoft.com/default.aspx/kb/258038 http://support.microsoft.com/default.aspx/kb/258038. 0

olegator
	22.06.2006, 21:09	3
	все спасибо. получилось ADODB.Stream помог. спасибо ему :-)