Вверх ↑
Ответов: 498
Рейтинг: 39
#1: 2010-05-23 18:34:29 ЛС | профиль | цитата
Пытаюсь сделать компонент, позволяющий использовать пульт от тв тюнеров behold. У них есть SDK, вот такой код самой SDK:
code_18451.txt
#pas
unit HiAsmUnit;
//unit BeholdRC_Api;
interface
{$MINENUMSIZE 4}
uses kol,Share,Debug,Windows;
var key:BYTE;
var tkey:THI_Event;
const
CsBhAPI = 'BeholdRC.dll';
type
eRCT =
(
RCT_UNKNOWN ,
RCT_BUTTONS_30,
RCT_BUTTONS_28,
RCT_BUTTONS_34
);
type
THiAsmClass = class(TDebug)
private

public
end;

var
ulCardCount : ULONG = 0;
function GetCardCount() : ULONG; cdecl; external CsBhAPI;
function OpenCard(ulCardIdx : ULONG) : BOOL; cdecl; external CsBhAPI; // Èíèöèàëèçèðóåò óñòðîéñòâî ïî èíäåêñó ulCardIdx
function GetRemoteCode() : ULONG; cdecl; external CsBhAPI; // Âîçâðàùàåò êîä íàæàòîé êíîïêè ïóëüòà ÄÓ Beholder
function UnInit() : BOOL; cdecl; external CsBhAPI;
implementation
initialization
ulCardCount := GetCardCount();
OpenCard(ulCardCount);
key:=GetRemoteCode();
_hi_onEvent_(tkey,key);
finalization
UnInit();
end.
Вот только ошибка "C:\Program Files\HiAsm\Elements\delphi\code\hiInlineCode_27717A0.pas(36) Error: Types of actual and formal var parameters must be identical"
в чём причина?
карма: 0

0