0 / 0 / 0 Регистрация: 07.05.2015 Сообщений: 73 |
|
1 |
|
18.02.2019, 11:01. Показов 2625. Ответов 5
Здравствуйте ! В Uses ComObj есть, Controller объявлен как Variant, пробовал объявлять и как OleVariant ничего не помогает.
0 |
5538 / 4323 / 1383 Регистрация: 14.04.2014 Сообщений: 19,386 Записей в блоге: 19 |
|
18.02.2019, 14:24 |
2 |
а Controller.ScAuto — точно есть такой COM-объект у вас?
0 |
0 / 0 / 0 Регистрация: 07.05.2015 Сообщений: 73 |
|
18.02.2019, 15:42 [ТС] |
3 |
krapotkin :
0 |
5538 / 4323 / 1383 Регистрация: 14.04.2014 Сообщений: 19,386 Записей в блоге: 19 |
|
19.02.2019, 09:55 |
4 |
программе в целом все равно, включен ваш прибор или нет
0 |
Nanotentacle |
19.02.2019, 10:36
|
Не по теме: Есть подозрение, что возникла путаница между понятиями COM-объект и COM-порт…
0 |
5538 / 4323 / 1383 Регистрация: 14.04.2014 Сообщений: 19,386 Записей в блоге: 19 |
|
19.02.2019, 11:13 |
6 |
нее, тут явно просто не установлен драйвер
0 |
** Алексей |
Отправлено: 20.03.2006, 19:02 |
||||
Не зарегистрирован
|
Здравствуйте. В программе надо открыть EXCEL:
Variant App,Sh;
…………………
Выдается ошибка: Похоже на строке: App.OlePropertyGet(«WorkBooks»).OleProcedure(«Open»,file_n); Сам EXCEL загружается (видно по Ctr-Alt-Del) Что неправильно? |
||||
Aptem |
Отправлено: 21.03.2006, 05:28 |
||||
Мастер участка Группа: Участник |
Вот так точно работает:
|
||||
** Алексей |
Отправлено: 22.03.2006, 19:22 |
||||
Не зарегистрирован
|
Aptem! Спасибо. Так работает. |
||||
← →
Belkova
(2003-06-24 13:47)
[0]
Мастера Delphi! Подскажите пожалуйста , что означает эта ошибка
Projet Project1.exe raised class EOleSysError with message «Операция недоступна»
ругается на
try
try
V:=GetActiveOleObject(«Excel.Application»);
except
V:=CreateOleObject(«Excel.Application»);
end;
except
raise Exception.Create(«Ошибка создания объекта Excel»);
end;
Появляется при запуске приложения из Delphi, выполняю снова F9 дальше работает нормально.
При запуске Project1.exe из WinCom ошибки нет. Что делать? Заранее благодарна!
← →
Palladin
(2003-06-24 13:51)
[1]
А что не порусски написано…
← →
TsvIlya
(2003-06-24 14:55)
[2]
Из-под Delphi показываются ВСЕ исключительные ситуации, даже которые находятся в блоке try … except … end;. У тебя происходит ошибка «Projet Project1.exe raised class EOleSysError with message «Операция недоступна»» в строке
V:=GetActiveOleObject("Excel.Application");
и Delphi тебе о ней сообщает, а из-под WinCom-а она пропускается из-за try … except.
← →
sniknik
(2003-06-24 15:06)
[3]
а запусти Excel до запуска приложения из Delphi, и произойдет маленькое чудо, ошибки не будет. :о))
прямой пример вреда копирования чужого кода к себе в программы, без «осмысления».
← →
Belkova
(2003-06-24 15:45)
[4]
Всем спасибо.
← →
Orpheus
(2003-06-24 16:24)
[5]
В дополннеие к TsvIlya:
можно отключить перехват исключений дельфой
Tools-Environment options-preferences-Break on exception
но наверное не стоит
The class that the function
PlexApp.Function_(ImpNme, FleNme).Call(VarArrayRef(Input),VarArrayRef(Output));
references is not regsitered as a COM object. Since the code is a bit different you will need to inspect it. I suspect the
Call(VarArrayRef(Input), VarArrayRef(Output))
section is calling a COM object by reference. If this is not the case then the
PlexApp.Function_
is referring to an unregistered COM object. You will need to either
1) Install the AllFusionPlex on the system or
2) Register it as a DCOM object residing on a different system.
Either way this should clear up the error. If the AllFusionPlex software has a good install program then it should help you with either option.
Let me know.
|
|
|
[!] Как относитесь к модерированию на этом форуме? Выскажите свое мнение здесь
Ошибка при использовании OlePropertyGet(«Documents»).OleProcedure(«Add»)
- Подписаться на тему
- Сообщить другу
- Скачать/распечатать тему
|
|
Junior Рейтинг (т): нет |
При использовании следующего кода: Word = CreateOleObject(«Word.Application.8»); Word.OlePropertySet(«Visible», true); Word.OlePropertyGet(«Documents»).OleProcedure(«Add»); на компьютере с Microsoft Word Standart Edition 2003 for Students and Teachers появляется сообщение об ошибке: Project Project1.exe raised exception class EOleSysError with message ‘Exception ocurred’. Process stopped. Use Step or Run to continue. На компьютерах с другими версиями Microsoft Word ошибки не возникает. В чем может быть причина и как можно ее устранить без переустановки Microsoft Word? |
artalex |
|
AleksP |
AleksP |
|
Junior Рейтинг (т): нет |
To artalex: На строке Word.OlePropertyGet(«Documents»).OleProcedure(«Add»). |
trainer |
|
Скорее всего не получается получить свойство «Documents» |
AleksP |
|
Junior Рейтинг (т): нет |
Добавил код: Documents = Word.OlePropertyGet(«Documents»); Documents.OleProcedure(«Add»); Ошибка появляется на строке Documents.OleProcedure(«Add»). |
trainer |
|
Значит нет такого свойства «Documents». Проверь содержимое переменной Documents перед вызовом Add |
AleksP |
|
Junior Рейтинг (т): нет |
А как это сделать? Попробовал код: for (int i=0; i <= Documents->Properties->Count-1; i++) Memo1->Lines->Add(Documents->Properties->Item[i]->Value); но появляется сообщение об ошибке: Pointer to structure required on left side of -> or ->*. |
trainer |
|
Просто посмотри, какой тип у значения Documents. Метод Type. Если коллекция получена, то должно быть по идее varDispatch(число 9). |
AleksP |
|
Junior Рейтинг (т): нет |
To trainer: А как это правильно сделать? Пробую так: Memo1->Lines->Add(Word.OlePropertyGet(«Documents»).OlePropertyGet(«Type»)); появляется сообщение об ошибке: Project Project1.exe raised exception class EOleSysError with message ‘Unknown name’. Process stopped. Use Step or Run to continue. |
trainer |
|
Memo1->Lines->Add(Word.OlePropertyGet(«Documents»).Type()); |
AleksP |
|
Junior Рейтинг (т): нет |
To trainer: Да, именно 9. А что дальше делать? |
trainer |
|
Хммм… т.е. коллекция Documents получается. Непонятно. |
artalex |
|
возможно нужно какой-нибудь параметр передать Add() |
AleksP |
|
Junior Рейтинг (т): нет |
Код макроса: Sub Macro() ‘ ‘ Macro Macro ‘ Macro recorded 6/23/2008 by ‘ Documents.Add Template:=»Normal», NewTemplate:=False, DocumentType:=0 End Sub |
artalex |
|
а если так Function OleAdd( «Add» ); NamedParm Template( «Template», «Normal» ); NamedParm NewTemplate( «NewTemplate», false ); NamedParm DocumentType( «DocumentType», 0 ); OleAdd << Template << NewTemplate << DocumentType; Documents = Word.OlePropertyGet(«Documents»); Documents.Exec( OleAdd ); |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
- Предыдущая тема
- Borland C++ Builder/Turbo C++ Explorer
- Следующая тема
[ Script execution time: 0,0613 ] [ 16 queries used ] [ Generated: 9.06.23, 02:09 GMT ]