- Offizieller Beitrag
Moin,
ich habe mal wieder ein kleines Problem unter Deplhi. Und zwar möchte ich etwas auf den Drucker ausgeben, ohne das die Druckerwarteschleife von Windows angesprochen wird.
Also der Auftrag soll direkt auf LPT1 ausgegeben werden.
Ich habe das mal so probiert.
Code
//Variablen Deklaration
var Zeile:array[0..7] of string;
Datei:TextFile;
//Für das Drucken relevanter Teil der Prozedur
begin
ShowMessage('Test');
AssignFile(Datei, 'LPT1:'); // Neue Datei erstelle, mit Dateinamen der in "TextDateiName" gespeichert ist.
Rewrite(Datei); // Datei zurücksetzen
Zeile[0]:='Segmentsystem';
Zeile[1]:='-------------';
Zeile[2]:='';
Zeile[3]:='Schleifsegmente';
Zeile[4]:='Typ:' + Typ;
Zeile[5]:='Korn:'+ Korn;
Zeile[6]:='Stück/Satz:' + Stueck;
Zeile[7]:='Satz:'+ Satz;
Writeln(Datei, Zeile[0]);
Writeln(Datei, Zeile[1]);
Writeln(Datei, Zeile[2]);
Writeln(Datei, Zeile[3]);
Writeln(Datei, Zeile[4]);
Writeln(Datei, Zeile[5]);
Writeln(Datei, Zeile[6]);
Writeln(Datei, Zeile[7]);
System.CloseFile(Datei); // Datei schließen
ShowMessage('Drucken erfolgreich');
//assignfile(LstByte,'LPT1');
end;Jetzt hab ich das Problem, dass er manchmal was auf den Drucker ausgibt, aber manchmal auch nicht! 
Oder kann es sein, dass es unter Windows XP Probleme gibt mit der direkten ansteuerung des Druckerports?
