Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Игры";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Вниз

Мастера помогите плиз с 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;



Страницы: 1 вся ветка

Форум: "Игры";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.079 c
14-1098016249
GanibalLector
2004-10-17 16:30
2004.11.14
Киев ???


1-1099037379
-kiril
2004-10-29 12:09
2004.11.14
Двигать форму, держась за любую ее точку


1-1098887850
Lexx3D
2004-10-27 18:37
2004.11.14
Re: Смена языков программы...


1-1099306249
miwa
2004-11-01 13:50
2004.11.14
А в dfm-файлах можно использовать define ы?


14-1098697418
iboard
2004-10-25 13:43
2004.11.14
Вот что можно написать на KOL :)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский