Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение изображения из базы данных / 25 сообщений из 31, страница 1 из 2
  1  все
31.05.2013, 10:19
    #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, 11:01
    #38281219
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
Slash232,

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

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

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



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

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

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

. Как быть в таком случае?Где-где нельзя объявить динамический массив?
И зачем это, кстати, делать на уровне модуля?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 00:20
    #38284499
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
Slash232где нельзя объявить13-й кварталГде-где нельзя объявить?присоединяюсь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 09:56
    #38284691
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
В модуле класса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 10:08
    #38284707
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
Slash232В модуле классаЗнаю класс, знаю модуль. Что такое модуль класса не знаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 10:09
    #38284708
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
А объявить массив можно везде.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 10:10
    #38284709
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
Antonariy, в классе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 10:10
    #38284711
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
Можно, можно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 10:18
    #38284720
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
Тут , мой пункт 3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 10:23
    #38284730
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
Чё делать все равно не понял
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 10:31
    #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, 11:00
    #38284800
13-й квартал
13-й квартал
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
Slash232 Тут , мой пункт 3Dim в object module равносилен Private, а не Public.

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

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

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

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



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

не будет работать,т.к. разные типы данных?!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 11:22
    #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:31
    #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:36
    #38284883
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
где Set?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2013, 11:39
    #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:41
    #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:45
    #38284907
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение изображения из базы данных
Konst_One,

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


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