Прогресс передачи

Форум посвящён работе с базами данных в .NET.

Модератор: Ramzes

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Прогресс передачи

Сообщение FireFenix » 11.02.2010 (Чт) 22:37

Есть MSSQL, где лежит файлег в ячейке с типом image

Возможно ли увидеть прогресс скачки файла?
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Re: Прогресс передачи

Сообщение Денис » 12.02.2010 (Пт) 18:43

FireFenix писал(а):Есть MSSQL, где лежит файлег в ячейке с типом image

Возможно ли увидеть прогресс скачки файла?


Покажи код, которым скачиваешь.
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: Прогресс передачи

Сообщение FireFenix » 15.02.2010 (Пн) 21:37

Я думал возможность просмотра состояния передачи не зависит от кода =)

Использую обычный код
К примеру получаю картинку, которая тоже храниться в столбце с форматом image:
Код: Выделить всё
        Dim Image As Image
        Dim ByteArray() As Byte = Nothing
        Dim MemoryStream As MemoryStream = Nothing

        Dim Command As New SqlCommand("", Connection)

        Select Case Type
            Case Types.MajorObject.Class
                Command.CommandText = "SELECT * FROM class WHERE id='" & Id.ToString & "';"

            Case Types.MajorObject.Subclass
                Command.CommandText = "SELECT * FROM subclass WHERE id='" & Id.ToString & "';"

            Case Types.MajorObject.Prototype
                Command.CommandText = "SELECT * FROM prototype WHERE id='" & Id.ToString & "';"
        End Select

        Try
            Using Query As SqlDataReader = Command.ExecuteReader()
                Query.Read()

                '...
                'Tables.Class.Image - Константа, которая хранит номер столбца
                '...

                If Not Query.IsDBNull(Tables.Class.Image) Then
                    ByteArray = DirectCast(Query.GetValue(Tables.Class.Image), Byte())

                    MemoryStream = New MemoryStream(ByteArray)

                    Image = Image.FromStream(MemoryStream)
                End If
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Re: Прогресс передачи

Сообщение Денис » 17.02.2010 (Ср) 9:30

Окей, какая из строк кода выполняется дооооолго?
FireFenix писал(а):
Код: Выделить всё
                    ByteArray = DirectCast(Query.GetValue(Tables.Class.Image), Byte())

                    MemoryStream = New MemoryStream(ByteArray)

                    Image = Image.FromStream(MemoryStream)

В этом месте делаем задачу бэкграундворкеру (а у него, кажется есть свойство, отражающее прогресс. связать это свойство с прогресс-баром и вуаля!)
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.


Вернуться в ADO.NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 17

    TopList