как корректно записать объект OLE в поле БД? [MSSQL]
DBDev © (2003-05-15 11:44:00)
для 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:00) [1]
Или как иным способом "сказать" объекту OLE запишись в поле БД
а не в файл???
Наверх 
ЧАТ |
Орешник |
|
