Мастера помогите плиз с DirectInput ом!

← →
NOX (2004-07-22 13:16) [0]

Здраствуйте! Помогите решить такую проблему, наверняка с ней кто-то сталкивался:
использую в DirectInput8 буферную схему определения нажатия и отжатия клавиш, но вот в чём проблема,
перед выполнением команды происходит небольшая задержка, которая видна на глаз и сильно раздражает.
а при использовании схемы непосредственного опроса состояния клавиш в данный момент времени
никакой задержки нет! Списать эту задержку на тормоза системы при выполнении команды я не могу,
т.к. ничего сложного там нет, да и всё работает нормально.

Вот процедура чтения буфера:

procedure TInput.ReadKeysBuffer;
var didod : Array [0..BUFF_SIZE - 1] of TDIDEVICEOBJECTDATA;
dwElements : DWORD;
i : DWORD;
hRet : HRESULT;
k : shortint;
begin
if Keyboard = nil then
begin
Log.Add("!!! Keyboard = nil");
Exit;
end;

hRet := Keyboard.GetDeviceData (SizeOf(TDIDEVICEOBJECTDATA), @didod, dwElements, 0);
if Failed (hRet) then
begin
hRet := Keyboard.Acquire;
while hRet = DIERR_INPUTLOST do hRet := Keyboard.Acquire;
end;

if dwElements <> 0 then
for i := 0 to dwElements - 1 do
begin
if didod[i].dwData and $80 <> 0 then //клавиша нажата
begin

команды

end
else //клавиша отжата
begin

команды

end;
end;
end;

← →
cyborg © (2004-07-22 18:07) [1]

Может это долго идёт, получить не может:

while hRet = DIERR_INPUTLOST do hRet := Keyboard.Acquire;

Мастера помогите плиз с DirectInput ом! Найти похожие ветки