USB Programmierung

[squetk]

Hallo,

wir haben Barcode-Drucker im Einsatz, die per USB angeschlossen sind und mittels Text-Kommandos programmiert werden. Dazu nutze ich diese Funktion:

Delphi-Quellcode:

 
procedure WriteRawStringToPrinter(PrinterName, DocName, PrintString : String);
var Handle: THandle;
    N: DWORD;
    DocInfo1: TDocInfo1;
begin
  if not OpenPrinter(PChar(PrinterName), Handle, nil) then
    raise Exception.Create(IntToStr(GetLastError));
  with DocInfo1 do
  begin
    pDocName    := PChar(DocName);
    pOutputFile := nil;
    pDataType   := 'RAW';
  end;
  StartDocPrinter(Handle, 1, @DocInfo1);
  StartPagePrinter(Handle);
  WritePrinter(Handle, PChar(PrintString), Length(PrintString), N);
  EndPagePrinter(Handle);
  EndDocPrinter(Handle);
  ClosePrinter(Handle);
end;