[Delphi] Driver error bij schrijven naar LPT poort *

[Verwijderd]

Hallo,

Aan de hand van de topic: De Parallelle poort FAQ

heb ik een printplaatje inelkaar gezet die een relais in gaat schakelen. Om dit correct te testen moet de LPT uiteraard wel ingeroepen worden. Wat doe ik dus, ik schrijf een applicatie om deze aan te roepen. Ik download het bestand io.dll van http://www.geekhideout.com/iodll.shtml en schrijf de app eromheen met Delphi. Deze ziet er zo uit:

code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
procedure SetPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
procedure ClrPortBit(Port : Word; Bit : Byte); stdcall; external 'io.dll';
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Status: IN';
SetPortBit ( $378, 7)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption := 'Status: UIT';
ClrPortBit ( $378, 7)
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ClrPortBit ( $378, 7)
end;

end.

Nu is mijn punt, ik krijg een Driver error oid. Weet TOEVALLIG iemand wat ik fout doe, hoe ik het beter aan kan pakken of een betere oplossing kan maken voor dit probleem? Alvast heel erg bedankt!

[Spider.007]

Dat weten de mensen in PW vast een stuk beter. Wat is de exacte foutmelding?

Delphi LPT control > [Delphi] Driver error bij schrijven naar LPT poort *
SA > PW

[Verwijderd]

Spider.007 schreef op 12 november 2004 @ 13:03:
Dat weten de mensen in PW vast een stuk beter. Wat is de exacte foutmelding?

Delphi LPT control > [Delphi] Driver error bij schrijven naar LPT poort *
SA > PW

Error is: IO.sys is found, but drivers cannot be loaded (ergens in die zin).. ik heb het niet kunnen noteren, want niet kort na de error liep alles vast.

[Creepy]

IO.sys? Je importeer een IO.dll. Deze staat wel in dezelfde directory als je applicatie OF ergens in pad of in je windows system directory?

Je weet daarnaast ook zeker dat die IO.DLL ook in Windows NT/XP/ etc werkt?

[Verwijderd]

IO.DLL is goed.. dat is het probleem niet. Ik heb alleen een simpele commando nodig om mijn LPT poort aan te sturen. Lukt dus niet.

[Verwijderd]

Ik krijg de error overigens ook niet meer...maar hij doet ook niets..

[Creepy]

Zoek eens naar DLPortIO of DLPortI/O of DLPort I/O hier op het forum. Je bent lang niet de eerste die de LPT poort wilt aansturen