Äquivalent für ShellExecute ("print", Filename) unter Linux

[MichaelT]

PostScript, PDF, Text und Bilder wird von CUPS direkt verstanden.

http://www.eecs.utk.edu/resources/it...x-command-line

https://people.gnome.org/~alexl/pres...6-printing.pdf

Wie weit das nützlich ist ....

So etwas wie Shell_Execute und anzeigen wäre gnome_url_show().

Die meisten formatierten Ausdrucke laufen über PDF und PDF/A.

Wobei Dokument einfach auf den Drucker schicken.

Zitat von Harry Stahl:

Unter Windows kann ich mit

ShellExecute (0, 'print', DocumentName, ...); eine bestimmte Dokumentdatei automatisch vom richtigen Programm öffnen und drucken lassen.

Aber wie geht das mit FreePascal/Lazarus unter Linux? Die Möglichkeit mit TProcess eine Datei ausführen zu können kenne ich, aber dann wird die Datei nur vom zugehörigen Programm geöffnet, ich will Sie aber direkt auch drucken. Gibt es evtl. dafür unter Linux einen bestimmten (Konsolen-) Befehl?

[creed steiger]

Was für Dokumente sind es genau?

xdg gibt sowas leider nicht her, aber evtl findet sich eine andere Lösung.

[jaenicke]

Es geht ja wie er schon oben geschrieben hat um keine bestimmten Dateien, sondern um beliebige Dateien. Und dafür gibt es nun einmal unter Linux keine Lösung wie unter Windows.

[creed steiger]

Zitat von jaenicke:

Es geht ja wie er schon oben geschrieben hat um keine bestimmten Dateien, sondern um beliebige Dateien. Und dafür gibt es nun einmal unter Linux keine Lösung wie unter Windows.

Beliebig? (Das funktioniert unter Windows auch nicht ohne die entsprechende Anwendungen)
Hab ich jetzt nicht so aus der Fragestellung herausgelesen.
Darum dir Frage nach den Formaten.

[Harry Stahl]

Ja, es ging mir schon um "beliebige" Dateien. Und klar, unterstellt wie bei Windows, dass dafür Anwendungen auf dem PC bereit stehen, die sich im System zum Öffnen und Drucken für den Dateityp registriert haben.

Aber wenn es sowas unter Linux nicht gibt, werde ich es dann wohl doch so machen, wie hier vorgeschlagen, dass ich zumindest für die wichtigsten Dateitypen prüfen werde, ob dafür Programme zum Öffnen auf dem System installiert sind und diese dann direkt mit einem richtigen Startparameter beim Start des Programms (bei Libre Writer z.B. "-p {Dateiname}") auf dem Drucker ausgebe.

[Harry Stahl]

So, ich habe das jetzt erst mal so gelöst, dass eine Reihe von Standard-Dokumententypen einfach mit den Programmen des Libre-Office-Pakets gedruckt werden, die ja eigentlich bei jeder größeren Linux-Distro mit dabei sind.

Delphi-Quellcode:

procedure ExecACommand (cmd: string);
var
  WrkProcess:TProcess;
begin
  WrkProcess:=TProcess.Create(nil);
  WrkProcess.Options:=[poNoConsole];
  WrkProcess.CommandLine:=Cmd;
  WrkProcess.Execute;
  WrkProcess.Free;
end; 

procedure PrintOutThisFile (fn: String);
var
  ext: string;
begin
  ext := lowercase (ExtractFileExt (fn));

  if pos (ext, '.odt.txt.doc.rtf.docx.pas.dfm') <> 0 then begin
    ExecACommand ('soffice --writer -p "' + fn + '"');
  end;

  if pos (ext, '.ods.xls.xlsx.csv') <> 0 then begin
    ExecACommand ('soffice --calc -p "' + fn + '"');
  end;

  if pos (ext, '.ppt.pptx') <> 0 then begin
    ExecACommand ('soffice --impress -p "' + fn + '"');
  end;

  if pos (ext, '.bmp') <> 0 then begin
    ExecACommand ('soffice --draw -p "' + fn + '"');
  end;
end;

procedure Tf_PrintFiles.bnPrintAllClick(Sender: TObject);
var
  L: Integer;
  pa: string;
begin
  for L := 0 to lbPrint.Count -1 do begin
    if lbPrint.checked[L] then begin
      PrintOutThisFile (lbPrint.items[L]);
      lbPrint.checked[L] := false;
    end;
  end;
end;

Gedacht ist diese Funktion z.B. wenn mann mehrere Dateien per Mail erhält (Textdokument, XLS und Powerpoint-Dateien), dann kann man die gewünschten Dateien auswählen und auf einmal zum Drucker schicken, man muss nicht jede einzelne Datei öffnen und die Druckfunktion aufrufen. Eine ungemeine Arbeitserleichterung (vgl. auch anl. Screenshot).

[JamesTKirk]

Du solltest vielleicht noch sicherstellen, dass du eventuelle Exceptions von TProcess abfängst, die zum Beispiel kommen, wenn soffice nämlich nicht installiert ist, denn wenn auch jede Distro LibreOffice im jeweiligen PacketManager hat, so muss es nicht auf jeder Benutzerinstallation auch vorhanden sein (einer meiner beiden ArchLinux Rechner hat zum Beispiel kein LibreOffice installiert).

Gruß,
Sven

[himitsu]

Zitat von Harry Stahl:

Delphi-Quellcode:

ext := lowercase (ExtractFileExt (fn));
  if pos (ext, '.odt.txt.doc.rtf.docx.pas.dfm') <> 0 then begin

Mit POS kannst du, dank der Mobilen Plattformen schnell mal stolpern,
denn neuerdings sind String 0-basierend.

Darum würde ich dir eher zu den neueren und ganz neuen Features raten.
z.B. ContainsText(X, S), MatchText(S, [X, X, ...]), S.ToLower.LastIndexOf(X)>=0
Vorallem die Record-Helper sind immer 0-basierend und arbeiten somit überall gleich, auch im Windows.