Буфер клавиатуры Опции

[Bokul]

Решил даром не флудить.
Что представляет с себя буфер клавиатуры? Где он хранится и каковой его размер?
И как вот этот код

while keypressed do readkey;

или

repeat
  readkey
until not keypressed;

его очищает?

[SKVOZNJAK]

А кто сказал что это виндовс ;) Речь идёт о библиотеке сдл и о настальгии по таким простым методам доступа к клаве в любое время суток http://sdl4fp.sourceforge.net/index.html Главная её особенность - она работает в линуксе! Вот с чтением клавы в видеорежиме там очень непросто. И к портам только суперпользователь напрямую обратиться может и ось реально многозадачная. Теоретически SDL можно скомпилить и под виндовс. А практически, почти всё в ней импортируется, а под виндой импорт не работает, чего-то не хватает. Возможно исходники скомпилируются, если в каталог добавить файл SDL.DLL скачанный из ослика. Но это непроверено. Вот работающий пример использования клавы в видеорежиме. Так же получается доступ к мыши, джойстику. Читаются события keydown и keyup, а для клавиш модификаторов ещё и маски.
program demo;

uses 
SDL, SDL_Video, SDL_Events; 

const 
width = 720; 
height = 400; 
colordepth = 32; 

var 
screen: PSDL_Surface; 
image: PSDL_Surface; 
event: PSDL_Event; 
done: Boolean; 
filename: String; 

label 1; 


begin 

SDL_Init(SDL_INIT_VIDEO); 
event := new(PSDL_Event); 
screen := SDL_SetVideoMode(width, height, colordepth, (SDL_FULLSCREEN + SDL_SWSURFACE)); 
if screen = nil then 
begin 
writeLn ('Couldn''t initialize video mode at ', width, 'x', height, 'x', colordepth, 'bpp'); 
halt(1); 
end; 
filename := '0.bmp'; 
image := SDL_loadBMP(@filename[1]); 
if (image = nil) then 
begin 
writeLn('Couldn''t load ' + filename); 
halt(1); 
end; 
if (SDL_BlitSurface(image, nil, screen, nil) < 0) then 
begin 
writeLn('BlitSurface error:' {+ SDL_GetError()}); 
end; 
SDL_updateRect(screen, 0, 0, image^.w, image^.h); 
SDL_freeSurface(image); 
done := FALSE; 
while (done = FALSE) do 
begin 
if (SDL_PollEvent(event) > 0) then 
begin 
CASE event^.eventtype OF 
SDL_KEYDOWN, SDL_MOUSEBUTTONDOWN :done := TRUE; 
end; 
end; 
end; 


SDL_freeSurface(screen); 
SDL_Quit ; 
end.

Сообщение отредактировано: SKVOZNJAK - 14.12.2006 12:22