اقراء واكتب الى المنافذ المفتوحه والمغلقه ايضاً

بسم الله الرحمن الرحيم

اخوتي الأعزاء اعضاء هذا المنتدى الرائع

اقدم لكم هذه المره طريقه التعامل مع النافذ

فاليكم هذه الأكواد التي ستاعدكم في القرائة والتكابة للمنافذ المفتوحه والمغلقه:

function PortIn(IOAddr : Word) :Byte;

begin

asm

mov dx,IOAddr

in al,dx

mov result,al

end;

end;

procedure PortOut(IOAddr : Word; Data : Byte);

begin

asm

mov dx,IOAddr

mov al,Data

out dx,al

end;

end;

وتقبلوا اطيب تحياتي اخوكم SUM