Drucken Delphi

[langer hans]

Hallo,
ich versuche im moment verzweifelt delphi dazu zu bringen etwas an einem drucker zu drucken. die lpt ansteuerung an sich geht, nur mach ich scheinbar was mit der reihenfolge falsch.

procedure TForm1.bt_sendClick(Sender: TObject);
var i: integer;
begin
for i:=1 to length(ed_send.Text) do begin
LPT.writePort($378, Ord(ed_send.Text[i]));
pause(100); 
LPT.writePort($378+1, $00);
pause(100);
LPT.writePort($378+1, $01);
LPT.writePort($378, $00);
pause(100);
end;
end;

was mach ich falsch? kennt jemand ein tutorial oder hat zufällig quellcode? ich suche aber kein tutorial für LPT ansteuern, wiegesagt, das geht alles perfekt... nur der drucker fühlt sich nicht angesprochen und bis auf 1 LED die angeht wenn ich strobe setzte passiert null....
danke

langer hans

 

[Chris2603]

Hi, also an deiner stelle würde ich versuchen das problem ganz anders anzugehen ich würde zu erst auf die idee kommen das windows ( denk ma wirst du als betriebssystem haben) eine eigene Druckerverwaltung besitz warum versuchte nich ganz einfach einem bestimmten drucker einen druckauftrag zu übergeben fände ich einfacher als den drucker dierekt an zu steuern.

Und du wirst doch sicherlich über Internet verfügen, da gibt es eine recht weit verbreitete Suchmaschien "google" ich hab da mal --> "delphie drucker ansteuern tutorial" eingegeb und bin auf z.B. diese vieleicht ganz nützliche seite gekommen Drucker LPT mit Delphi ansteuern ich denk auch mal das für dich allgemein diese Seite ganz hilfreich sein kann auch für weitere Projekte

MFG

Chris2603

 

[langer hans]

Danke erstmal!
Aber:

Erstens will ich es direkt aus delphi heraus machen. zweitens hab ich gegoogelt und "delphi drucker ansteuern tutorial" bringt nicht viel da ich ja weis wie man den LPT ansteuert...
Nur die signale/reichenfolge und so hab ich eben nicht...

mfg

 

[Palad]

Hallo langer hans,

ich habe vor ein paar Jahren mal eine Kasernenverwaltung mit Druck-Unterstützung programmiert und mir im Programm dann beim Klick auf "Drucken" das standard-Druckfenster anzeigen lassen und dann folgendes:

units ..., Printers;
[...]

if PrintDialog1.Execute then // Nach dem Beendigen des Druckdialoges...
begin
Printer.BeginDoc; // Druckauftrag wird begonnen.
Printer.Title:='Soldat drucken'; // Titel des Auftrage, der im Druckmanager angezeigt wird.
Breite:=GetDeviceCaps(Printer.Canvas.Handle, HORZSIZE)*10; // Blattbreite in 1/10 Millimeter verwenden
LinkerRand:=250; // Breite des linken Randes (2,5cm)
ObererRand:=250; // Breite des oberen Randes (2,5cm)
x:=LinkerRand; // x-Anfangskoordinate werden festgelegt.
y:=ObererRand*-1; // Ursprung ganz oben Links am Blatt.
SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC); // Allgemeine Umstellung auf 1/10 Millimeter
Printer.Canvas.Font.[Schrifteinstellungen]
Printer.Canvas.TextOut(x, y, 'Persönliche Daten'); // Textausgabe bei den Koordinaten x und y. Um auf der Seite weiter nach unten zu kommen muss y jetzt immer negativer werden.
Printer.EndDoc; // Dokument wird gedruckt

Ich hoffe du kannst damit etwas anfangen, ich erinnere mich auch nur noch daran, dass das mit dem Erlernen für mich eine Heidenarbeit war. Scheint wohl einfacher mit dafür gedachten Programmen wie "Rave Reports" zu sein, aber das ist nur finanziell erhältlich (oder du lädst bei mir notgedrungen die ganze Delphi-2007-Version herunter, da ist es auch dabei).

Viel Glück damit, halte uns am besten über dein Fortschritte auf dem Laufenden,

Palad :bing:

 

[langer hans]

Vielen dank erstmal!
Problem ist folgendes:
Ich will die Schnittstelle selbst programmieren.
Dafür habe ich eine Klasse die es mir erlaubt auf bestimmte Hardware-Adressen direkt zu schreiben ($378 für den LPT).

Wenn ich an den LPT nun ein Steuergerät für LEDs hänge, leuchten auch die entsprechenden schön...
Allerding braucht der Drucker auch etwas Vorlauf um dann zu drucken. Es müssen bestimmte Steuersignale gesetzt werden (Strobe....).
Mir geht es jetzt um die zeitliche Abfolge der Signale die der Drucker braucht um zu arbeiten.

Ich hoffe das war jetzt verständlich

mfg