Einzelnen Beitrag anzeigen

Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#4

AW: TWebBrowser: Inhaltbereich markieren und drucken???

  Alt 4. Dez 2013, 02:46
Hallo,

leider kann ich wieder nur raten. Hilft Dir vielleicht folgendes weiter:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  d : IHTMLDocument3;
  e : IHTMLElement;
  t : string;
  r : IHTMLTxtRange;
begin
  d := WebBrowser1.Document as IHTMLDocument3;
  if not Assigned (d) then
    Exit;

  e := d.getElementById ('irgendelcheDetails');
  if Assigned (e) then
    begin
      t := e.innerText;
      r := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
      if r.findText (t, 0, 0) then
        begin
          r.select;
          WebBrowser1.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT)
        end
    end
end;
[EDIT]
Wenn es die NSA nicht wissen darf was Du selektiv ausdrucken möchtest, ok auch gut, ansonsten zeigt doch einfach den HTML-Code; helfen wird dann sicherlich einfacher.
[/EDIT]

Gruß
Volker Zeller

Geändert von Volker Z. ( 4. Dez 2013 um 02:56 Uhr)
  Mit Zitat antworten Zitat