Webbrowser Formularfelder überprüfen

[Larsi]

hi,
ichh möchte mit dem twebbrowser SÄMLTICHE formularfelder (textfelder^^) überprüfen ob ein bestimmter inhalt drinnen ist. ich war codetechnisch schon soweit:

Delphi-Quellcode:

Edit1.Text:=WebBrowser1.OleObject.document.forms.item(0).elements.item('FELDNAME').value;

aber diese funktion liest ja immer nur FELDNAME aus. oder gibt es eine möglichkeit den namen des feldes beim "eintippen" herausfinden?


MFG Lars Wiltfang

[toms]

Zitat:

Zitat von Larsi

aber diese funktion liest ja immer nur FELDNAME aus. oder gibt es eine möglichkeit den namen des feldes beim "eintippen" herausfinden?

Du kannst einen Event Sink auf die Felder setzen. Dann wirst du benachrichtigt, sobald sich der Inhalt eines Felder geändert hat.

[Larsi]

was? slink? gibts nciht ne möglichkeit das man das irgnedwie n bisschen umschriebt was ich scohn hatte!

[Larsi]

*push*
Ich kapier es nicht :(
Kann es mir jemand erkären??? :)
Kann man nicht wie in meiner schon fertigen Abfrage einfach das Feldname durch All oder so erstzen? Oder gehts' nicht so einfach? Und was ist "Sink"? Wie geht das?

Delphi-Quellcode:

Edit1.Text:=WebBrowser1.OleObject.document.forms.item(0).elements.item('FELDNAME').value;

[marabu]

Hallo Lars,

willst du in allen Input-Feldern einer Form oder eines Document suchen?

Delphi-Quellcode:

function FindInputElement(container: IDispatch; const subText: string): IHTMLInputElement;
var
  i: Integer;
  ec: IHTMLElementCollection;
  dummy: IDispatch;
begin
  if Succeeded(container.QueryInterface(IID_IHTMLFormElement, dummy)) then
    ec := (container as IHTMLFormElement).tags('input') as IHTMLElementCollection
  else if Succeeded(container.QueryInterface(IID_IHTMLDocument3, dummy)) then
    ec := (container as IHTMLDocument3).getElementsByTagName('input')
  else begin
    Result := nil;
    Exit;
  end;
  for i := 0 to ec.length do
    if i = ec.length then
      Result := nil else
    begin
      Result := ec.item(i, null) as IHTMLInputElement;
      if AnsiContainsText(Utf8ToAnsi(Result.value), subText) then
        Break;
    end;
end;

Testen kannst du so:

Delphi-Quellcode:

var
  ie: IHTMLInputElement;
begin
  // find first element in document
  with WebBrowser do
    ie := FindInputElement(Document, 'b');

  // find first element in some form
  with WebBrowser.Document as IHTMLDocument2 do
    ie := FindInputElement(forms.item(0, null), 'b');
end;

Grüße vom marabu

[Larsi]

und wie kann ich das jez mit ner If-Schleife :) machen dass immer ne messegebox bei "Sex" kommt? :)

[Die Muhkuh]

Zitat:

Zitat von Larsi

und wie kann ich das jez mit ner If-Schleife :) machen dass immer ne messegebox bei "Sex" kommt? :)

If-Schleife

Zum Thema, schau Dir die Paramter an und schaue, was die Funktion macht, dann kommst Du ganz leicht auf Deine Lösung ;)

Kleiner Tipp: <> nil ;)

@Detlef: Ich hol schon mal die Gläser :zwinker:

[Larsi]

das mit der if schleife war auch nicht ernst gemint :)
hab das grad in irgendner signatur gefunden mit der if schleife und musste das gleicfh mal schreiben^^

[DeddyH]

[OT] *Jippiieehh*, ich trinke Pils :mrgreen: (siehe meine Signatur) [/OT]

[Larsi]

timmt an deiner signatur stand das :)

[Larsi]

was muss ich da in die uses aufnehmen für den code? laut delphi ist nämlich die ganze funktion fehlerhaft :(
und durchsucht dass:

Delphi-Quellcode:

var 
  ie: IHTMLInputElement; 
begin 
  // find first element in document 
  with WebBrowser do 
    ie := FindInputElement(Document, 'b'); 

  
end;

echt den text in ALLEN Textfeldern des Webbrowser???

[Matze]

Zitat:

Zitat von Larsi

was muss ich da in die uses aufnehmen für den code?

MSHTML

[Larsi]

aber ansicontainstext in der funkzion ist immernoch "befehlert"!

[Matze]

Nutze doch bitte deine Delphi-Hilfe:

Zitat:

Unit
StrUtils

Syntax

Delphi-Quellcode:

 function AnsiContainsText(const AText: string; const ASubText: string): Boolean;

[Larsi]

danke aber ich bekomm das mit der if Abfrage irgendwie nicht hin. also ich möchte dass wenn zb bei google in die textbox b eingegeben wird, dass dann ne messegebox kommt! Aber wie???

[marabu]

Hallo Lars,

es ist ein gewaltiger Unterschied, ob du die Eingabefelder des aktuellen HTML-Dokuments nach bestimmten Inhalten durchsuchen oder ob du im Augenblick der Eingabe eine Prüfung vornehmen möchtest. Den ersten Fall löst mein Code aus Beitrag #5, für den letzten Fall benötigst du Ereignisse. Wenn ich aber deine Probleme bei der Verwendung von bereits fertigem Code sehe, dann fürchte ich, dass du erst noch etwas üben musst.

Freundliche Grüße

[Larsi]

ja natürlich muss ich noch ganz viel üben :) rate mal warum ich in die delphipraxis gegangen bin??? wenn ich das alles wüsste bestimmt nicht(oer vielleicht doch^^)
und deshalb wäre es ganz nett von dir wenn du mir sagst wie diese verdammte if abfrage geht!!!

[marabu]

Ich kann dir nicht helfen, solange mir dein Problem nicht klar ist.

Soll die Inhaltsprüfung ereignis- oder benutzergesteuert ablaufen?

[Larsi]

also dafür wo du schon den code für gepostet hast. ich möchte alle textfelder in einem webbrowser object(Twebbrowser1) nach dem Wort Lars durchsuchen und wenn das der fall ist soll was passieren!

[marabu]

FindInputValue() durchsucht eine ElementCollection ab index. FindInputElement() sucht wahlweise in einem FormElement, in einem HTMLDocument oder in einen WebBrowser.

[Larsi]

kann mir da irgendjemand mal schnell ne exe drausmachen mein delphi will im moment grad nicht :)

[Larsi]

also immer wenn ich deine datein öffnen will. ist die datei weg. virus oder antivirus(woran liegt das?) haste mir n virus da rein geschrieben^^

[marabu]

Im Archiv sind keine Kompilate enthalten. Welchen Virus meldet denn dein System?

[Larsi]

auch beim öffnen mit delphi kommen viele fehler das irgendne pas datei nicht gefundenn wurden konnte. deshalb wäre es nett von jemanden wenn er mir aus dem archiv mit den delphi dateien ne exe macht damit ich mal angucken kann wie das funktioniert :)

[marabu]

Lars, es tut mir leid - ich habe mir soeben das ZIP-Archiv heruntergeladen und festgestellt, dass ich eine falsche Form beigepackt habe. Im Anhang jetzt die richtige. Sorry.

EDIT: Anhang ausgetauscht ...

[bitsetter]

Hi,

geht bei mir trotzdem noch nicht zu kompilieren, Delphi konnte die EventObj.dcu nicht finden. Das mit dem Formular hatte ich vorhin schon hinbekommen, brauchte man bloß umbenennen.

[Larsi]

ja bei mir felht die auch aber man kann sie ja einfach aus dem projekt entfernen dasnn gehts wieder :)

[marabu]

Löscht bitte die Referenz auf diese Unit, sie wird in der Demo garnicht verwendet und stammt aus einer anderen Demo.

EDIT: Ich habe den Projekt-Quelltext im Anhang von Beitrag #25 bereinigt, damit nicht noch mehr Leute stolpern ...