- интересно дефки пляшут !!! не слышал про такое...]]>Т.е., безнадёга?
Использовать кусок кода на VBScript посредством формата *.wsf, або объекта ScriptControl.
]]>a=stream.Read(1024); // недопустимое число аргументов
...
stream.Read(c,1024);
WScript.echo(typeof(c)); // undefined
...
a=stream.Read(c,1024);
WScript.echo(a); // 1024
WScript.echo(typeof(a)); // number
WScript.echo(typeof(c)); // undefinedИли это из-за типа данных variant?
]]>Очень удобен для "нарезки двоичных данных".
Dim Buffer,NumberOfBytes
Buffer = "ABCDEFGH"
Set stream = CreateObject("SAPI.spMemoryStream")
stream.SetData Buffer
NumberOfBytes = 10
Stream.Read Buffer,NumberOfBytes
msgbox TypeName(Buffer)Описание методов класса
http://msdn.microsoft.com/en-us/library … S.85).aspx
- интересно дефки пляшут !!! не слышал про такое...]]>Более того, он не только читает, но и пишет двоичные файлы. О чём ещё мечтать )
Const SSFMOpenForRead = 0
Dim Stream
Set Stream = CreateObject("SAPI.spFileStream")
Stream.Open "C:\filename",SSFMOpenForRead
Stream.Read Buffer,1024
msgbox Buffer