Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Stream - загрузка данных / 10 сообщений из 10, страница 1 из 1
09.11.2012, 17:29
    #38032201
HOME_X
HOME_X
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
Доброго дня господа !

Можно ли избежать использования массива при загрузке Stream
Версия VB2008

Код: vbnet
1.
2.
3.
4.
5.
            Dim S As System.IO.Stream = CreateAndRegisterStream("parameters", "jpg", System.Text.Encoding.UTF8, "image/jpg", True, Microsoft.ReportingServices.Interfaces.StreamOper.CreateAndRegister)
            Dim F As System.IO.FileStream = System.IO.File.Open("c:\logo.bmp", System.IO.FileMode.Open)
            Dim I() As Byte = New Byte((F.Length) - 1) {}
            F.Read(I, 0, I.Length)
            S.Write(I, 0, I.Length)



Заранее благодарен !

Модератор: Тема перенесена из форума "Visual Basic".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2012, 18:10
    #38032291
bazile
bazile
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
HOME_X,

Stream.CopyTo()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2012, 13:28
    #38034531
HOME_X
HOME_X
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
bazile,

Доброго дня
Первое применение этого метода в библиотеках Framework 4
Вроде эта DLL подключена автоматически
Но компимяторе ее не видит
Где туплю пожскажите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2012, 15:57
    #38034875
bazile
bazile
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
HOME_X, версия .NET для проекта переключается в его свойствах.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2012, 16:47
    #38034979
HOME_X
HOME_X
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
bazile,

а где конкретно ?
Уточните пожалуйста

Проект --> Свойства --> Компилировать --> Доп.парамтеры компиляции -->
Задана испол. среда = .Net Framework 2.0
.Net Framework 3.0
.Net Framework 3.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2012, 17:05
    #38035023
bazile
bazile
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
HOME_X,

У тебя VS 2008 которая не поддерживает .NET 4. Если есть возможность, то переходи на VS 2010 или VS 2012. Если возможности нет, то используй такую функцию (это немного измененный код функции CopyTo):
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Shared Sub СopyStreamTo(ByVal sourceStream As Stream, ByVal destinationStream As Stream)
    СopyStreamTo(sourceStream, destinationStream, 81920)
End Sub

Private Shared Sub СopyStreamTo(ByVal sourceStream As Stream, ByVal destinationStream As Stream, ByVal bufferSize As Integer)
    Dim num As Integer
    Dim buffer As Byte() = New Byte(bufferSize  - 1) {}
    Do While (num = sourceStream.Read(buffer, 0, buffer.Length) <> 0)
        destinationStream.Write(buffer, 0, num)
    Loop
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2012, 17:35
    #38035071
HOME_X
HOME_X
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
bazile,

Принято !
Спасибо за помощь ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2012, 14:35
    #38038058
HOME_X
HOME_X
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
bazile,

Код: vbnet
1.
Do While (num = sourceStream.Read(buffer, 0, buffer.Length) <> 0)



Любопытно - это такое присвоение в версии VB2010 и выше ?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
        Public Sub СopyStream(ByVal Source As System.IO.Stream, ByVal Destination As System.IO.Stream, Optional ByVal Size As Integer = 32768)
            Dim I As Integer
            Dim Buffer As Byte() = New Byte(Size - 1) {}
            Do
                I = Source.Read(Buffer, 0, Buffer.Length)
                Destination.Write(Buffer, 0, I)
            Loop Until (I = 0)
        End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2012, 15:10
    #38038153
bazile
bazile
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
HOME_XЛюбопытно - это такое присвоение в версии VB2010 и выше ?
Да присвоение. В какой версии VB это появилось без понятия.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2012, 16:07
    #38038288
HOME_X
HOME_X
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stream - загрузка данных
bazile,

Понял - спасибо ...
В VB2008 - нет такого ... рассматриваеться как РАВЕНСТВО
(или может чего-то подстроить надо )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Stream - загрузка данных / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 144ms
Закрыть
start [/forum/topic.php?fid=20&tablet=1&tid=1405650]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 12ms
total:  144ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]