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
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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.