Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Аналоги сишных inp, outp в Delphi [D6, WinXP]

Th © (2002-10-10 18:52:00)
подскажите плз, есть ли в Delphi аналоги функций inp и outp из С

Th (2002-10-14 17:09:00) [1]

> Ihor Osov"yak

Спасибо за напоминание про асм - помогло. А под NT я сам Port Handler написал, так что с этим проблем нет. А хорошо или не хорошо напрямую в порты писать - так у меня выбора нет ;))

Ihor Osov'yak (2002-10-11 16:37:00) [2]
2 Th © (10.10.02 18:52)

Напрямую лазить к портам не хорошо. Во первых, во вторых NTшная
не позволит...

Ну а для любителей искать приключения, кто мешает написать что-то типа

procedure toPort16(aPort:word; aValue:word);
begin
asm
push edx
mov ax,aValue
mov dx,aPort
out dx,ax
pop edx
end;
end;

procedure toPort8(aPort:word; aValue:byte);
begin
asm
push edx
mov al,aValue
mov dx,aPort
out dx,al
pop edx
end;
end;

function fromPort16(aPort:word):word;
begin
asm
push edx
mov dx,aPort
in ax,dx
mov @Result,ax
pop edx
end;
end;

function fromPort8(aPort:word):byte;
begin
asm
push edx
mov dx,aPort
in al,dx
mov @Result,al
pop edx
end;
end;

ЗЫ. А для особо любителей - в инете почти на каждом углу валяется драйверок, именуемый IOPort или PortIO позволяющий обращаться к любому порту и под NT семейством ... Находится максимум за пять минут. Для юзания необходимо, чтобы программа имела права загружать драйвер. Или вешать драйвер "навечно" - это уже ручками админовскими.

Th (2002-10-10 19:02:00) [3]
-Скажите это дом 13
-нет
;)))
Спасибо
Тогда еще маленький вопрос - как в delphi узнать PID процесса

Best Before 2024 (2002-10-10 18:59:00) [4]
нет

Наверх

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