So, die Delphi-
Unit ist jetzt fertig.
Delphi-Quellcode:
function LptOpen(LptNumber: DWORD): DWORD;
stdcall;
function LptClose(
Handle: DWORD): Boolean;
stdcall;
function LptRead(
Handle: DWORD;
Register: DWORD;
var Value: Byte): Boolean;
stdcall;
function LptWrite(
Handle: DWORD;
Register: DWORD; Value: Byte): Boolean;
stdcall;
function LptGetInfo(
Handle: DWORD;
var Info: LPT_INFORMATION): Boolean;
stdcall;
function LptGetLastError(): DWORD;
stdcall;
procedure LptSetOpenTimeout(Timeout: DWORD);
stdcall;
Ich gehe noch daran sie zu testen, falls sich allerdings schon jemand in einer VM dran wagen will, immer los. Ich gebe dann demnächst den Startschuß zum Betatest.
omata's Idee wird auch noch implementiert werden, so daß wir am Ende einen Treiber haben, der auch über Interruptsignale informiert und somit dem Programm ermöglicht auf diese zu reagieren.
Als "LptNumber" bei den obigen Funktionen gibt man 0 für LPT1 an, 2 für LPT3 usw.
Die Typen werden eventuell nochmal angepaßt. Anstatt die
DLL einzubinden, kann man logischerweise auch direkt die
Unit benutzen. Der Treiber muß vorher "manuell" gestartet werden (w2k_load, siehe oben).
Gruß,