функция в COM возвращает HRESULT, а дельфи создаёт procedure

← →
Gear (2006-01-08 01:08) [0]

Здравствуйте!

В COM-объекте функция возвращает HRESULT (проверено программой на C++, раотает). Устанавливая в Delphi этот COM-объект (Import Type Library), delphi создаёт врапер автоматически, но эту функцию преподносит как процедуру (!) ,естественно без возврата hresult. Кто не прав? Delphi или, что-то криво, в COM-объекте? Пробовал переписать руками врапер c процедуры на функцию, но отдало Access Violation.

← →
Гаврила © (2006-01-08 08:48) [1]

фишка в ключевом слове safecall

← →
Набережных С. © (2006-01-08 09:34) [2]

> Кто не прав?

Gear.

Дельфийский редактор библиотек типов далек от идеала, но тут он ни при чем, как и COM-объект. Delphi создает обертку, используя директиву SafeCall, которая включает автоматическую поддержку компилятором интерфейса ISupportErrorInfo. Разумеется, если объект не реализует этот интерфейс, то смысла использовать SafeCall нет. Отключить такое поведение можно на вкладке Type library в меню Tools/Environment options. Советую поискать в справке по упомянутым ключевым словам и внимательно почитать ее.

Да, лучше делать так: закрыть все проекты, изменить настройку, открыть какой-нибудь проект, выполнить импорт библиотеки. Иначе иногда такое переключение глючит и настройка оказывается не измененной.

> Пробовал переписать руками врапер c процедуры на функцию,
> но отдало Access Violation.

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

← →
Gear (2006-01-08 15:48) [3]

Спасибо большое за ответ, ситуация следующая:

1) в Delphi 7 Personal почему-то нет вкладки Type library в меню Tools/Environment options.
2) меняю в оъекте оболочке все записи procedure на function, относящиеся к этой функции. Добавляю возвращаемый тип HRESULT, убираю safecall. В самой процедуре, а теперь уже функции делаю:
function Tmycom.MyFunc(lalala...):hresult;
var
hr:hresult;
begin
hr:=DefaultInterface.MyFunc(lalala...);
result:=hr;
end;
в итоге получаю access violation :(

← →
Gear (2006-01-08 15:49) [4]

да забыл написать, под объектом оболочки я прально понимаю файл генерируемый дельфи? то есть ..._TLB.pas

> Gear (08.01.06 15:48) [3]

> Добавляю возвращаемый тип HRESULT, убираю safecall.

Вместо SafeCall в объявлениях интерфейса нужно написать StdCall. В методах оболочки - не обязательно.

> Gear (08.01.06 15:49) [4]

Да.

← →
Gear (2006-01-09 01:41) [6]

спасибо большое! всё заработало

функция в COM возвращает HRESULT, а дельфи создаёт procedure Найти похожие ветки