05. marts 2000 - 12:25
Der er
1 løsning
paralellport
Jeg har den her kode:
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;
og jeg ved ikke hvordan jeg skal bruge den.
det er til at læse/skrive til en paralellport
zerocool the delphi programmer
05. marts 2000 - 20:30
#1
Hej nu skal jeg fortælle dig, hvordan du skal bruge min kode
sæt en editbox og to knapper på din form og sæt caption på den ene knap til skriv og den anden til læs
derefter skriver du i knappen skriv
udport($378,StrToInt(edit1.text));
Når du trykker på knappen vil dan værdi
der stå i editboxen blive lavet om til en int og derefter lagt ud på addresse $378 som er paralell porten på de fleste maskiner
og for knappen læs skriver du
edit1.text := IntToStr(indport($378));
her sker det modsatte. Det der står på addresse $378(paralell porten) vil blive lagt over i editboxen
jeg håber at du kan bruge det
Mvh
Sabine