hallo,
ich habe eben versucht diesen Quelltext zu verwenden
Delphi-Quellcode:
procedure TForm1.WebBrowser_V1NavigateComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var HTMLDoc: IHTMLDocument2;
HTMLWnd: IHTMLWindow2;
HTMLWindow3: IHTMLWindow3;
begin
HTMLDoc := (Sender
as TWebBrowser).Document
as IHTMLDocument2;
if HTMLDoc =
nil then
raise Exception.Create('
Couldn''
t convert the WebBrowser to an IHTMLDocument2');
HTMLWnd := HTMLDoc.parentWindow;
HTMLWindow3 := HTMLWnd
as IHTMLWindow3;
// Finally, we get to the print method
HTMLWindow3.print;
end;
natürlich inklusive einem TWebbrowser und die besagte
Unit MSHTML.PAS eingebunden, bekomme das ganze aber nciht zum laufen
dass die Klammer nach TObject in der Zeile verrutscht ist habe ich ausgebessert, hier aber meine Ferhlermeldungen
[Fehler] Unit1.pas(27): Undefinierter Bezeichner: 'WebBrowser_V1NavigateComplete'
[Fehler] Unit1.pas(27): ';' erwartet, aber '(' gefunden
[Fehler] Unit1.pas(28): '=' erwartet, aber ';' gefunden
[Fehler] Unit1.pas(33): Undefinierter Bezeichner: 'Sender'
[Fehler] Unit1.pas(33): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Unit1.pas(33): Operator ist auf diesen Operandentyp nicht anwendbar
[Fataler Fehler] websdruck.dpr(5): Verwendete
Unit 'Unit1.pas' kann nicht compiliert werden
kann mir da jemand weiterhelfen ???
