"Ошибка" при сохранении файла через OLE (SaveAs)

@demon_7 · Регистрация: 12.05.2013

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток.
Столкнулся с проблемой у пользователей, на шаге сохранения файла появляется окно "Ошибка" с текстом: "Ошибка".
Что самое странное окно появляется не всегда, а периодически.
Может кто подскажет, где моя ошибка, так как у себя воспроизвести не удалось.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
NameFile=Edit6->Text+"\\Регламент "+ComboBox1->Text+" "+Edit1->Text+".docx"; //Edit6 строка в которой прописан путь к сохранению
AnsiString full_name, short_name;
full_name=IUS+" "+Edit1->Text; //IUS глобальная переменная с текстом
short_name=ComboBox1->Text+" "+Edit2->Text;
 
 
if(!fStart)
 {
  try
  {
   vVarApp=CreateOleObject("Word.Application");
   fStart=true;
  }
  catch(...)
  {
   MessageBox(0, "Ошибка при открытии Word",
                 "Ошибка Word", MB_OK);
  return;
  }
 }
 
 
 //vVarApp.OlePropertySet("Visible",true);
 vVarDoc=vVarApp.OlePropertyGet("Documents");
 vVarDoc.OleProcedure("Open", doc.c_str());//doc переменная где хранится путь к шаблону, который необходимо открыть
 vVarDoc=vVarDoc.OleFunction("Item",1);
 vVarDoc.OleProcedure("Activate");
 
vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", /*FindText=*/ "полное имя", /*MatchCase=*/false, /*MatchWholeWord=*/ false, /*MatchWildcards=*/false, /*MatchSoundsLike=*/false, /*MatchAllWordForms=*/false, /*Forward=*/true, /*Wrap=*/1, /*Format=*/false, /*ReplaceWith=*/full_name.c_str(), /*Replace=*/2);
vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", /*FindText=*/ "краткое имя", /*MatchCase=*/false, /*MatchWholeWord=*/ false, /*MatchWildcards=*/false, /*MatchSoundsLike=*/false, /*MatchAllWordForms=*/false, /*Forward=*/true, /*Wrap=*/1, /*Format=*/false, /*ReplaceWith=*/short_name.c_str(), /*Replace=*/2);
vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", /*FindText=*/ "режимм", /*MatchCase=*/false, /*MatchWholeWord=*/ false, /*MatchWildcards=*/false, /*MatchSoundsLike=*/false, /*MatchAllWordForms=*/false, /*Forward=*/true, /*Wrap=*/1, /*Format=*/false, /*ReplaceWith=*/ComboBox2->Text.c_str(), /*Replace=*/2);
vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", /*FindText=*/ "взаимодействие", /*MatchCase=*/false, /*MatchWholeWord=*/ false, /*MatchWildcards=*/false, /*MatchSoundsLike=*/false, /*MatchAllWordForms=*/false, /*Forward=*/true, /*Wrap=*/1, /*Format=*/false, /*ReplaceWith=*/Edit3->Text.c_str(), /*Replace=*/2);
vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", /*FindText=*/ "инструкция", /*MatchCase=*/false, /*MatchWholeWord=*/ false, /*MatchWildcards=*/false, /*MatchSoundsLike=*/false, /*MatchAllWordForms=*/false, /*Forward=*/true, /*Wrap=*/1, /*Format=*/false, /*ReplaceWith=*/Edit4->Text.c_str(), /*Replace=*/2);
vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", /*FindText=*/ "исполнитель", /*MatchCase=*/false, /*MatchWholeWord=*/ false, /*MatchWildcards=*/false, /*MatchSoundsLike=*/false, /*MatchAllWordForms=*/false, /*Forward=*/true, /*Wrap=*/1, /*Format=*/false, /*ReplaceWith=*/Edit5->Text.c_str(), /*Replace=*/2);
 
//вот тут и "ошибка" при выполнении сохранения
vVarApp.OlePropertyGet("ActiveDocument").OleProcedure("SaveAs", WideString(NameFile));//Сохраняем
 
 
ShowMessage("Файл был успешно сформирован и сохранен: "+NameFile);
 
if (fStart)
        {
            vVarApp.OleProcedure("Quit");
            fStart = false;
        }
 
if (FileExists(NameFile.c_str())) {
ShellExecute(Handle, "open", NameFile.c_str(), NULL, NULL, SW_SHOW);
}
}

@SatanaXIII · 06.04.2015, 15:31

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

//вот тут и "ошибка" при выполнении сохранения

То есть ошибка именно в сороковой строке? Точно?

@demon_7 · 06.04.2015, 15:40 **[ТС]**

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

То есть ошибка именно в сороковой строке? Точно?

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

@BRcr · 06.04.2015, 15:51

Винда - она такая винда... Да еще и активность антивиря можно взять в расчет. Я давно подметил, что ошибки доступа зависят также и от флуктуаций мирового эфира.

Тут можно попытаться сохранять повторно. Попробовали - не сохранилось. Подождали. Попробовали еще раз.

@demon_7 · 06.04.2015, 15:55 **[ТС]**

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

Тут можно попытаться сохранять повторно. Попробовали - не сохранилось. Подождали. Попробовали еще раз.

При повторном нажатии, у пользователей отображается открытый шаблон не смотря на то что он скрыт намеренно

C++
1
//vVarApp.OlePropertySet("Visible",true);

в шаблоне произведены все замены. Его конечно можно пересохранить и изменить название, но я считаю что это лишние манипуляции, которые в последствии приводят к зависании RPC сервера :3

@SatanaXIII · 06.04.2015, 16:02

demon_7, честно сказать, у меня, к сожалению, нет мыслей на этот счет.
Единственное что - поглядеть версии самого ворда на вашем и на пользовательских компутерах.
Ну или, если совсем ничего не придумается, то логировать вообще все, а потом разбираться.

@demon_7 · 06.04.2015, 16:17 **[ТС]**

Да версии первое что проверил, откинул тех у кого 13 офис, но и на 10 так же бывает выскакивает.
Сейчас мысля пришла дать ему путь сохранения на общую папку в шаре, где даже у обычного юсера права бога!
В любом случае спасибо за советы, я думал может из за неопытности работы с OLE чего то упустил.

@BRcr · 06.04.2015, 16:24

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

В любом случае спасибо за советы, я думал может из за неопытности работы с OLE чего то упустил.

Я не смыслю толком в Ole. Так что отсутствие комментариев мало что значит...

@_Dimon_ · 06.04.2015, 21:39

а NameFile часом не заканчивается на \ ?
А то

C++
1
NameFile=Edit6->Text+"\\Регламент "+ComboBox1->Text+" "+Edit1->Text+".docx"; //Edit6 строка в которой прописан путь к сохранению

@demon_7 · 06.04.2015, 22:19 **[ТС]**

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

а NameFile часом не заканчивается на \ ?

Нет, путь формируется корректно, тем более повторюсь, на моем АРМ'е все работает отлично. а у других пользователей 50/50. Либо ошибка, либо норм.

Добавлено через 13 минут
В конце рабочего дня, выяснил что UAC у пользователей включен, а у меня нет. Думаю провести тесты с отключенным UAC.

@_Dimon_ · 06.04.2015, 22:22

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

Думаю провести тесты с отключенным UAC.

может с включенным?

@demon_7 · 06.04.2015, 22:35 **[ТС]**

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

может с включенным?

Он должен быть отключен, у той группы пользователей. Так как многое корпоративное ПО имеет рекомендации, либо отключать его либо выставить минимал, в любом случае завтра отпишусь.
Удаленно делая тесты из дома, сохраняет на шару, в папку с доступом для всех групп, без проблем.
Так что большее склоняюсь к теории с проблемами в правах пользователей.

Не по теме:

P.S. странно что есть проблемы с правами на своем компе у тех людей кто ведает DNS и выдает всем права :D

@SatanaXIII · 07.04.2015, 09:11

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

Думаю провести тесты с отключенным UAC.

Оговоритесь еще тогда пожалуйста что за версии винды вы там везде используете.
P.S. И нельзя ли получить тестовый обрезанный образец? Можно было б у себя потыкаться и вам доложиться о результатах.

@demon_7 · 07.04.2015, 10:10 **[ТС]**

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

Оговоритесь еще тогда пожалуйста что за версии винды вы там везде используете.
P.S. И нельзя ли получить тестовый обрезанный образец? Можно было б у себя потыкаться и вам доложиться о результатах.

У всех Win 7 x64 корпоративная. Образец с инструкциями выслала в ЛС. :3

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	06.04.2015, 15:51
	Винда - она такая винда... Да еще и активность антивиря можно взять в расчет. Я давно подметил, что ошибки доступа зависят также и от флуктуаций мирового эфира. Тут можно попытаться сохранять повторно. Попробовали - не сохранилось. Подождали. Попробовали еще раз. 0

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	06.04.2015, 16:02
	demon_7, честно сказать, у меня, к сожалению, нет мыслей на этот счет. Единственное что - поглядеть версии самого ворда на вашем и на пользовательских компутерах. Ну или, если совсем ничего не придумается, то логировать вообще все, а потом разбираться. 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	06.04.2015, 16:17 [ТС]
	Да версии первое что проверил, откинул тех у кого 13 офис, но и на 10 так же бывает выскакивает. Сейчас мысля пришла дать ему путь сохранения на общую папку в шаре, где даже у обычного юсера права бога! В любом случае спасибо за советы, я думал может из за неопытности работы с OLE чего то упустил. 0