Markierten Text aus Webbrowser auslesen

[Yheeky]

Okay, mit der SHDocVw_TLB hat es geklappt aber die mshtml.tlb habe ich immer noch nicht reinbekommen. Die Datei TLIBIMP gibt´s auch nicht bei mir im BIN Verzeichnis. Wie kann ich die Datei denn sonst reinbekommen?

[marabu]

Das Utility TLIBIMP.EXE wird bei D5 in das BIN-Verzeichnis installiert. Eventuell hast du die Installation unterdrückt. Auf der Installations-CD sollte es drauf sein. Der Aufruf bei D5 ist auch etwas abweichend von D7:

Code:

tlibimp -A- %windir%\system32\mshtml.tlb

-A- unterdrückt das hässliche Suffix. Oder du schaust im Anhang.

marabu

[Yheeky]

Okay, nun funktioniert das.
Das funktioniert aber nur, wenn ich einen IE Browser bei mir im Programm einbaue. Wie würde das mit externen Browsern funktionieren? Das interessiert mich eigentlich viel mehr...

[marabu]

Hast du Beitrag #5 schon gelesen?

[Yheeky]

Ja, aber bei dem Code kommt bei mir nur "Undefinierter Bezeichner: IShellWindows" :(

[marabu]

Bei mir nicht. Streng dich bitte etwas mehr an - immerhin musst du bald meine Rente finanzieren.

Delphi-Quellcode:

uses
  MSHTML,
  ActiveX,
  ShlObj;

function SelectedText(doc: IHTMLDocument2): String;
begin
  with doc.selection.createRange as IHTMLTxtRange do
    Result := text;
end;

function InternetExplorer: IWebBrowser2;
var
  sw: IShellWindows;
  i: Integer;
  disp: IDispatch;
begin
  sw := CoShellWindows.Create;
  for i := 0 to Pred(sw.Count) do
  begin
    disp := sw.Item(i);
    if Succeeded(disp.QueryInterface(IID_IWebBrowser2, Result)) then
      Exit;
  end;
  Result := nil;
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  wb2: IWebBrowser2;
begin
  wb2 := InternetExplorer;
  if Assigned(wb2) then
    ShowMessage(SelectedText(wb2.Document as IHTMLDocument2));
end;

Freundliche Grüße vom marabu

[Yheeky]

Leider lässt mich Delphi nicht für deine Rente arbeiten... :roll:

[DGL-luke]

Das Statement, das hier den aufkommenden Zweifel an deiner geistigen Verfassung zerstreuen würde, wäre "Ich habe die selben Sachen in den Uses wie marabu, es geht aber trotzdem nicht".

;)

[marabu]

Drückeberger.

Dein Bild zeigt den falschen Ausschnitt aus dem Quelltext. Was hast du in der Uses-Klausel angegeben? IWebBrowser2 ist in ShDocVw deklariert.

marabu

@Lukas: eins rauf mit Mappe

[Yheeky]

Ai, das musste auch noch dazu sagen. Ich habe gedacht, dass das alle sind, die du in die Uses reingeschrieben hast. ;) Danke trotzdem schonmal!

Nun geht das mit dem Internet Explorer, aber nicht, wenn ich den IE 2 mal auf habe. Dann wird nur der erste von beiden ausgelesen.
Kann man diesen Code nun noch auf andere Browser übertragen?