Delphi'de USB yazıcıya veri gönderme

Question

Delphi kullanarak USB bağlantı noktasına bağlı bir yazıcıya metin komutları nasıl gönderirim?

Zebra TLP2844 yazıcım var ve onunla doğrudan iletişim kurmak istiyorum.

Answer 1

Sen nEscape parametre olarak bunu ilk parametre olarak Printer.Canvas.Handle ve PASSTHROUGH geçen WinAPI işlevini Escape kullanın.

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 

EscapeWindows ünite tanımlanmıştır. Yazıcı sürücüsünün içerik almasını sağlamak için bu işlevi kullanmadan önce Printer.StartPage numaralı telefonu aramanız gerektiğini unutmayın.