Delphi editor

[scp]

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().