ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение изображения из базы данных
25 сообщений из 31, страница 1 из 2
  1  все
Чтение изображения из базы данных
    #38281165
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim rst9 As Object
            Set rst9 = CreateObject("ADODB.Recordset")
            rst9.Open "Select * from [Positions] where [Код товара] = 432", conn
            Dim mstream2 As Object
            Set mstream2 = CreateObject("ADODB.Stream")
            mstream2.Type = 1 'adTypeBinary
            mstream2.Open
            mstream2.write rst9.fields("Изображение").Value
            mstream2.SaveToFile App.Path & "\final.jpg", 1
            
            rst9.Close



Как сохранить это изображение в файл понятно, а вот как сделать чтобы оно сразу загружалось в Image1.picture без записи на жесткий диск?
...
Рейтинг: 0 / 0
31.05.2013, 10:19
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38281219
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
Slash232,

ADODB.Stream создаст только дополнительные сложности. Сохраните содержимое длинного двоичного поля в динамический байтовый массив
Код: vbnet
1.
2.
3.
Dim bData() As Byte
...
bData = rst9.fields("Изображение").Value

, далее 3731093 .
...
Рейтинг: 0 / 0
31.05.2013, 11:01
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38281261
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Я пользуюсь вот этим для отображения картинки из двоичного массива:

Код: vbnet
1.
Set Picture1.Picture=LoadPictureFromBytes(bData)



Класс приложен
...
Рейтинг: 0 / 0
31.05.2013, 11:21
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284147
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Shocker.Pro, у меня функция чтения изображения из базы данных находиться в модуле класса, где нельзя объявить
Код: vbnet
1.
Dim bData() As Byte

. Как быть в таком случае?
...
Рейтинг: 0 / 0
03.06.2013, 18:02
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284153
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
А если объявить
Код: vbnet
1.
Dim bData As Byte

то работать естественно не будет
...
Рейтинг: 0 / 0
03.06.2013, 18:05
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284278
13-й квартал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
13-й квартал
Гость
Slash232... в модуле класса, где нельзя объявить
Код: vbnet
1.
Dim bData() As Byte

. Как быть в таком случае?Где-где нельзя объявить динамический массив?
И зачем это, кстати, делать на уровне модуля?
...
Рейтинг: 0 / 0
03.06.2013, 19:22
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284499
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Slash232где нельзя объявить13-й кварталГде-где нельзя объявить?присоединяюсь
...
Рейтинг: 0 / 0
04.06.2013, 00:20
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284691
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
В модуле класса
...
Рейтинг: 0 / 0
04.06.2013, 09:56
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284707
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Slash232В модуле классаЗнаю класс, знаю модуль. Что такое модуль класса не знаю.
...
Рейтинг: 0 / 0
04.06.2013, 10:08
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284708
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
А объявить массив можно везде.
...
Рейтинг: 0 / 0
04.06.2013, 10:09
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284709
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Antonariy, в классе
...
Рейтинг: 0 / 0
04.06.2013, 10:10
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284711
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Можно, можно.
...
Рейтинг: 0 / 0
04.06.2013, 10:10
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284720
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Тут , мой пункт 3
...
Рейтинг: 0 / 0
04.06.2013, 10:18
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284730
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Чё делать все равно не понял
...
Рейтинг: 0 / 0
04.06.2013, 10:23
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284751
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Код: vbnet
1.
Image1.Picture = LoadPicture.LoadPictureFromBytes(Products.Item(i).Photo)

- ругается Type mismatch

В классе
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Public Property Get Photo() As Variant

End Property

Public Property Let Photo(ByVal vNewValue As Variant)

End Property



В другом классе
Код: vbnet
1.
2.
3.
4.
5.
If IsNull(rst1.fields("Изображение")) = False Then
        Product.Photo = rst1.fields("Изображение")
    Else
        Product.Photo = Null
    End If



Добавлен модуль от Shocker.Pro переименованный в LoadPicture
...
Рейтинг: 0 / 0
04.06.2013, 10:31
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284800
13-й квартал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
13-й квартал
Гость
Slash232 Тут , мой пункт 3Dim в object module равносилен Private, а не Public.

Не хотите следовать советам, зачем их спрашиваете?

Что, по замыслу, должно делать свойство Photo? Почему оно имеет тип Variant, а не IPictureDisp (StdPicture, IPicture)?
...
Рейтинг: 0 / 0
04.06.2013, 11:00
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284805
13-й квартал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
13-й квартал
Гость
Slash232
Код: vbnet
1.
Image1.Picture = LoadPicture.LoadPictureFromBytes(Products.Item(i).Photo)

Опять же, почему использован оператор Let, а не Set?
...
Рейтинг: 0 / 0
04.06.2013, 11:01
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284826
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
13-й квартал,

хорошо
Код: vbnet
1.
Public Photo As IPictureDisp



как при этом из базы данных получить в Photo изображение?
Код: vbnet
1.
Product.Photo = rst1.fields("Изображение")

не будет работать,т.к. разные типы данных?!
...
Рейтинг: 0 / 0
04.06.2013, 11:12
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284845
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
мляяяяя

Если ты будешь делать то, что тебе говорят, а не то, что ты сам придумал, все будет работать

Код: vbnet
1.
2.
3.
Dim bData() As Byte
bData = rst9.fields("Изображение").Value
Set Picture1.Picture=LoadPictureFromBytes(bData)



Вот сделай это, убедись, что работает, а потому начинай адаптировать к своей задаче
...
Рейтинг: 0 / 0
04.06.2013, 11:22
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284870
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Shocker.Pro,

Код: vbnet
1.
2.
3.
4.
5.
Dim bData() As Byte
    If IsNull(rst1.fields("Изображение")) = False Then
        bData = rst1.fields("Изображение").Value
        Product.Photo = LoadPicture.LoadPictureFromBytes(bData)
    End If



При том что
Код: vbnet
1.
Public Photo As IPictureDisp

не работает! Ругается на
Код: vbnet
1.
Product.Photo = LoadPicture.LoadPictureFromBytes(bData)

В чем причина?
...
Рейтинг: 0 / 0
04.06.2013, 11:31
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284883
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
где Set?
...
Рейтинг: 0 / 0
04.06.2013, 11:36
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284887
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Shocker.Pro,

Код: vbnet
1.
2.
3.
Public Property Set Photo(ByVal vNewValue As IPictureDisp)

End Property

Так? Ругается
...
Рейтинг: 0 / 0
04.06.2013, 11:39
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284893
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Slash232Shocker.Pro,

Код: vbnet
1.
2.
3.
Public Property Set Photo(ByVal vNewValue As IPictureDisp)

End Property

Так? Ругается

Код: vbnet
1.
SET Product.Photo = LoadPicture.LoadPictureFromBytes(bData)
...
Рейтинг: 0 / 0
04.06.2013, 11:41
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284907
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Konst_One,

УРЯЯЯЯЯЯЯ СПАСИБО ВСЕМ ЗА ПОМОЩЬ!
...
Рейтинг: 0 / 0
04.06.2013, 11:45
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38284914
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
off
 
я уж было начал думать, что мы нового Белова вырастили =)
...
Рейтинг: 0 / 0
04.06.2013, 11:48
| Ответить | Цитировать | Написать  
25 сообщений из 31, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение изображения из базы данных
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38281165&tid=2156924]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 74ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 16ms
total:  202ms
созд. / загр.: 202ms
x
x
Закрыть


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