VPF::интерпретировать C++ в Delphi - Форум программистов

SnowOwl

Дата 8.7.2009, 15:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.4.2007

Репутация: нет
Всего: нет

Доброго времени суток

В коде C++ при вызове функции один из параметров указан как &VariableName
Как интерпертировать эту запись в delphi?

Заранее благодарна за ответ

mr.Anderson

Дата 8.7.2009, 16:30 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

Это обыкновенный ссылочный параметр.

Код


// процедура, принимающая ссылочный аргумент
procedure ModifyArgument(var VariableName: Integer);
begin
  VariableName := 25;
end;

Только тип вместо Integer, конечно, свой укажи.

Это сообщение отредактировал(а) mr.Anderson - 8.7.2009, 16:39

--------------------

SnowOwl

Дата 8.7.2009, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.4.2007

Репутация: нет
Всего: нет

Сорри, я не с той стороны зашла :(

Есть объявление функции на С++:

Код


UINT MsiGetProperty(
  __in     MSIHANDLE hInstall,
  __in     LPCTSTR szName,
  __out    LPTSTR szValueBuf,
  __inout  DWORD *pchValueBuf
);

есть вызов этой функции:

Код


UINT uiStat =  MsiGetProperty(hInstall, TEXT("MyProperty"), TEXT(""), &cchValueBuf);

мне необходимо сделать вызов этой функции в delphi. Для этого я объявляю эту функцию в блоке uses

Код


function MsiGetPropertyA(hInstall: THandle; szName, szValueBuf: PChar;
                          var pchValueBuf: integer) : integer;
                          stdcall; external 'Msi.dll';

затем описываю тип

Код


TGetProperty = function(hInstall: THandle; szName, szValueBuf: PChar;
                           var pchValueBuf: integer) : integer;  stdcall;

а потом вызываю собственно саму функцию

Код


 RetVal:=MsiGetPropertyA(cmd,PChar('UILevel'),PChar(''),pchUILevel);

cmd - это переменная типа THandle, которая содержит дескриптор на пользовательский msi-пакет

По моему мнению, я неправильно передаю параметр pchUILevel, но слабо представляю себе, как его передать правильно.

mr.Anderson

Дата 8.7.2009, 18:18 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

Вероятнее всего, так.

Код

var pchValueBuf: integer

Поменять на

Код

pchValueBuf: Integer^;

И еще

Код

RetVal:=MsiGetPropertyA(cmd,PChar('UILevel'),PChar(''),pchUILevel);

Заменить на

Код

RetVal:=MsiGetPropertyA(cmd,PChar('UILevel'),PChar(''), @pchUILevel);

--------------------

THandle

Дата 8.7.2009, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

http://forum.vingrad.ru/index.php?showtopi...t&p=1450107

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »