Hat bei mir auch nicht funktioniert ...
Will's jetzt mit Hilfe des TWebbrowser lösen:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
Pfad:
String;
begin
Pfad := ExtractFilePath(paramstr(0));
WebBrowser1.Navigate(Pfad+'
index.html');
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
if ParamCount > 0
then
webbrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER)
else
WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER);
end;
Funktioniert auch, nur will er jetzt garnicht mehr aufhören zu drucken. Ist eine andere Procedure zu verwenden, oder was läuft hier falsch?
Nachtrag: Mir ist aufgefallen, dass er die HTML Seite im Webbrowser irgendwie ständig aktualisiert und deshalb auch ständig erneut druckt ... jemand ne Idee weshalb?!?
Problem ist folgendes:
Die
HTML Seite wird alle 30 Sekunden neu geladen ... Problem hierbei ist, ich krieg die
HTML Datei nur übergeben, heißt ich darf nichts an ihr verändern .
Code:
<
HTML><HEAD><TITLE>ZMI - Statustableau</TITLE><meta http-equiv="refresh" content="30">