Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  1 491

•  TDictionary Custom Sort  4 171

•  Fast Watermark Sources  3 855

•  3D Designer  5 942

•  Sik Screen Capture  4 126

•  Patch Maker  4 668

•  Айболит (remote control)  4 575

•  ListBox Drag & Drop  3 734

•  Доска для игры Реверси  89 414

•  Графические эффекты  4 908

•  Рисование по маске  3 927

•  Перетаскивание изображений  3 306

•  Canvas Drawing  3 606

•  Рисование Луны  3 403

•  Поворот изображения  2 902

•  Рисование стержней  2 579

•  Paint on Shape  1 976

•  Генератор кроссвордов  2 741

•  Головоломка Paletto  2 163

•  Теорема Монжа об окружностях  2 846

•  Пазл Numbrix  1 945

•  Заборы и коммивояжеры  2 519

•  Игра HIP  1 559

•  Игра Go (Го)  1 495

•  Симулятор лифта  1 770

•  Программа укладки плитки  1 520

•  Генератор лабиринта  1 881

•  Проверка числового ввода  1 631

•  HEX View  1 812

•  Физический маятник  1 652

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как прочитать байт из параллельного порта



Как объяснить тупому, что такое бит? Элементарно - это байт минус налоги. Как объяснить тупому, что такое байт? Элементарно - объясните ему 8 раз, что такое бит. Что такое килобайт? Это слишком долго рассказывать...


var
  BytesRead: BYTE;
begin
  asm { Читаем порт (LPT1) через встроенный ассемблер }
    MOV dx,$379;
    in al,dx;
    MOV BytesRead,al;
  end;
  BytesRead := (BytesRead or $07); { OR а затем XOR данных }
  BytesRead := (BytesRead xor $80); { маскируем неиспользуемые биты }
end;








Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте