Lieber Besucher, herzlich willkommen bei: Delphi-Treff-Forum. Falls dies dein erster Besuch auf dieser Seite ist, lies bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.

DelphiCrack

Benutzer

  • »DelphiCrack« ist der Autor dieses Themas

Beiträge: 128

Registrierungsdatum: 31. August 2004

Beruf: Programmierer Datenbanken Messgeräte ansteuern

  • Private Nachricht senden

1

Mittwoch, 14. Februar 2007, 14:55

Drucken mit USB

Hallo Leute,
habe mal wieder eine Frage.
ich steure einen Etiketten Drucker mir Escape Befehlen.

Delphi-Quellcode

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
  schnittstelle = 'LPT1';
var
   druck    :TextFile;
function AssDrucker : boolean;
begin
  AssignFile(druck,schnittstelle);
  {$I-}
  rewrite(druck);
  {$I+}
  If ioresult <> 0 Then
  begin
    showmessage('Fehler beim Drucken LPT1 ist gesperrt!');
    CloseFile(druck);
    result:=false;
  end else result:=true;
end;

das funktioniert einwandfrei.
Jetzt zur eigentlichen Frage:
Wie mache ich das mit USB?
const
schnittstelle = 'USB001';
das geht so nicht!
Danke und Gruss
DC
geht nicht gibt's nicht!

HolgerX

Delphi-Experte

Beiträge: 197

Registrierungsdatum: 20. Mai 2005

IDE: weiß nicht

  • Private Nachricht senden

2

Donnerstag, 15. Februar 2007, 05:49

Hallo,

leider nicht mehr so einfach!

Aber hier mal ein paar links (von den Sweizern ;-) )

http://www.swissdelphicenter.ch/de/showcode.php?id=716
http://www.swissdelphicenter.ch/de/showcode.php?id=940

und ein weiterer

http://www.delphi-fundgrube.de/faq13.htm
->Texte unter Windows als Text und nicht als Grafik drucken

Schauiii...

Holger

KB-Selbst

Teammitglied a.D.

Beiträge: 5 537

Registrierungsdatum: 5. März 2004

Beruf: Dipl.Ing.

IDE: weiß nicht

  • Private Nachricht senden

3

Donnerstag, 15. Februar 2007, 08:50

Re: Drucken mit USB

Zitat von »DelphiCrack«

Delphi-Quellcode

1
AssignFile(druck,schnittstelle);
Hast du mal probiert mittels CreateFile einen Druckerkanal zu öffnen und mit den entsprechenden Routinen zu schreiben?
Jeder, der zur wahren Erkenntnis hindurchdringen will, muss den Berg Schwierigkeit alleine erklimmen (Helen Keller).