erhalten die "selection Element" und änderung einige Eigensc

[mr_fahrrad]

Wie ich das vorgewählte Element (und wenn eine Tabelle ist) und Wahrscheinlichkeit erhalten einige Eigenschaften?
Ich erhalte das vorgewählte Element:

Delphi-Quellcode:

var ov:OleVariant;  
:  
ov:=WebBrowser.OleObject.document.Selection.CreateRange.item(0);

Jetzt muß ich ov zu IHTMLTable2 ändern, wie ich bilde es? Danke


---------------
In English

How I get the selected element (and if is a Table) and chance some properties?

I get the selected element:

Delphi-Quellcode:

var ov:OleVariant;  
:  
ov:=WebBrowser.OleObject.document.Selection.CreateRange.item(0);

Now I need to change ov to IHTMLTable2, How I make it? Thanks

[jokerfacehro]

heyho !

ich habe da einen anderen ansatz ;)

lese doch die html seite komplett als string ein:

Delphi-Quellcode:

uses mshtml;

var tr: IHTMLTxtRange;
    s:string;
begin
 if NOT Form1.WebBrowser1.Busy then begin
   tr := ((Form1.WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
   s:=tr.htmlText;
 end;
end;

und dann suche dir per copy() und pos() die tabelle raus:

Delphi-Quellcode:

s:=copy(s,pos('<table>',s),pos('</table>',s)+7));

ich kenne mich nur bedingt mit dem webbrowser aus und das ist eine möglichkeit denn,
viele wege führen nach rom ;)

der Blumenhund :D :D :D

[DGL-luke]

das abschlusstag heißt dann allerdings </table> ;-)

[jokerfacehro]

Zitat:

das abschlusstag heißt dann allerdings </table> Wink

du hast falsch geguckt :mrgreen:


beziehungsweise schon geändert xD

danke für den hinweis

[mr_fahrrad]

danke

aber ich möchte änderung OleVariant zu IHTMLTable2. Das ist möglich?

Delphi-Quellcode:

var ov:OleVariant; 
: 
ov:=WebBrowser.OleObject.document.Selection.CreateRange.item(0);

Ich möchte ändergung the Ov zu IHTMLTAble2 zu machen insertRow und andere Befehle.

Danke

[Jens Schumann]

Hallo,
es ist lange her das ich mich damit beschäftigt habe. Also ohne Gewähr.

Delphi-Quellcode:

var ov:IHTMLTAble2 ; 
: 
ov:=WebBrowser.OleObject.document.Selection.CreateRange.item(0) as IHTMLTAble2 ;

Der as Operator ruft implizit QueryInterface auf und checked so ob
WebBrowser.OleObject.document.Selection.CreateRang e.item(0) die
IHTMLTAble2 Schnittstellt unterstützt. Wenn ja wird die Schnittstelle
zurückgeliefert und Du kannst wie gewünscht weitermachen oder es müsste zur Exception
kommen

[mr_fahrrad]

Das Linie erzeugen ein Fehler

Delphi-Quellcode:

ov:=WebBrowser.OleObject.document.Selection.CreateRange.item(0) as IHTMLTAble2 ;

Operator not applicable to this operand type

Wie dieses regeln?