BLOB в файл Exсel для юзера, кот. через Citrix

[mira]

Всем доброго дня!

Из документа формируется Акт в формате Excel, в нем выводится логотип юр.лица, от которого выставлятся Акт. Логотипы хранятся в таблице юрлиц для каждого юрлица холдинга.

Я не знаю другого способа вывести BLOB в Excel, кроме как вывести его из файла, например

IF FileLogo1 <> '' THEN
Excel.AddPicture(FileLogo1, 50, 2, 115, 70);

Предварительно беру логотип из таблицы и создаю файл с BLOB-логотипом.

IF MComp."FilePath Export Logo" <> '' THEN BEGIN
FileLogo := MComp."FilePath Export Logo"+'2.bmp';
MComp.CALCFIELDS(Logo);
IF MComp.Logo.HASVALUE THEN
FileLogo1:= MComp.Logo.EXPORT(FileLogo, FALSE);
END;

Файл создаю по одному и тому же пути. Например, на диске V.
Проблема возникает, если пользователь работает через Citrix и у него не мапится диск V.

Админы хотят, чтобы файл с логотипом создавался в профиле пользователя. Но я не знаю, как из Нава залезть в профиль пользователя и узнать в какой папке создавать файл.

Нав 3.70.А.

Подскажите, пжл, какие варианты решения существуют?

Спасибо.

[Yoil]

может, поможет

CREATETEMPFILE (File)
Use this function to create a temporary file. This enables you to save data of any format to a temporary file. This file has a unique name and will be stored in the temporary files folder.

[mira]

Дуд, спасибо за совет.

Попробую, напишу здесь о результате.

[InTacto]

еще есть ф-ция TEMPORARYPATH, возвращает путь до временной папки текущего пользователя.

[Yoil]

в 3.7 ее, по-моему, нет, к сожалению

[mira]

InTacto, спасибо за совет!

Нету в 3.7 TEMPORARYPATH. Но мы собираемся переходить на версию поновее.

[mira]

Попробовала использовать CREATETEMPFILE , как псевдо-TEMPORARYPATH, которой нет в нашей версии.
Т.е. создаю временный файл, беру NAME его имя, и закрываю временный файл.
А потом экспортирую BLOB.

FileName1.CREATETEMPFILE;
FileLogo := FileName1.NAME;
IF FileLogo <> '' THEN FileName1.CLOSE;

MComp.CALCFIELDS(Logo);
IF MComp.Logo.HASVALUE THEN BEGIN
FileLogo1:= MComp.Logo.EXPORT(FileLogo, FALSE);
END;

Работает.
Пока еще не проверили проблемные пользователи, но думаю эторешит проблему.

Напишу позже.

[ОльгаМ]

Цитата:

Сообщение от mira

Попробовала использовать CREATETEMPFILE , как псевдо-TEMPORARYPATH, которой нет в нашей версии.
Т.е. создаю временный файл, беру NAME его имя, и закрываю временный файл.
А потом экспортирую BLOB.

FileName1.CREATETEMPFILE;
FileLogo := FileName1.NAME;
IF FileLogo <> '' THEN FileName1.CLOSE;

MComp.CALCFIELDS(Logo);
IF MComp.Logo.HASVALUE THEN BEGIN
FileLogo1:= MComp.Logo.EXPORT(FileLogo, FALSE);
END;

Работает.
Пока еще не проверили проблемные пользователи, но думаю эторешит проблему.

Напишу позже.

Для создания имени временного файла Вам не подходит ENVIRON('TMP')?

[mira]

helga7289, спасибо за рекомендацию.

Не видела раньше эту ф-цию: в текущий проект пришла с Нав 5, не помню, чтобы она использовалась.