Tweet
Không down được source code
Bác bxngoc vui lòng xem lai dùm đường link "http://203.162.148.211/web2lpt.zip". Em không down được.
Nguyên văn bởi bxngoc
Xem bài viết
Trong phần này chúng ta sẽ tạo một COM để truy cập LPT từ script ASP. Chắc chắn máy tính của các bạn đã cài Visual Studio 98 như đã yêu cầu (nếu không thì nhanh chân chạy ra Bùi Thị Xuân mua một đĩa về cài). Bạn khởi động Visual Basic lên và tạo một ActiveX DLL project (xem đính kèm). Project mới được mở ra với tên là Project1 và có sẵn một Class Module là Class1 đang trắng.
Nhấn chuột phải vào Project1 và chọn Project1 Properties... trong Project Name ta sẽ gõ: MyLPTCOM (đây là tên COM của chúng ta, oách chưa), Description: A simple DLL to read/write LPT port. Các mục còn lại giữ nguyên và nhấn OK.
Tiếp đến ta đổi tên Class1 cho nó meaningful, nhấp chuột vào Class1, trong cửa số Properties (nếu không thấy cửa số này thì bấm nào nút có hình bàn tay chỉ vào một tài liệu trên toolbar) nhập Name: LPTAccess.
Bây giờ ta lưu lại project để đề phòng cúp điện. VB sẽ hỏi đường dẫn để lưu MyLPTCOM.vbp và LPTAccess.cls, ta chọn lưu vào thư mục ví dụ là C:\LPT programming
Bây giờ ta viết code cho LPTAccess.cls, các bạn copy và paste toàn bộ đoạn code sau vào cửa sổ soạn thảo của LPTAccess.cls
Private Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Function InPort(PortAddress)
InPort = Inp(PortAddress)
End Function
Sub OutPort(PortAddress, Value)
Out PortAddress, Value
End Sub
Lưu project lại kẻo cúp điện
Thế là xong, bây giờ chúng ta sẽ biên dịch để tao ra MyLPTCOM.dll là COM của chúng ta. Vào menu File chọn Make MyLPTCOM.dll, VB sẽ hỏi thư mục để lưu file biên dịch, ta chọn C:\winnt\system32 (chúng ta xem MyLPTCOM.dll như một file hệ thống nên lưu vào thư mục hệ thống của windows), bấm OK, nếu không có thông báo lỗi nào thì COM của chúng ta đã được tạo.
Bây giờ chúng ta phải đăng ký MyLPTCOM.dll với windows, bấm Start chọn Run... và gõ Open: CMD và nhấn OK. Console của windows hiện ra (màn hình DOS quen thuộc ngày nào học vi tính căn bản), tại dấu nhắc C:\> gõ
C:\>regsvr32 C:\winnt\system32\MyLPTCOM.dll nhân Enter
Màn hình hiện ra thông báo DllRegisterServer in c:\winnt\system32\MyLPTCOM.dll succeeded. Nhấn OK, COM của chúng ta đã đăng ký thành công.
Giải lao tí xíu
Bây giờ ta có thể sử dụng MyLPTCOM trong script ASP như sau:
' Khai báo và khởi tạo COM
' Biến tham chiếu đến COM
Dim objLPT
' Khởi tạo COM
Set objLPT=Server.CreateObject("MyLPTCOM.LPTAccess")
' Để đọc từ cổng vào ta gọi
Result = objLPT.InPort(&H379) ' Đọc thanh ghi trạng thái
' Để ghi ra cổng ta gọi
objLPT.OutPort(&H378, value)
' Khi kết thúc truy xuất nhớ gọi
Set objLPT = Nothing
Các bạn có thể download toàn bộ source của MyLPTCOM và trang script ASP demo in/out LPT tại
http://203.162.148.211/web2lpt.zip
Nhấn chuột phải vào Project1 và chọn Project1 Properties... trong Project Name ta sẽ gõ: MyLPTCOM (đây là tên COM của chúng ta, oách chưa), Description: A simple DLL to read/write LPT port. Các mục còn lại giữ nguyên và nhấn OK.
Tiếp đến ta đổi tên Class1 cho nó meaningful, nhấp chuột vào Class1, trong cửa số Properties (nếu không thấy cửa số này thì bấm nào nút có hình bàn tay chỉ vào một tài liệu trên toolbar) nhập Name: LPTAccess.
Bây giờ ta lưu lại project để đề phòng cúp điện. VB sẽ hỏi đường dẫn để lưu MyLPTCOM.vbp và LPTAccess.cls, ta chọn lưu vào thư mục ví dụ là C:\LPT programming
Bây giờ ta viết code cho LPTAccess.cls, các bạn copy và paste toàn bộ đoạn code sau vào cửa sổ soạn thảo của LPTAccess.cls
Private Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Function InPort(PortAddress)
InPort = Inp(PortAddress)
End Function
Sub OutPort(PortAddress, Value)
Out PortAddress, Value
End Sub
Lưu project lại kẻo cúp điện
Thế là xong, bây giờ chúng ta sẽ biên dịch để tao ra MyLPTCOM.dll là COM của chúng ta. Vào menu File chọn Make MyLPTCOM.dll, VB sẽ hỏi thư mục để lưu file biên dịch, ta chọn C:\winnt\system32 (chúng ta xem MyLPTCOM.dll như một file hệ thống nên lưu vào thư mục hệ thống của windows), bấm OK, nếu không có thông báo lỗi nào thì COM của chúng ta đã được tạo.
Bây giờ chúng ta phải đăng ký MyLPTCOM.dll với windows, bấm Start chọn Run... và gõ Open: CMD và nhấn OK. Console của windows hiện ra (màn hình DOS quen thuộc ngày nào học vi tính căn bản), tại dấu nhắc C:\> gõ
C:\>regsvr32 C:\winnt\system32\MyLPTCOM.dll nhân Enter
Màn hình hiện ra thông báo DllRegisterServer in c:\winnt\system32\MyLPTCOM.dll succeeded. Nhấn OK, COM của chúng ta đã đăng ký thành công.
Giải lao tí xíu
Bây giờ ta có thể sử dụng MyLPTCOM trong script ASP như sau:
' Khai báo và khởi tạo COM
' Biến tham chiếu đến COM
Dim objLPT
' Khởi tạo COM
Set objLPT=Server.CreateObject("MyLPTCOM.LPTAccess")
' Để đọc từ cổng vào ta gọi
Result = objLPT.InPort(&H379) ' Đọc thanh ghi trạng thái
' Để ghi ra cổng ta gọi
objLPT.OutPort(&H378, value)
' Khi kết thúc truy xuất nhớ gọi
Set objLPT = Nothing
Các bạn có thể download toàn bộ source của MyLPTCOM và trang script ASP demo in/out LPT tại
http://203.162.148.211/web2lpt.zip
Comment