С сишки на делфи ...

← →
Alek © (2004-11-29 18:48) [0]

Помогиет пожалйста перевести код с сишки на делфи!

Код на сишке:

struct _HEADER {
unsigned short nAB;
unsigned int nSize;
unsigned short nMessage;
unsigned short nBA;
};
int GetResultEx(int nID, _HEADER **pstHeader, unsigned char nWait);

Код который я написал на делфи:

_HEADER = record nAB: word; nSize: Longword; nMessage: word; nBA: word; end; _H = ^_HEADER; function GetResultEx(nID: integer; pstHeader: _H; nWait: byte): integer; stdcall; external "eV.dll";

и когда я из своей программы обращаюсь к этой функции то выскакивает ошибочка "Акце виолатион по адресу ABABABABAB"

← →
palva © (2004-11-29 19:01) [1]

_H = ^^_HEADER; не знаю, можно ли такое на Делфи. Соответственно при вызове надо передавать адрес начала (первого элемента) массива пойнтеров на рекорды.

← →
Alek © (2004-11-29 19:15) [2]

при вот таком _H = ^^_HEADER; делфи ругается (.

вызываю функцию так:

var
h: _H;
i: integer;
begin
i:=GetResultEx(nID, h, 0);
end;

← →
Anton_K © (2004-11-29 19:22) [3]

Я в С плохо разбираюсь, но рискну предположить, что надо так:
function GetResultEx(nID: integer; var pstHeader: _H; nWait: byte): integer; stdcall; external "eV.dll";

← →
Yuri K (2004-11-29 19:23) [4]

"_H = ^^_HEADER;"

_H = ^_HEADER;
_PH = ^_H;

← →
Yuri K (2004-11-29 19:24) [5]

"var pstHeader: _H"

Годится.

Просто надо было там указатель на выделеную память !!!
var pstHeader: _H
begin
GetResultEx(0,@pstHeader....
А ты наверное var pstHeader: ^_H и прямо его в параметр совал тады надо New(pstHeader) а после вызова GetResultEx Dispose //

В конце концов, этот параметр можно просто описать как Pointer (без всяких var). Главное, чтобы при обращении этот пойнтер имел правильное значение, то есть указывал на массив пойнтеров, каждый из которых указывает на _HEADER.

Еще тогда такой вопросик!

На сишке написано так:

OnQuote((_QUOTE_MSG *)pstHeader);

Как правильно написать на делфе? Мене тута сказали что на сишке это - приведение к типу "указатель на _QUOTE_MSG"

С сишки на делфи ... Найти похожие ветки