(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
SmartBear Collaborator - Concurrent User License (Includes 1 Year Maintenance)
ESET NOD32 Антивирус - продление лицензии на 1 год на 3ПК
ARCHICAD 21, локальная лицензия
SAP® Crystal Reports 2016 WIN INTL NUL
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
СУБД Oracle "с нуля"
Delphi - проблемы и решения
Corel DRAW - от идеи до реализации
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Работа в интернете.. (4)
Может тут кто имеет опыт работы в сети? И подскажет мне что нить?
 
Кто, что знает за карту рассрочки Совесть? (2)
Иногда требуется купить что-то очень нужное, но выделить средства нет возможности. В этом случае...
 
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)
 
 
 



    
rambler's top100 Rambler's Top100