Drucken mit ShellExecute unter Win7

[citybreaker]

Hallo,

mit ShellExecute möchte ich eine Html Datei ausdrucken. Unter Windows XP funktioniert das ganze einwandfrei. Ich drücke auf meinen Button es erscheint ein Drucken Dialog (ich glaube vom IE) und die Datei wird gedruckt.

Ganz anders hingegen verhält sich das ganze unter Windows 7. Ich drücke wie gewohnt den Drucken Button nur mit dem unterschied, dass jetzt einfach gar nichts passiert.

Delphi-Quellcode:

ShellExecute(handle, 'print', PChar(ExtractFilePath(Application.Exename) + 'printme.html'), nil, nil, SW_HIDE);

Weiß jemand woran das liegen kann? Gibt es event. eine bessere/weitere möglichkeit Html Datein zu drucken? Ich würde nur ungern auf den TWebBrowser oder ähnliches zurückgreifen.

[Luckie]

Ist dein eine Anwendung mit der Dateiendung html und dem Verb "print" verknüpft?

[citybreaker]

Weiß nicht? Kann ich das irgendwo nach sehen?

[himitsu]

Das "Print" muß für diesen Dateityp auch registriert sein.

Gibt es im Explorer, im Contextmenü, Print/Drucken und funktioniert das?

HKEY_CLASSES_ROOT\.html
> Standardwert = nächster Link (bei mir "(Standard)" = "FirefoxHTML")

HKEY_CLASSES_ROOT\FirefoxHTML\shell\print\...
Und das gibt es nicht, also woher soll ShellExecute dann wissen wie und mit welchem Programm gedruckt wird.

[DeddyH]

ShellExecute ist eine Funktion und gibt im ggf. auch einen Fehlercode zurück, der gibt dann Aufschluss über die Ursache ;)

[citybreaker]

Da fehlte Tatsächlich der Eintrag "print" und "command" be FirefoxHtml. Das heißt ich müsste
die Datenbank erstmal vor dem Drucken prüfen lassen, ob der entsprechende Eintrag vorhanden ist und dann
event. diesen einfügen?


Was genau ist denn bei euch bei Command eingetragen? (HKEY_CLASSES_ROOT\FirefoxHTML\shell\print\command )

-- Edit --
Ist da mit dem FirefoxHTML auch gültig wenn Firefox gar nicht installiert ist?

[DeddyH]

Bei mir gibt es nur den "open"-Schlüssel. Mit dem Eintragen könnte es aber unter Umständen schwierig werden, sofern Dein Programm nicht ohnehin mit Adminrechten läuft. Eine Schnellsuche meinerseits, ob es evtl. einen passenden Kommandozeilenparameter für Firefox (so in der Art "firefox.exe -p Dingens.html") gibt, war leider nicht von Erfolg gekrönt.

[pmoegenb]

Zitat:

Zitat von citybreaker (Beitrag 1170406)

Delphi-Quellcode:

ShellExecute(handle, 'print', PChar(ExtractFilePath(Application.Exename) + 'printme.html'), nil, nil, SW_HIDE);

Weiß jemand woran das liegen kann? Gibt es event. eine bessere/weitere möglichkeit Html Datein zu drucken? Ich würde nur ungern auf den TWebBrowser oder ähnliches zurückgreifen.

Vielleicht so ?

Delphi-Quellcode:

ShellExecute(handle, 'print', PChar(ExtractFilePath(Application.Exename) + '\printme.html'), nil, nil, SW_HIDE);

[DeddyH]

Wo ist da jetzt der große Unterschied, vom doppelten Backslash bei Deinem Vorschlag abgesehen? Das Problem ist ja, dass mit der Dateiendung keine Anwendung zum Druck verknüpft ist.

[citybreaker]

Ich habe mal auf dem Rechner nach geguckt auf dem XP installiert ist. Da steht bei Command der Pfad zu einer Exe im Office Ordner. Das kann ich so nicht übernehmen,
da ich kein Office auf dem Win7 Rechner installiert habe. Scheint als müsste ich noch eine andere möglichkeit finden.

Kann man die Html Datei irgendwie über Canvas drucken? Wenn alle stricke reißen werde ich wohl doch den TWebBrowser nehmen. MS Internet Explorer sollte ja auf jedem
Windows Rechner installiert sein?!

[Bummi]

Vielleicht kannst Du mit diesem Ansatz etwas anfangen

Delphi-Quellcode:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private-Deklarationen }
    Fcomplete:Boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}
procedure WebBrowserPrint(const AWebBrowser : TWebBrowser; PrinterDialog : Boolean = true);
var
  vaIn, vaOut: OleVariant;
begin
  if PrinterDialog then
    AWebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut)
  else
    AWebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

procedure TForm5.Button1Click(Sender: TObject);
Const
 C_TIMEOUT=10000;
var
 wb:TWebBrowser;
 tc:Cardinal;
begin
   FComplete := false;
   wb:=TWebBrowser.Create(self);
   try
   wb.Left := -5000;
   wb.ParentWindow := self.Handle;

   wb.OnDocumentComplete := WebBrowser1DocumentComplete;
   wb.Navigate('C:\temp\Browser.html');
   tc := GetTickCount;
   while not FComplete and ((GetTickCount - tc) < C_TIMEOUT) do
      begin
         Application.ProcessMessages;
      end;
   finally
     wb.Free;
   end;

end;

procedure TForm5.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  TwebBrowser(ASender).OnDocumentComplete := nil;
   WebBrowserPrint(TwebBrowser(ASender));
   FComplete := true;
end;

end.

[nahpets]

Hallo,

schau doch mal bitte hier: http://www.ericphelps.com/batch/rundll/ und suche dort nach print HTML.

Dort steht eine Kommandozeile, mit der HTML-Seiten gedruckt werden können.
Eventuell kannst Du das ja in der Registry bei HTMLFile\shell\Print\command nutzen.

[citybreaker]

Danke Bummi für den Lösungsansatz, werde morgen ein bisschen damit rumspielen und ausprobieren.

Das mit dem Kommandozeile ist auch eine interessante Idee. Allerdings ist die genannte Datei "MSHTML.DLL"
nicht auf meinem PC vorhanden. Ich werde mal gucken, ob ich die irgendwo her bekomme. Die Frage ist
nur ob man die dann einfach mit weiter geben darf.

[mkinzler]

Diese gehört zum IE. Wäre wirklich komisch, wenn die bei dir fehlen würde

[citybreaker]

Hast recht, habe die Datei gefunden. War nur in nem anderen Ordner drinne (system32 und nicht system). War wohl etwas voreilig. :oops: