Скачать: CL | DM;

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

---

← →
Th ©   (2002-10-14 17:09) [4]

> Ihor Osov"yak

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c