Zitat von
Wathlon:
Hallo, wenn
Zitat von
MaBuSE:
doc = nil -> nix passiert
dann soll ja auch nix geschehen, sondern nur wenn
if Doc <> nil then In dem TWebBrowser ist ein PDF geladen.
(Ich seh es ja auf dem Bildschirm)
Trozdem druckts mit deiner Funktion nicht.
(Vieleicht bin ich ja auch nur zu blöd)
Hast Du einen Hinweis für mich?
Delphi-Quellcode:
...
procedure TForm1.wbNavigateComplete2(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
istFertig := True;
end;
...
wb := TWebBrowser.Create(ts);
TControl(wb).Parent := ts;
wb.Align := alClient;
wb.OnNavigateComplete2 := wbNavigateComplete2;
istFertig := False;
wb.Navigate(ExpandFileName('
Test.pdf'));
while not istFertig
do Application.ProcessMessages;
wb.Document.QueryInterface(IID_IHtmlDocument2, Doc);
if Doc <>
nil then
begin
doc.execCommand('
Print', true, null);
end;
...
[edit]
Zitat von
Wathlon:
Ich verwende Win2000, IE6.0, AcroReader 5.0.5, D7
Ich verwende WinXP, IE6.0, AcroReader 7.0.0, D7
[/edit]