Re: ADODB.Stream size

From: Val Mazur (group51a_at_hotmail.com)
Date: 11/24/04 

Date: Wed, 24 Nov 2004 18:45:38 -0500

Hi Patrik,

Did you check if both files contain same information inside? 

-- 
Val Mazur
Microsoft MVP
"Patrik" <Patrik@discussions.microsoft.com> wrote in message 
news:B3435A26-0AF4-4661-9355-D7A4A57E1D8A@microsoft.com...
>I have two code snippets performing the same task - saving a byte array to 
>a
> file.
> The file saved wit the Open and Put is about 3 times bigger than the file
> saved with adodb.stream.
>
> Why?
> Can i get Open and Put produce a file as small as with the stream?
> Is there any limitation to adodb.stream?
>
> Set valueNode = nodeLeverantor.selectSingleNode("b:Base64")
> valueNode.dataType = "bin.base64"
> btArr = valueNode.nodeTypedValue
> Open "c:\pic1.tif" For Binary As #1
> Put #1, 1, btArr
> Close #1
>
> With CreateObject("adodb.stream")
>  .Open
>  .Type = 1
>  .Write btArr
>  .SaveToFile "c:\pic2.tif"
> End With