Embedded WB Ftp Laufwerk

[ScharfeMietze]

Danke für die Antwort.
Nachdem ich MSHtml in die Uses geschmissen habe und davon ausgehe das "doc2" ein "IHTMLDocument2" ist, bekomme ich die Fehlermeldung: "Interface wird nicht unterstützt."
Wo liegt mein Fehler?

Grüße
SM

Delphi-Quellcode:

var
  lDispatch: IDispatch;
  lHTMLCollection: IHTMLElementCollection;
  lHTMLElement: IHTMLElement;
  i: Integer;
  doc2: IHTMLDocument2;
begin
 doc2 := embdwb1.document as IHTMLDocument2;


  lDispatch := Doc2.all;
  if Assigned(lDispatch) then
  begin
    lDispatch.QueryInterface(IHTMLElementCollection, lHTMLCollection);
    if Assigned(lHTMLCollection) then
    begin
      i := 1;
      while (i <= lHTMLCollection.length) do
      begin
        // Ermittle mal das HTMLElement
        lDispatch := lHTMLCollection.item(pred(i), 0);
        lDispatch.QueryInterface(IHTMLElement, lHTMLElement);
        if Assigned(lHTMLElement) then
        begin
          if (CompareText(lHTMLElement.TagName, 'A') = 0) then
          begin
            mmo1.Lines.Add(lHTMLElement.tagName);
          end;
        end;
        inc(i);
      end;
    end;
  end;
end;

[win568]

Probier mal embdwb1.Doc2. Der EmbeddedWB hat bereits alles drinnen

[p80286]

[OT]
auch wenn ich mich jetzt als Ignorant oute, was ist (Embedded) WB ?
Gruß
K-H
[/OT]

[win568]

Der EmbeddedWB ist ein Wrapper um das ActiveX Control des IE. Es gibt zwar auch den TWebbrowser von Delphi, nur wrappt der TEmbeddedWB eine Unmenge mehr an Interfaces. Er ist so ziemlich die Komponente, die die Möglichkeiten des IE am besten in Delphi abbildet:

github Master

[p80286]

Danke!

K-H

[ScharfeMietze]

Könntest du das etwas genauer ausführen? Alle varianten, die ich bisher versucht habe, endeten entweder mit Zugriffsverletzungen, oder wie vorher schon erwähnt
"Interface wird nicht unterstützt." duch das lDispatch
Hätt ich ne Maus, würd ich sie Melken
Liebe Grüße
SM

[ScharfeMietze]

Auch hier würde ich mich wenn jemand Rat weiß freuen.
Gruß