Zitat von
Arendt:
weis einer wo genau ich die
dll für den lpt port einfügen muss ?
danke
arendt
Ich weisst zwar nicht warum du die Frage wiederholst, aber ich vermute mal, du willst wissen, wie man die
DLL in Delphi reinbekommt. Wo die
DLL selbst hinkommt, hat flomei ja schon gesagt, genauer:
Code:
Win NT4/2000:
C:\
WINNT\System32
Win XP:
C:\WINDOWS\System32
Wobei ich jetzt von der Standard-Installation ausgehe.
Danach fügst du folgenden Code in dein Delphi-Projekt ein, am besten direk nach implementation:
Delphi-Quellcode:
procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
procedure PortWordOut(Port : Word; Data : Word); stdcall; external 'io.dll';
procedure PortDWordOut(Port : Word; Data : DWord); stdcall; external 'io.dll';
function PortIn(Port : Word) : Byte; stdcall; external 'io.dll';
function PortWordIn(Port : Word) : Word; stdcall; external 'io.dll';
function PortDWordIn(Port : Word) : DWord; stdcall; external 'io.dll';
procedure SetPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
procedure ClrPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
procedure NotPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
function GetPortBit(Port : Word; Bit : Byte) : WordBool; stdcall; external 'io.dll';
function RightPortShift(Port : Word; Val : WordBool) : WordBool; stdcall; external 'io.dll';
function LeftPortShift(Port : Word; Val : WordBool) : WordBool; stdcall; external 'io.dll';
function IsDriverInstalled : Boolean; stdcall; external 'io.dll';
Danach kannst du die obigen Funktionen ganz normal für die Portzugriffe benutzen.
PS: Habe gehört das es mit dieser Art
DLL-Import bei älteren Delphis Probleme geben soll, falls das der Fall sein sollte poste ich gerne noch die Alternative mit LoadLibrary() und GetProcAddress().