Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

аналог функции portw[] из паскаля?


aspen ©   (2002-12-06 11:40:00) 

Функция на Паскале

function MDGet: integer
begin
while (Portw[CSR] and $1)=0 do;
MDGet:=Portw[DR];
end;


как сделать аналог для Дельфи?


Anatoly Podgoretsky   (2002-12-07 11:21:00) [1]

Да и еще к вопросу о Win9X, даже в этом случает может не подойти, порты и здесь виртуальные, не все доступны.


Anatoly Podgoretsky   (2002-12-07 11:19:00) [2]

Лучше так


function ReadPortW(aAddr: word): word;
asm
mov dx,ax // aAddr тоже подойдет
in ax,dx
end;


Ihor Osov'yak   (2002-12-07 11:04:00) [3]

function ReadPortW(aAddr:word):word; assembler;
asm
push edx;
mov dx,aAddr
in ax,dx
pop edx;
end;


Только оно тебе надо? Работать будет только под Win9X


Наверх

Титульная страница Поиск, карта сайта Написать письмо