Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
BLOB-ы!!! Как с ними бороться????
|
|||
|---|---|---|---|
|
#18+
Люди, помогите!!! Есть база данных с blob-полем. Вобщем в этом поле лежат графические файлы XaraX. Когда вся база была в Access 2000, то было все просто - данные поля определялись как OLE-объекты и при вхождении в них приложение (XaraX) сразу открывала вложенную в поле схему. В Delphi по этому поводу какие-то заморочки. Здесь нет поля объекта OLE, который можно было бы присоединить к соответствующему полю таблицы. Как в таком случае "вытащить" документ из BLOB-поля записи, отредактировать его и снова затолкать в запись? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.10.2002, 21:00 |
|
||
|
BLOB-ы!!! Как с ними бороться????
|
|||
|---|---|---|---|
|
#18+
Берешь TOleContainer. у него есть методы LoadFromStream и SaveToStream Стрим можно получить так: var bs: TBlobStream; bs := TBlobStream.Create(Table.FieldByName() as TBlobField, xxx) xxx - флаг - режим открытия(только-чтение и т.д.). не помню как они пишутся. Стрим надо создавать *после* позиционирования на строку и удалять перед переходом на новую. Ессно, метод SaveToStream вызывать в режиме State in [dsEdit, dsInsert] ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.10.2002, 23:49 |
|
||
|
BLOB-ы!!! Как с ними бороться????
|
|||
|---|---|---|---|
|
#18+
Вот то, что я сделал по Вашему совету: procedure TForm1.Button1Click(Sender: TObject); var Stream1 : TBlobStream; begin ADOTable1.Active:=true; ADOTable1.First; Stream1 := TBlobStream.Create(ADOTable1.FieldByName('DocTU') as TBlobField, bmRead); end; При выполнении данной процедуры вываливается сообщение об ошибке следующего содержания: Invalid class typecast В чем тут прикол? Вроде и по Help для Delphi все то же самое я нашел, но вот не работает...:-( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.10.2002, 20:14 |
|
||
|
|

start [/forum/topic.php?fid=58&fpage=2080&tid=2119761]: |
0ms |
get settings: |
9ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
31ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
| others: | 270ms |
| total: | 392ms |

| 0 / 0 |
