Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Inhalt Textdatei drucken (https://www.delphipraxis.net/77193-inhalt-textdatei-drucken.html)

Privateer3000 15. Sep 2006 21:38


Inhalt Textdatei drucken
 
Hi folk,

ist es möglich den Inhalt einer textdatei
zu drucken ohne vorher zu öffnen?
D.h. ohne ein form mit memo oder richedit
zu öffnen, sondern nur drucken.
Da es sich in diesem Fall um eine Logdatei
handelt ist es eben nicht unbedingt notwendig
diese sehen zu müssen.

Dank im vorraus!

Mackhack 15. Sep 2006 21:43

Re: Inhalt Textdatei drucken
 
Lad sie doch in eine TStringList und druck das ganze dann. Sollte doch gehen.

delphis spassbremse 15. Sep 2006 21:46

Re: Inhalt Textdatei drucken
 
richtig suchen.....

das gabs schonmal...


du nimmst dir ein memofeld was du auf visable := false; setzt.
dann nimmst du diesen code zum drucken:

File laden => OnCreate:
Delphi-Quellcode:
memo1.lines.loadfromfile('bla.txt');
Drucken button:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
    Zeile: Integer;
    PrintText: TextFile;
begin
if Application.MessageBox('Log wirklich Drucken?', 'Drucken', 36) = 6 then
begin
  AssignPrn(PrintText);
  Rewrite(PrintText);
  Printer.Canvas.Font := Memo1.Font;
  Writeln(PrintText, #13);
  Writeln(PrintText, #13);
  Writeln(PrintText, #13);
  for Zeile := 0 to Memo1.Lines.Count - 1 do
  Writeln(PrintText, '                 ' + Memo1.Lines[Zeile]);
  CloseFile(PrintText);
end;
end;

3_of_8 15. Sep 2006 21:47

Re: Inhalt Textdatei drucken
 
Wozu der Overkill? TStringList tuts doch auch.

delphis spassbremse 15. Sep 2006 21:49

Re: Inhalt Textdatei drucken
 
find ich so angenehmer.... und weil man das auch mit der filelistbox verknüpfen könnte

Privateer3000 15. Sep 2006 22:00

Re: Inhalt Textdatei drucken
 
Danke Leute, aber wirklich nicht so ein aufwand.
Ich wollte nun keine kompo extra machen dafür, ob nun visible oder nicht.
Wie wird dann eine TStinglist gedruckt?
Gibts das als Eigenschaft/Methode,
oder muss man eine funktion kreiern?

Danke

volkerw 16. Sep 2006 07:58

Re: Inhalt Textdatei drucken
 
Guten Morgen,
eine Zeile reicht aus, Ausgabe geht auf Standarddrucker:
Delphi-Quellcode:
ShellExecute(handle, 'print', 'c:\temp\test.log', '', '', SW_HIDE);
Gruß
Volker

Privateer3000 16. Sep 2006 14:15

Re: Inhalt Textdatei drucken
 
Prima!
Vielen Dank!


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz