Brauche Hilfe bei Zebra RFID Drucker

[Pump3r]

Also ich hab nen Epson und hab ihn über den COM Port angesteuert, das sieht dann so aus:

Delphi-Quellcode:

var

DeviceName: PChar;
ComFile: THandle;
DruckText: String;
BytesWritten: dword;

procedure TForm1.Button4Click(Sender: TObject);

begin
 ComPort1.Connected := true;
 ComPort1.Connected := false;
 //Drucken ->


  DeviceName := 'COM1:';
  ComFile := CreateFile(pchar(DeviceName),GENERIC_WRITE, 0, Nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

  //-----------------------------------------------------------------------

  DruckText := chr(27)+ chr(64); // ESC @ -> Drucker initialisieren.
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(27)+ chr(116)+ chr(0); // ESC t 0 -> Select character code table.
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(27) + 'a' + chr(1); //ESC a 1 -> Zentrieren der Daten.
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(29)+chr(66)+ '0'; // GS B n -> 1 = schwarz hinterlegt ,0 = normal
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  //-----------------------------------------------------------------------

  DruckText := chr(10);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := 'PC-Seriennummer:'+ chr(0); //SERIAL := 'Beschreibung_2' + chr(0);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(10);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := '044436101556'+ chr(0); //SERIAL := '044436101556' + chr(0);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(10);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  //-----------------------------------------------------------------------

  DruckText := chr(29)+ chr(104)+ chr(30); // Set heigt (GS h 120)
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(29)+ chr(119)+ chr(1); // Set width (GS w 30)
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(29) + 'k' + chr(4); //+ chr(0); //GS k 4
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := '044436101556'+ chr(0); //SERIAL := '044436101556' + chr(0);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  //-----------------------------------------------------------------------

  DruckText := chr(10);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := 'MAC-Adresse:'+ chr(0); //SERIAL := 'Beschreibung_1' + chr(0);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(10);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := '00-02-2d-66-f2-57' + chr(0); //MAC := '00-02-2d-66-f2-57' + chr(0);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(10);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  //-----------------------------------------------------------------------

  DruckText := chr(29)+ chr(104)+ chr(30); // Set heigt (GS h 120)
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(29)+ chr(119)+ chr(1); // Set width (GS w 30)
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := chr(29) + 'k' + chr(4); //+ chr(0); //GS k 4
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  DruckText := AnsiUpperCase('00-02-2d-66-f2-57')+ chr(0); //MAC := '00-02-2d-66-f2-57' + chr(0);
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  //-----------------------------------------------------------------------

  DruckText := chr(29) + chr(12); // Etikettenvorschub
  WriteFile(ComFile, PChar(DruckText)^, Length(DruckText), BytesWritten, NIL);

  //-----------------------------------------------------------------------

 CloseHandle(ComFile);
end;
end.

Vielleicht hilft dir das ja was


Gruß Pump,