Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi Access Attachment поле / 11 сообщений из 11, страница 1 из 1
14.05.2019, 11:04
    #39812864
Janex
Janex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
Привет всем.
Есть база Access (.accdb), там в таблице поле типа Attachment, тоесть вроде как
Blob, но в нём фаили, и болеe одного ...
Знает кто то как в дельфе добратся до етих фаилов, типо выташить и записать их в нормальные фаили ?

WBR
Janex
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 11:35
    #39812882
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
Janex,

 
Что-то типа того
TBlobField(ADODataSet1.FieldByName('myAttachment')).SaveToFile(sFileNameWithPath);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 11:39
    #39812885
Janex
Janex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
GerasimenkoJanex,

 
Что-то типа того
TBlobField(ADODataSet1.FieldByName('myAttachment')).SaveToFile(sFileNameWithPath);


Там в етом одном поле myAttachment много чего - название фаила, расширени фаила и сам фаил, и
таких комплектов может бить много ... ето какои то комплексныи поле. Если выгрузить блоб,
то там всё в ондои куче будет и неразобратся ... :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 11:51
    #39812891
Janex
Janex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
GerasimenkoJanex,

 
Что-то типа того
TBlobField(ADODataSet1.FieldByName('myAttachment')).SaveToFile(sFileNameWithPath);


Кстати нет - из блоба вытаскивается только названия фаилов :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 12:06
    #39812905
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
JanexGerasimenkoJanex,

 
Что-то типа того
TBlobField(ADODataSet1.FieldByName('myAttachment')).SaveToFile(sFileNameWithPath);


Кстати нет - из блоба вытаскивается только названия фаилов :(
Что там у тебя и в каком виде - провидцев нет

 
Можешь через поток делать
Код: pascal
1.
(ADODataSet1.FieldByName('myAttachment') as TBlobField).SaveToStream(myTsm);


или
Код: pascal
1.
myTsm:=ADODataSet1.CreateBlobStream(ADODataSet1.FindField('myAttachment'),bmRead);


...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 12:18
    #39812920
Janex
Janex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
Gerasimenko,

Вот что пишут про ето:
In MS Access accdb Microsoft introduced a new data type called attachments. Many types of files can be stored in a column which has the attachment data type. Someone can add bitmap files, jpg files, sound files, word documents, etc. to a column without increasing the size of the database.

Если и выташу ети данные через поток, то там будет росоль из мноигих фаилов, а мне надо и х по одному достать ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 12:56
    #39812954
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
JanexGerasimenko,

Вот что пишут про ето:
In MS Access accdb Microsoft introduced a new data type called attachments. Many types of files can be stored in a column which has the attachment data type. Someone can add bitmap files, jpg files, sound files, word documents, etc. to a column without increasing the size of the database.

Если и выташу ети данные через поток, то там будет росоль из мноигих фаилов, а мне надо и х по одному достать ...

https://stackoverflow.com/questions/26958872/handling-fields-of-attachment-type-in-ms-access-using-ado

Не рекомендуют использовать вне Access. Если, все же, такая необходимость есть, то использовать специальные компоненты, поддерживающие данный тип. Например: ACE DAO Recordset2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 15:15
    #39813062
Janex
Janex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
Кое какои прогресс есть.
задумался, что вот так можно добратся до конкретных фаилов:
Код: plsql
1.
2.
3.
4.
SELECT id,
       Attachments.filedata,
       Attachments.filename
FROM   TASKS


Есть, yра, победа :)

Но вот блин опять гемороя - записивая блоб в фаил всегда получаю фаил на 10-20 баитов
длинее чем он должен бить. Кто то, что то всем фаилам с переди добавляет какую то
чуш размером 10-20 баитов ...
Что ЕТО ?
Пробовал и через UniDAC, и через FiredDAC, всё одно ...
Какои то ODBC/OLE/ПОЛЕ/МОЛЕ провидер не тот или что ?
Как такое может бить ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 15:25
    #39813074
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
Janex,

А данные еще и упаковываться могут https://docs.microsoft.com/en-us/office/vba/api/access.attachment и файлов может быть несколько. Не туда ты копаешь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 15:26
    #39813075
Janex
Janex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
Janex,
Ех ... ладно, забудьте, ето сам Access, наверно, хронит какую то дополнительную инфу про фаил,
а то в етом паразитном хедере упомянуто расширение фаила...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2019, 15:30
    #39813081
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi Access Attachment поле
Попробуй как-то так
Код: pascal
1.
2.
3.
4.
var rs: Recordset;
....
rs := ADODataSet1.FieldByName('myAttachment').AsVariant as Recordset;
........
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi Access Attachment поле / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 517ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2039485]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 160ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 245ms
total:  517ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]