|
MySQL.RU - Webboard
 Вернуться
 Залить изображение из VB 6.0 (Bogdan) 12/10/2002 - 14:14:58
 Re: Залить изображение из VB 6.0 (Link) 17/10/2002 - 22:08:02
Re: Залить изображение из VB 6.0 (Bogdan) 18/10/2002 - 15:17:08
Re: Залить изображение из VB 6.0 (Nad) 12/09/2003 - 05:49:20
Re: Залить изображение из VB 6.0 (Арам) 04/04/2004 - 13:33:12
Re: Заполнить поле blob Mysql из VB 6.0 (Рузаков Борис) 06/05/2008 - 15:14:42
> Original message text:
> From: Bogdan - 12/10/2002 - 14:14:58
> Subject:Залить изображение из VB 6.0
> -----------------
> Вот столкнулся наконец-то с проблемой:
> Как залить изображение в BLOB из Visual Basic 6.0?
> Я могу из VB изображение перенести в ОЗУ. Ну а дальше-то как?
> Поможите, люди добрые, может кто и сталкивался.
>
From: Bogdan - 18/10/2002 - 15:17:08
Subject:Залить изображение из VB 6.0
-----------------
Огромное Вам спасибо, Link, за столь исчерпывающий ответ :/
Я еще не настолько пропил свои мозги, чтобы самому не придти к такому очевидно очень сложному и непростому выводу.
Я спрашивал КАК это сделать.
Но, как говорится: всем спасибо, все свободны Ж)
Кому интересно, объясняю свое решение:
1) Считал изображение из файла в ОЗУ:
Dim bData() As Byte 'создаем массив типа Byte
nFile = FreeFile 'ближайший свободный номер для откр.файла
Open PhotoName For Binary As #nFile 'открываем файл изображения
FileLeng = LOF(nFile) ' определяем его длину
ReDim bData(1 To FileLeng) 'динамически меняем массив до размера файла
Get #nFile, , bData() ' считываем файл в массив
Close #nFile ' закрываем файл
2) Готовим строку, содержащую значение байтов файла в ШЕСТНАДЦАТИРИЧНОМ виде. Ведь известно, что MySQL понимает также и шестнадцатиричные значения, а именно, по запросу INSERT INTO tab1 SET str1=0x616263 в поле str1 занесется 'abc'.
Итак:
bString = "0x"
For i = 1 To FileLeng
bString = bString & Format(Hex(bData(i)), "00")
Next i
3) Ну а теперь отправляем эту строку в MySQL:
Set Qexec = conPub.CreateQueryDef("")
With Qexec
.Prepare = dbQUnprepare
.SQL = "INSERT INTO tbl1 SET blob1=" & bString & ";"
.Execute
End With
Все. Переслал.
[Это сообщение - спам!]
Последние сообщения из форума
Уважаемые посетители форума MySQL.RU!
Убедительная просьба, прежде чем задавать свой вопрос в этом форуме, обратите внимание на разделы:
- ответы на наиболее часто задаваемые вопросы - FAQ
- раздел документация
- раздел поиск по сообщениям форума и документации
Также, старайтесь наиболее подробно указывать свою ситуацию (версию операционной системы, версию MySQL,
версию программного обеспечения, по которому возникает вопрос, текст возникающих ошибок, и др.)
Помните, чем конкретнее Вы опишете ситуацию, тем больше шансов получить реальную помощь.
33516
|
|
