Gửi dữ liệu đến máy in USB ở Delphi

Question

Làm cách nào để gửi lệnh văn bản đến máy in được kết nối trong cổng USB bằng Delphi?

Tôi có máy in Zebra TLP2844 và muốn lập trình liên lạc trực tiếp với máy in.

Answer 1

Bạn sử dụng hàm WinAPI Escape, chuyển số Printer.Canvas.Handle làm thông số đầu tiên và PASSTHROUGH làm thông số nEscape.

var 
    YourCommand: String; 
begin 
    YourComamnd := 'Your command here'; 

    if Escape(Printer.Canvas.Handle, 
       PASSTHROUGH, 
       Length(YourCommand), 
       PChar(YourCommand), 
       nil) <> 0 then 
    // Handle return value (listed in docs link above) 
    else 
    // send next command 

Escape được xác định trong đơn vị Windows. Lưu ý rằng bạn phải gọi Printer.StartPage trước khi sử dụng chức năng này để chuẩn bị trình điều khiển máy in nhận nội dung.