Als erstes ganz oben in der
Unit: USES PortIO
Dann Treiber aktivieren, etwa so:
Delphi-Quellcode:
PROCEDURE TForm1.Treiberaktivieren;
BEGIN
DLPortIO.DriverPath:=ExtractFileDir(ParamStr(0));
// ShowMessage(DLPortIO.DriverPath);
if (DLPortIO.ActiveHW) then BEGIN
Label1.Color:=CLgreen;
Label1.caption:='Treiber aktiv!';
END
else BEGIN
Label1.Color:=CLred;
Label1.caption:='Treiber nicht aktiv!';
END;
DLPortIO.OpenDriver();
if (not DLPortIO.ActiveHW) then
begin
MessageBeep(0);
Application.MessageBox('Driver not found',
' Warning! ',mb_OK or mb_ICONHAND);
end;
// HWCtrl.HardAccess:=true;
if DLPortIO.ActiveHW then BEGIN
Label1.Color:=CLgreen;
Label1.caption:='Treiber aktiv!';
END
else BEGIN
Label1.Color:=CLred;
Label1.caption:='Treiber nicht aktiv!';
END;
END;
Und dann kannst Du mit der obigen Anweisung arbeiten.
REPEAT UNTIL (DLPortIO.PortW[Portadr] AND 32)=32; liest den Port aus. Man kann aber auch hineinschreiben.
Der Treiber enhält übrigens eine umfangreiche Dokumentation.
Wichtig ist noch, dass der Treiber und
DLL (DLPORTIO.SYS, DLPORTIO.DLL) entweder im Programmverzeichnis direkt stehen oder im WINXP\system32\Driver Verzeichnis!
[edit=Christian Seehase] Delphi-Tags gesetzt. Mfg, Christian Seehase[/edit]