ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Stream - загрузка данных
10 сообщений из 10, страница 1 из 1
Stream - загрузка данных
    #38032201
HOME_X
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HOME_X
Участник
Доброго дня господа !

Можно ли избежать использования массива при загрузке 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, 17:29
| Ответить | Цитировать | Написать  
Stream - загрузка данных
    #38032291
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bazile
Участник
HOME_X,

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

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

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

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

Принято !
Спасибо за помощь ...
...
Рейтинг: 0 / 0
12.11.2012, 17:35
| Ответить | Цитировать | Написать  
Stream - загрузка данных
    #38038058
HOME_X
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HOME_X
Участник
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, 14:35
| Ответить | Цитировать | Написать  
Stream - загрузка данных
    #38038153
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bazile
Участник
HOME_XЛюбопытно - это такое присвоение в версии VB2010 и выше ?
Да присвоение. В какой версии VB это появилось без понятия.
...
Рейтинг: 0 / 0
14.11.2012, 15:10
| Ответить | Цитировать | Написать  
Stream - загрузка данных
    #38038288
HOME_X
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HOME_X
Участник
bazile,

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


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