ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение изображения из базы данных
31 сообщений из 31, показаны все 2 страниц
  все  
Чтение изображения из базы данных
    #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
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38286882
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Shocker.Pro,
еще такой вопросик а какая функция в твоем приложенном модуле делаем наоборот, т.к. из изображения делает байтовый массив чтобы в базу данных загрузить?
...
Рейтинг: 0 / 0
05.06.2013, 15:12
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38286884
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Slash232Shocker.Pro,
еще такой вопросик а какая функция в твоем приложенном модуле делаем наоборот, т.е. из изображения делает байтовый массив чтобы в базу данных загрузить?
...
Рейтинг: 0 / 0
05.06.2013, 15:13
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38286890
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
загружаю в базу я из файла:
Код: vbnet
1.
2.
3.
4.
5.
X = FreeFile
Open FullFileName For Binary Access Read Shared As #X
ReDim bFil(0 To LOF(X) - 1) As Byte
Get #X, , bFil
Close #X

что касается превращения растра из Picture в файл - что-то пробегало тут на форуме - поищи.
...
Рейтинг: 0 / 0
05.06.2013, 15:16
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38286952
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Кстати, а чем не нравится функция SavePictureToBytes в том же модуле? Я сам не пробовал, но, на первый взгляд, это оно.
...
Рейтинг: 0 / 0
05.06.2013, 15:50
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38287428
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
AntonariySlash232В модуле классаЗнаю класс, знаю модуль. Что такое модуль класса не знаю.
Расскажи что такое "класс". Может и мне понадобится.
А то у меня только "модуль класса" имеется
...
Рейтинг: 0 / 0
05.06.2013, 20:49
| Ответить | Цитировать | Написать  
Чтение изображения из базы данных
    #38287894
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
alex77755Antonariyпропущено...
Знаю класс, знаю модуль. Что такое модуль класса не знаю.
Расскажи что такое "класс". Может и мне понадобится.
А то у меня только "модуль класса" имеетсявыкинь русифицированный вб на помойку, вот что я скажу

впрочем, в английском, оказывается, тоже class module
не обращал внимания
...
Рейтинг: 0 / 0
06.06.2013, 10:38
| Ответить | Цитировать | Написать  
31 сообщений из 31, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение изображения из базы данных
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2156924]:
 0ms
get settings:
 13ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 92ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 268ms
total:  471ms
созд. / загр.: 471ms
x
x
Закрыть


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