Новости
Документация
Download
Webboard
Поиск
FAQ/ЧаВо
Обратная связь




MySQL.RU - Webboard



Вернуться
Картинки в MySQL (ZyXEL) 03/06/2002 - 13:23:18
      Re: Картинки в MySQL (Александр) 03/06/2002 - 14:00:50
      Re: Картинки в MySQL (ZyXEL) 03/06/2002 - 16:56:50
      Re: Картинки в MySQL (elenaki) 11/06/2002 - 12:21:17

> Original message text:
> From: ZyXEL - 03/06/2002 - 13:23:18
> Subject:Картинки в MySQL
> -----------------
> Народ, подскажите, плз, как загонять картники (jpeg,gif,...) в базу и как их же потом извлекать из базы. Очень надо. Заранее спасибо.
>


From: Александр - 03/06/2002 - 14:00:50
Subject:Картинки в MySQL
-----------------
На VFP 5,6 я это делаю так :


*Программа записи в базу MySQL текстовой(или любой двоичной ) информации
*из выбранного файла в поле типа TEXT
*автор А. Кабошко
gcTable = GETFILE('', '', '',0) && выбирается файл с картинкой
DO CASE
CASE 'Untitled' $ gcTable
CREATE (gcTable)
CASE EMPTY(gcTable)
RETURN
OTHERWISE
ENDCASE
Ras=RIGHT(gcTable,3)
LOCAL gnFileHandle,nSize,cString
gnFileHandle = FOPEN(gcTable,10)

nSize = FSEEK(gnFileHandle, 0, 2)

= FSEEK(gnFileHandle, 0, 0)

mser='SQLForum1'
mobject='test'

hSpros=SQLCONNECT(mser,mobject)
HDEL=SQLEXEC(hSpros,"DROP TABLE image_doc")
HCREATE=SQLEXEC(hSpros,"CREATE TABLE image_doc ;
(row_id INT AUTO_INCREMENT PRIMARY KEY, ;
image_memo text, ;
typedoc char(3) ) type =innoDB") &&это у меня не идет


DO while !FEOF(gnFileHandle)
* cString = FREAD(gnFileHandle, 65535)
cString = FREAD(gnFileHandle, 4096) && размер > 4096 не * идет
HINSERT=SQLEXEC(hSpros, "INSERT INTO image_doc (image_memo,typedoc) ;
values (?cString,?ras)")
ENDDO
= FCLOSE(gnFileHandle)



*Возврат из базы MySQL картинки в MEMO поле таблицы FOX-а Mprimer
HZAPROS=SQLEXEC(hSpros,'SELECT * FROM image_doc ','Mprimer')
i=1
*Сборка картинки в документ primer
ras=typedoc
*в typedoc хранится тип исходного документа (например DOC,XLS и т.д.)
Filename='c:\obmen\primer.'+ras
browse
SCAN
IF i=1
COPY MEMO image_memo TO &Filename
i=10
ELSE
COPY MEMO image_memo TO &Filename ADDITIVE
ENDIF
ENDSCAN
= SQLDISCONNECT(hSpros)
RETURN






[Это сообщение - спам!]

Последние сообщения из форума

Уважаемые посетители форума MySQL.RU!
Убедительная просьба, прежде чем задавать свой вопрос в этом форуме, обратите внимание на разделы:
- ответы на наиболее часто задаваемые вопросы - FAQ
- раздел документация
- раздел поиск по сообщениям форума и документации
Также, старайтесь наиболее подробно указывать свою ситуацию (версию операционной системы, версию MySQL, версию программного обеспечения, по которому возникает вопрос, текст возникающих ошибок, и др.)
Помните, чем конкретнее Вы опишете ситуацию, тем больше шансов получить реальную помощь.
 Имя:
 E-mail:
 Тема:
 Текст:
Код подтверждения отправки: Code
3177



РЕКЛАМА НА САЙТЕ
  Создание сайтов | |