(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 

Конференция "Gupta/Centura (Gupta Technologies)"

Обсуждение вопросов, связанных с компанией Unify/Gupta (Gupta Technologies), ее продуктами Team Developer, SQLBase и др.

 
 
Добавить сообщение »

Тема: Cохранение и чтение картинок в базе данных postgres

Автор:  nikolay Дата: 21.05.2003 09:58
Nadya пишет 19.05:
>Не подскажете как записать в БД и прочитать из нее
>BMP файл, используя Centura?
>
Function: flInsertFoto
Description: Вставка фотографий в базу данных
Returns
Parameters
String: sC07
String: sNameFile
Static Variables
Local variables
String: strDescription
String: sSQL
Long String: sLine
Number: nLenRecord
Actions
Call SalFileSeek( hFileFoto, 0, FILE_SeekBegin )
Call SalFileRead( hFileFoto, sLine, nLenRecord )
Call SalPicClear( picInsert_Foto )
Call SalPicSetFile( picInsert_Foto, sNameFile )
Call SalPicGetDescription( picInsert_Foto, strDescription, 254 )
If strDescription != 'Centura:JPEG'
If SalMessageBox( 'Формат файла не JPEG - в базу данных фотография введена не будет.Продолжить ввод? ',
'О Ш И Б К А', MB_OkCancel) = IDOK
Set bCancel = TRUE
Return TRUE
Else
Return FALSE
Call SalPicGetString( picInsert_Foto, PIC_FormatObject, sLine )
Call SalUpdateWindow( hWndForm )
Set bOK = SalStrCompress( sLine )
If not bOK
If SalMessageBox( 'Не прошло сжатие информации перед записью в базу данных.Продолжить ввод? ',
'О Ш И Б К А', MB_OkCancel) = IDOK
Set bCancel = TRUE
Return TRUE
Else
Return FALSE
Set bStop =FALSE
If cbStop
If SalMessageBox( 'Ввести фотографию в базу данных? ',
'СООБЩЕНИЕ', MB_OkCancel) = IDCANCEL
Set bCancel = TRUE
Return TRUE
If not SqlExecute( hSqlFotoInsert )
Call SalWaitCursor( FALSE )
Call fgError_Sql( hSqlFotoInsert )
Call SalWaitCursor( TRUE )
If SalMessageBox( 'Не прошла вставка в базу данных.Продолжить ввод? ',
'О Ш И Б К А', MB_OkCancel) = IDOK
Set bCancel = TRUE
Return TRUE
Else
Return FALSE
Else
Call SqlCommit( hSqlFotoInsert )
Set sSQL = 'insert into sysadm.'//strFoto//strPref_Table//' (c07,priv_foto)
values (:sC07,:sLine) '
Call SqlPrepare( hSqlFotoInsert, sSQL )
Return TRUE
Ответить на сообщение »
 
Автор:  Nadya Дата: 19.05.2003 09:56
Не подскажете как записать в БД и прочитать из нее
BMP файл, используя Centura?
Ответить на сообщение »
 

Добавить сообщение »

 Распечатать »
 Правила публикации »
   
 Рекомендовать »  
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Q 1.0 for Windows Single User
ESET NOD32 Cyber Security Pro, лицензия на 1 год
ABBYY FineReader Pro для Mac, электронный ключ
Microsoft Windows Professional 10, Электронный ключ
Microsoft Office 365 Бизнес премиум. Подписка на 1 рабочее место на 1 год
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Программирование в AutoCAD
СУБД Oracle "с нуля"
Мир OLAP и Business Intelligence: новости, статьи, обзоры
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
ODBC: dBase CREATE TABLE... (9)
Есть проблема Из программы на CTD 2.0 PTF3 подключаемся к DBF-файлам Set SqlDatabase='Файлы...
 
TD 6.2 SP4 Ошибка при установке (5)
Добрый день! Кто-нибудь устанавливал TD 6.2 SP4 на Win7? В конце процесса установке выдаётся...
 
PMC (4)
Подскажите как формируется Product Media Code или ключик к SqlWindows 510 ( CTD510)
 
Работа клиента Сеntura с клиентами Оракл 10, тонким клиентом, net client (3)
Есть клиент, написанный на Centura, исходников нет Работает только с клиентами Оракл 8 и 9 Ни...
 
подключение к Centura SQLBase server 6.1.2 (3)
есть приложение (клиент-банк) с вышеуказанной базой. В приложении для подключения к базе...
 
 
 



    
rambler's top100 Rambler's Top100