port kontrol i delphi haster!!!

hej
du kan bruge disse to til at læse/skrive
til paralellporten

procedure udport(Ad:smallint;Value:smallint);
var
  ByteValue:Byte;
begin
    ByteValue:=Byte(Value);
    asm
        push dx
        mov dx,Ad
        mov al, ByteValue
        out dx,al
        pop dx
    end;
end;

function indport(Ad:smallint):smallint;
var
  ByteValue:byte;
begin
  asm
        push dx
        mov dx, Ad
        in al,dx
        mov ByteValue,al
        pop dx
    end;
    indport:=smallint(ByteValue) and $00FF;
end;

Mvh
Sabine

tak for koden.
har du ikke et program du har lavet som jeg lige kunne prøve?

Ovenstående virker sandsynligvis ikke i NT - men søg i arkivet - det er der nemlig blevet svaret på tidligere. Det findes, endda noget færdig kode med dokumentation og sager.

Det er rigtig at koden ikke virker under NT, men hvis det er det du skal bruge, så skal du bare sige til, så har jeg et componet du kan få

ang. et program
Jo så har jeg lavet et. så send mig din e-mail add. så sender jeg det til dig

mvh Sabine

michael.christiansen@skolekom.dk

i dit program kan man da styre f.x 2 forskellige pins som man kan tænde og slukke?

til irj:
hvilket arkiv?

l.o.c. > Tidligere spørgsmål her på eksperten. Jeg var nok lidt uklar i min beskrivelse - beklager. Bare søg på printer port og NT, så skulle der vel være bid.

til irj:
ok det prøver jeg

til sabine:

hvornår ville du sende det program???