Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Gear © (2006-01-08 01:08:00)
Здравствуйте!

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

Gear (2006-01-09 01:41:00) [1]
спасибо большое! всё заработало

Набережных С. (2006-01-08 17:35:00) [2]

> Gear (08.01.06 15:48) [3]

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

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

> Gear (08.01.06 15:49) [4]

Да.

Gear (2006-01-08 15:49:00) [3]
да забыл написать, под объектом оболочки я прально понимаю файл генерируемый дельфи? то есть ..._TLB.pas

Gear (2006-01-08 15:48:00) [4]
Спасибо большое за ответ, ситуация следующая:

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 :(

Набережных С. (2006-01-08 09:34:00) [5]

> Кто не прав?

Gear.

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

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

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

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

Гаврила (2006-01-08 08:48:00) [6]
фишка в ключевом слове safecall

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »