SHARE
TWEET

Untitled

a guest Jul 15th, 2016 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. unit inpoutx64;
  2.  
  3. interface
  4.  
  5. Function DlPortReadPortUchar(Port:LongInt):byte;
  6. Function DlPortReadPortUshort(Port:LongInt):SmallInt;
  7. Function DlPortReadPortUlong(Port:LongInt):LongInt;
  8.  
  9. Procedure DlPortReadPortBufferUchar(Port:LongInt;
  10. var Buffer:Pointer; Count:LongInt);
  11. Procedure DlPortReadPortBufferUshort(Port:LongInt;
  12. var Buffer:Pointer; Count:LongInt);
  13. Procedure DlPortReadPortBufferUlong(Port:LongInt;
  14. var Buffer:Pointer; Count:LongInt);
  15.  
  16. Procedure DlPortWritePortUchar(Port:LongInt; Value:byte);
  17. Procedure DlPortWritePortUshort(Port:LongInt; Value:SmallInt);
  18. Procedure DlPortWritePortUlong(Port:LongInt; Value:LongInt);
  19.  
  20. Procedure DlPortWritePortBufferUchar(Port:LongInt;
  21. var Buffer:Pointer; Count:LongInt);
  22. Procedure DlPortWritePortBufferUshort(Port:LongInt;
  23. var Buffer:Pointer; Count:LongInt);
  24. Procedure DlPortWritePortBufferUlong(Port:LongInt;
  25. var Buffer:Pointer; Count:LongInt);
  26.  
  27. implementation
  28.  
  29. Function DlPortReadPortUchar; external 'inpoutx64.DLL';
  30. Function DlPortReadPortUshort; external 'inpoutx64.DLL';
  31. Function DlPortReadPortUlong; external 'inpoutx64.DLL';
  32.  
  33. Procedure DlPortReadPortBufferUchar; external 'inpoutx64.DLL';
  34. Procedure DlPortReadPortBufferUshort; external 'inpoutx64.DLL';
  35. Procedure DlPortReadPortBufferUlong; external 'inpoutx64.DLL';
  36.  
  37. Procedure DlPortWritePortUchar; external 'inpoutx64.DLL';
  38. Procedure DlPortWritePortUshort; external 'inpoutx64.DLL';
  39. Procedure DlPortWritePortUlong; external 'inpoutx64.DLL';
  40.  
  41. Procedure DlPortWritePortBufferUchar; external 'inpoutx64.DLL';
  42. Procedure DlPortWritePortBufferUshort; external 'inpoutx64.DLL';
  43. Procedure DlPortWritePortBufferUlong; external 'inpoutx64.DLL';
  44.  
  45. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top