Delphi editor

[flomei]

Ins system32 Verzeichnis glaub ich... :gruebel:
Guck auch mal weiter auf der Seite. Unten steht wie man die in Delphi benutzt... Hast du auch die richtige DLL runtergeladen und nicht eine von den C++ DLL´s oder so?

MfG Florian :hi:

[Arendt]

weis einer wo genau ich die dll für den lpt port einfügen muss ?

danke :) arendt

[scp]

Zitat:

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

[Arendt]

Danke für deine hilfe :) uwas mich auch noch interesiert wie sprech ich den port an in qbasic weis ich es geht auch jetzt nur wie gehts hier ??? in delphi ?

MFG Arendt

[scp]

Zitat:

Zitat von Arendt

Danke für deine hilfe :) uwas mich auch noch interesiert wie sprech ich den port an in qbasic weis ich es geht auch jetzt nur wie gehts hier ??? in delphi ?

MFG Arendt

Gib uns am besten ein Beispiel in Basic, dann kann man besser überlegen, wies in Delphi auszusehen hat.

[Arendt]

huhu also in qbasic muss es ja heißen :

OUT &H378, wert für pin

und wie mgehts in delphi ? in dem buch wo ich hier hab steht drinn das man ne extra platine brauch für LPT port darauf ics ansprechen muss usw ... aber wie muss der code aussehen damit ich dieregt den LPT pin ansprechen kann ?

Ich hab die ganzen Treiber installiert aber das Problem mit LPT is immernoch da :/ spuckt immer noch auf allen pins ne 1 bzw strom aus auser 18-25 ....

MFG Arendt

[scp]

Ausgabe:

Delphi-Quellcode:

PortOut($378, wertfuerpin);

Einlesen:

Delphi-Quellcode:

wertvonpin := PortIn($378);

[Arendt]

Thx für den code :)

Hab grade mal in den einstellungen vom LPT port rumgeschnüffelt und hab was endeckt es war " Alle interrupts verweigern" angeklickt dann hab ich das auf "alle interrupts zulassen" gemacht und siehe da ich kann auf ihn zugreifen :)))) goil :)

so ich versuch mal den code reinzuhauen in delphi thx nochmal :)

MFG Arendt :)