Помогите перевести с с++ на Delphi вызов функции из dll !

← →
jiran (2004-12-06 12:41) [0]

Доброго времени суток !!!!!!
Помогите перевести с с++ на Delphi вызов функции из dll !
На С++:
char value; gc_GetCallInfo(pline->call[callindex].crn,CONNECT_TYPE,&value);
- она должна вернуть value (value: buffer address where the requested information is stored), остальные параметры входные, функция вызывается из dll, я пытаюсь переветсти на delphi
Описываю функцию:
function gc_GetCallInfo(crn:crn;info_id:Integer;var alue:Pointer):Integer;cdecl;external "c:\LIB\libgc.dll" Name "gc_GetCallInfo";
пытаюсь вызвать:
var value : Integer; gc_GetCallInfo(pline.call[callindex].crn, CONNECT_TYPE,@value);

и получаю ошибку: Types of actual and format var parameters must be identical.
Помогите разобраться, как правильно надо объявить и использовать эту функцию ?

← →
DiamondShark © (2004-12-06 12:45) [1]

Либо

function gc_GetCallInfo(crn:crn;info_id:Integer;alue:Pointer):Integer;cdecl;external "c:\LIB\libgc.dll" Name "gc_GetCallInfo";

либо

function gc_GetCallInfo(crn:crn;info_id:Integer;var alue):Integer;cdecl;external "c:\LIB\libgc.dll" Name "gc_GetCallInfo";

соответственно в последнем примере из [1] при вызове такой функции не надо писать знак @ около value.

Помогите перевести с с++ на Delphi вызов функции из dll ! Найти похожие ветки