COM-объект - Delphi 7 / Delphi XE2 / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / COM-объект - Delphi 7 / Delphi XE2

16 сообщений из 16, страница 1 из 1

COM-объект - Delphi 7 / Delphi XE2

#40125659

barry

Участник

Откуда: Kharkov

Сообщения: 492

Рейтинг: 0 / 0

Пробую работать с COM-объектом. Скомпиленное в Delphi 7 отрабатывает нормально.
В Delphi XE2:
raised exception class EAccessViolation with message 'Access violation at address 029E50D0. Read of address 00000000'.
Куда копать?

Код: sql

1.
2.
3.
4.
5.

    var
       Nsx: String;
    Printer := CreateOleObject('WebCheck.ClassFiscal');
    Nsx := Format('<InputParameters><Parameters FN="%s" OperatorID="%s"/></InputParameters>',[NFn,NTax]);
    Printer.Initialization(Nsx); //boolean

...

Рейтинг:

0 / 0

11.01.2022, 08:37

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125702

Belotsky Serge

Гость

barry,
А если попробовать так?

Код: pascal

1.
2.

var
       Nsx: AnsiString;

...

Рейтинг:

0 / 0

11.01.2022, 11:57

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125727

barry

Участник

Откуда: Kharkov

Сообщения: 492

Рейтинг: 0 / 0

Belotsky Serge

barry,
А если попробовать так?

Код: pascal

1.
2.

Та я тоже подозревал, но не помогает. AnsiString, string[255] пробовал.
Вообще приблуда тут:
https://www.webchek.com.ua/webchek-prro-download/
И там пример для Delphi можно загрузить.
Мало просто работал с COM. Excel вроде как получалось юзать, а тут не пойму.

...

Рейтинг:

0 / 0

11.01.2022, 13:11

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125736

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

Это же простейший AV. Смотришь Call Stack и где указатель nil вместо того, что надо.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

11.01.2022, 13:46

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125741

Belotsky Serge

Гость

Dimitry Sibiryakov

Это же простейший AV. Смотришь Call Stack и где указатель nil вместо того, что надо.

Я так понимаю, что должен быть установлена служба, которая вернет OLE объект на 'WebCheck.ClassFiscal'. Подозреваю, что эта служба устанавливается вместе с '1C'. Непонятно, на какой строке кода происходит AV.
ТС утверждает, что скомпилированное в D7 работает нормально. Или он это на другой машине делал, где нет службы?
В коде нет проверки инициализации OLE объекта.

...

Рейтинг:

0 / 0

11.01.2022, 14:01

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125746

barry

Участник

Откуда: Kharkov

Сообщения: 492

Рейтинг: 0 / 0

Belotsky Serge,

Откомпиленное на Delphi 7 работает. Т.е. объект есть и реагирует адекватно (без 1C).
То же самое перекомпиленное на Delphi XE2 не идет.

...

Рейтинг:

0 / 0

11.01.2022, 14:09

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125750

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

barryТо же самое перекомпиленное на Delphi XE2 не идет.

Значит ног нет, кантовать надо.

Call Stack и смотри что именно там nil.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

11.01.2022, 14:12

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125754

Belotsky Serge

Гость

barry

Скачал по ссылке демо, на XE3 компилируется, но не запускается, сразу '0x00000005 - Отказано в доступе'. Под админкой - тоже самое. То ли у меня нет нужной службы, то ли что-то еще.

...

Рейтинг:

0 / 0

11.01.2022, 14:25

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125756

barry

Участник

Откуда: Kharkov

Сообщения: 492

Рейтинг: 0 / 0

[quot Belotsky Serge#22419308]

barry

Belotsky Serge,
'0x00000005 - Отказано в доступе'.

Т.е. не падает. По идее адекватная реакция системы. Дело в том что это виртуальный кассовый аппарат. Вполне может по IP не пускать из других стран.
Видимо все-таки именно в XE2 что-то не так.

...

Рейтинг:

0 / 0

11.01.2022, 14:33

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125761

barry

Участник

Откуда: Kharkov

Сообщения: 492

Рейтинг: 0 / 0

Пока извратился через DLL, написанную на D7. Вызываю ее из приложения XE2, идет нормально.
Дело в том, что большая система на XE2, из которой надо заюзать COM.

...

Рейтинг:

0 / 0

11.01.2022, 14:38

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125779

Belotsky Serge

Гость

[quot barry#22419313]

Belotsky Serge

пропущено...

Т.е. не падает. По идее адекватная реакция системы. Дело в том что это виртуальный кассовый аппарат. Вполне может по IP не пускать из других стран.
Видимо все-таки именно в XE2 что-то не так.

Начал копаться, прикольно, взятый сторонний проект не запускается. Создал новый проект, все это рисовать не стал, кинул только кнопку и обработчик Button1OnClick скопировал. Запускается. Но на

Код: pascal

Printer := CreateOleObject('WebCheck.ClassFiscal');

выдает ошибку. Т.е. где-то должна быть служба имхо.

...

Рейтинг:

0 / 0

11.01.2022, 14:59

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125787

barry

Участник

Откуда: Kharkov

Сообщения: 492

Рейтинг: 0 / 0

Belotsky Serge

Начал копаться
выдает ошибку. Т.е. где-то должна быть служба имхо.

https://www.webchek.com.ua/webchek-prro-download/
У меня 1С не стоит. Первая приблуда ставит в том числе объект насколько я понимаю.

...

Рейтинг:

0 / 0

11.01.2022, 15:15

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125788

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

barryизвратился через DLL, написанную на D7.

Какой только хренью не маются люди, не осилившие найти пункт меню Windows -
Debug - Call Stack...
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

11.01.2022, 15:15

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125790

barry

Участник

Откуда: Kharkov

Сообщения: 492

Рейтинг: 0 / 0

в реестре

...

Рейтинг:

0 / 0

11.01.2022, 15:21

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125799

barry

Участник

Откуда: Kharkov

Сообщения: 492

Рейтинг: 0 / 0

Dimitry Sibiryakov

barryизвратился через DLL, написанную на D7.

Какой только хренью не маются люди, не осилившие найти пункт меню Windows -
Debug - Call Stack...

...

Рейтинг:

0 / 0

11.01.2022, 15:36

| Ответить | Цитировать | Написать

COM-объект - Delphi 7 / Delphi XE2

#40125816

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

И ты уже убедился, что твой String на уровне входа в .NET сборку нормально
преобразовался в Variant с типом VT_BSTR внутри?
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

11.01.2022, 16:11

| Ответить | Цитировать | Написать

16 сообщений из 16, страница 1 из 1

Форумы / Delphi [игнор отключен] [закрыт для гостей] / COM-объект - Delphi 7 / Delphi XE2

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&msg=40125761&tid=2036725]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	39ms
get topic data:	8ms
get forum data:	3ms
get page messages:	50ms
get tp. blocked users:	1ms
others:	270ms

total:	398ms