| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
С сишки на делфи ...
Alek © (2004-11-29 18:48:00)Помогиет пожалйста перевести код с сишки на делфи!
Код на сишке:
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"
Alek (2004-11-30 14:26:00) [1]Еще тогда такой вопросик!
На сишке написано так:
OnQuote((_QUOTE_MSG *)pstHeader);
Как правильно написать на делфе? Мене тута сказали что на сишке это - приведение к типу "указатель на _QUOTE_MSG"
palva (2004-11-29 21:40:00) [2]В конце концов, этот параметр можно просто описать как Pointer (без всяких var). Главное, чтобы при обращении этот пойнтер имел правильное значение, то есть указывал на массив пойнтеров, каждый из которых указывает на _HEADER.
Chlavik (2004-11-29 20:07:00) [3]Просто надо было там указатель на выделеную память !!!
var pstHeader: _H
begin
GetResultEx(0,@pstHeader....
А ты наверное var pstHeader: ^_H и прямо его в параметр совал тады надо New(pstHeader) а после вызова GetResultEx Dispose //
Yuri K (2004-11-29 19:24:00) [4]"var pstHeader: _H"
Годится.
Yuri K (2004-11-29 19:23:00) [5]"_H = ^^_HEADER;"
_H = ^_HEADER;
_PH = ^_H;
Anton_K (2004-11-29 19:22:00) [6]Я в С плохо разбираюсь, но рискну предположить, что надо так:
function GetResultEx(nID: integer; varpstHeader: _H; nWait: byte): integer; stdcall; external 'eV.dll';
Alek (2004-11-29 19:15:00) [7]при вот таком _H = ^^_HEADER; делфи ругается (.
вызываю функцию так:
var
h: _H;
i: integer;
begin
i:=GetResultEx(nID, h, 0);
end;
palva (2004-11-29 19:01:00) [8]_H = ^^_HEADER; не знаю, можно ли такое на Делфи. Соответственно при вызове надо передавать адрес начала (первого элемента) массива пойнтеров на рекорды.
| |
