GORAGOD.com

การใช้งาน
แตกไฟล์ rar ออก ข้างในจะพบไฟล์ IO32.pas, inpout32.dll และ hwinterface.sys
ทำการ Install คอมโพเน้นท์ และกำหนด Search Path ให้ถูกต้อง แล้วทำการสั่ง Compile เป็นอันเสร็จสิ้นกระบวนการติดตั้ง Component
ถ้า คุณใช้ Windows 98 หรือ ME คุณจะสามารถใช้งาน Source Code ได้เลยแต่ถ้าคุณใช้ Windows XP (ไม่เคยทดสอบบน NT) คุณจะต้องทำขั้นตอนต่อไป
ทำการ copy inpout32.dll ไปที่ \windows\system32
พิมพ์ regsvr32 inpout32.dll ลงในหน้าต่าง Start-->Run เป็นการลงทะเบียนไฟล์
ไม่ต้องสนใจ Error ที่แจ้งออกมา และทำการ Restart เครื่องใหม่เป็นอันเสร็จสิ้นกระบวนการติดตั้ง
เราสามารถลบไฟล์ inpout32.dll ทิ้งได้ เพราะไม่มีความจำเป็นต้องใช้ในโปรแกรมของเรา

การทำงาน

ในการทำงานปกติบน Windows 98 หรือ ME เราสามารถ ใช้งานพอร์ตขนานได้โดยผ่าน Assembler คือ

procedure _Out(AddressPort: WORD; Val: Byte);
begin
  asm
    push dx
    mov  dx, AddressPort
    mov  al, Val
    out  dx, al
    pop  dx
  end;
end;

function _In(AddressPort: WORD): Byte;
begin
  asm
    push dx
    mov  dx, AddressPort
    in   al, dx
    mov  Result, al
    pop  dx
  end;
end;

แต่ถ้าเป็นบนวินโดวส์ XP เราจะต้องเรียกใช้ผ่้านบริการ Service ซึ่งก็คือ hwinterface นั่นเอง

//ขั้นตอนหลัก ขั้นตอนแรก เป็นการเปิดไดร์เวอร์  hwinterface
hdriver := CreateFile('\?\hwinterface',
  GENERIC_READ or GENERIC_WRITE,
  0,
  nil,
  OPEN_EXISTING,
  FILE_ATTRIBUTE_NORMAL,
  0);
//หลังจากนั้นจึงจะเขียน หรือ อ่านค่า พอร์ตขนานได้
procedure TPort.PortOut(AddressPort, Val: SmallInt);
var
  BytesReturned: DWORD;
  Buffer: array[0..3] of Byte;
begin
  if (hdriver = 0) then _Out(AddressPort, Val)
  else begin
    FillChar(Buffer, SizeOf(Buffer), 0);
    CopyMemory(@Buffer, @AddressPort, SizeOf(AddressPort));
    Buffer[2] := LOBYTE(Val);
    DeviceIoControl(hdriver,
      DWORD(IOCTL_WRITE_PORT_UCHAR),
      @Buffer,
      3,
      nil,
      0,
      BytesReturned,
      nil);
  end;
end;

function TPort.PortIn(AddressPort: WORD): SmallInt;
var
  BytesReturned: DWORD;
  Buffer: array[0..3] of Byte;
begin
  if (hdriver = 0) then Result := _In(AddressPort)
  else begin
    FillChar(Buffer, SizeOf(Buffer), 0);
    CopyMemory(@Buffer, @AddressPort, SizeOf(AddressPort));
  DeviceIoControl(hdriver,
      DWORD(IOCTL_READ_PORT_UCHAR),
      @Buffer,
      2,
      @Buffer,
      1,
      BytesReturned,
      nil);
    Result := Buffer[0];
  end;
end;
//และเลิกการใช้งานด้วย
CloseHandle(hdriver);

หมายเหตุ
inpout32.dll เป็น dll ที่พัฒนาขึ้นเพื่อใช้ในการเรียกใช้พอร์ตขนานบน windows XP โดยเฉพาะ ผมจำเวปไซต์ที่เกี่ยวข้องไม่ได้
แต่ผมพัฒนา unit IO32 นี้มาจาก ซอร์สโค้ดของ inpout32.dll ซอร์สโค้ดของ inpout32.dll ซึ่งเขียนขึ้นมาจากภาษา C++ ถ้าต้องการความรู้เพิ่มเติมให้ลอง Search หาดูนะครับ

การนำโปรแกรมที่เขียนขึ้นจาก ซอร์สโค้ดนี้ ไปใช้งาน (EXE) จำเป็นต้องลงทะเบียนไฟล์ทั้งสองก่อนเสมอ ดูตัวอย่างการใช้งานได้ที่โปรแกรม Video Capture และ Telephone Recorder