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

← →
Th © (2002-10-10 18:52) [0]

подскажите плз, есть ли в Delphi аналоги функций inp и outp из С

← →
Best Before 2024 (2002-10-10 18:59) [1]

нет

← →
Th © (2002-10-10 19:02) [2]

-Скажите это дом 13
-нет
;)))
Спасибо
Тогда еще маленький вопрос - как в delphi узнать PID процесса

← →
Ihor Osov'yak © (2002-10-11 16:37) [3]

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 семейством ... Находится максимум за пять минут. Для юзания необходимо, чтобы программа имела права загружать драйвер. Или вешать драйвер "навечно" - это уже ручками админовскими.

> Ihor Osov"yak

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

Аналоги сишных inp, outp в Delphi Найти похожие ветки