Текущий архив: 2003.06.02;
Скачать: CL | DM;
Вниз
как корректно записать объект OLE в поле БД? Найти похожие ветки
← →
DBDev (2003-05-15 11:44) [0]для TOleContainer объекта?
Для записи (см. код) сначала пишу во временный файл в каталоге TEMP, затем пихаю в базу. Другого способа пока не нашел, подскажите, посоветуйте, господа мэтры!
OleClassName - возвращает имя класса, а не расширение файла.
Последнее нужно для корректной записи поля в БД. Как получить расширение файла для объекта OLE?
if (DocContainer->InsertObjectDialog() == IDOK) {
AnsiString fn = DocContainer->OleClassName;
GExt = НАДО ПОЛУЧИТЬ РАСШИРЕНИЕ ФАЙЛА (для СМ. ниже)
}
Запись в файл:
AnsiString file;
if (osEmpty != DocContainer->State) {
char buff[255];
GetEnvironmentVariable("TEMP", buff, sizeof(buff));
file = AnsiString(buff) + AnsiString("\\temp") + GExt;
DocContainer->OleObject.Exec(Procedure("SaveAs") << file);
Query->Edit();
((TBlobField *)Query->FieldByName("BLOB"))->LoadFromFile(file);
Query->FieldByName("DocumentExt")->AsString = GExt;
Query->Post();
DeleteFile(file);
}
← →
DBDev (2003-05-15 12:01) [1]Или как иным способом "сказать" объекту OLE запишись в поле БД а не в файл???
Страницы: 1 вся ветка
Текущий архив: 2003.06.02;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.013 c
