Ereignisse von Twebbrowser zu früh!

**Jan**

Hallöchen!
Also ich will, dass ein Element einer Webseite sofort nach dem Laden der Seite angesprochen werden. Allerdings gibt es kein event für den TWebBrowser, der den Zugriff nach dem Kompletten Darstellen der Seite ermöglicht, also bekomme ich natürlich jedesmal eine exeption. Ich könnte mir vorstellen, dass das daran liegt, dass es sich um eine Seite mit frames handelt, und dann die Ereignisse sich alle nur auf den Parent beziehen, welcher natürlich schon geladen ist, wenn die children noch nicht geladen sind.
Need Help!
Gruß
Jan

**CalganX**

Wieso? Denn was ist mit NavigateComplete oder DownloadComplete. All das funktioniert problemlos...

Chris

**Jan**

Hallo Chakotay1308,
leider nein, wenn ich die Anfrage über einen Buttonklick sende, dann funktioniert sie einwandfrei, aber ondownloadcomplete und onnavigatecomplete resultieren in exeptions.
Gruß
Jan

**Jan**

weiss denn da echt keiner was zu? *hoff*
Jan

**CalganX**

Versuchs mal mit dem OnProgresss-Ereignis (dann aber mit den Parametern abfragen, ob fertig)...

Chris

**Jan**

xcuse me? Erklär mal bitte!
Gruß
Jan

**d3g**

Hi Jan,

wenn du mit der Prozedur vom SwissDelphiCenter benutzst, dann funktioniert die in zwei Fällen nicht:

Wenn du nicht die exakte Groß- und Kleinschreibung wiedergibst und
wenn das Feld kein name-Attribut sonder nur noch das neuere id-Attribut hat.

Das kann man umgehen, indem man die Prozedur etwas abändert:

zusammenfalten · markieren

Delphi-Quellcode:

			function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;

var

  i, j: Integer;

  FormItem: Variant;

begin  

  Result := False;

  //no form on document

  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then

    Exit;

  //count forms on document

  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do begin

    FormItem := WebBrowser.OleObject.Document.forms.Item(I);

    for j := 0 to FormItem.Length - 1 do

      try

        //when the fieldname is found, try to fill out

        if (LowerCase(FormItem.Item(j).Name) = LowerCase(FieldName)) or

           (LowerCase(FormItem.Item(j).Id) = LowerCase(FieldName))

        then begin

          FormItem.Item(j).Value := Value;

          Result := True;

        end;

      except

        Exit;

      end;

  end;

end;

Dann funktioniert die Operation mit dem OnDocumentComplete-Ereignis wunderbar:

markieren

Delphi-Quellcode:

			procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

  const pDisp: IDispatch; var URL: OleVariant);

begin

  FillForm(WebBrowser1, 'Test', 'Test');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  WebBrowser1.Navigate('http://localhost/test.html');

end;

(Folgende HTML-Date wurde benutzt.)

markieren

Code:

			<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

                      "http://www.w3.org/TR/html4/loose.dtd">

<html>

  <head>

    <title>Test</title>

  </head>

  <body>

    <form>

      <input type="text" id="tEsT">

    </form>

  </body>

</html>

MfG,
d3g

**Jan**

Hallo d3g,

Zitat von Jan:

Hallo Chakotay1308,
leider nein, wenn ich die Anfrage über einen Buttonklick sende, dann funktioniert sie einwandfrei, aber ondownloadcomplete und onnavigatecomplete resultieren in exeptions.
Gruß
Jan

Wie ich da schon geschrieben habe funktioniert das Ausfüllen ganz wunderbar, wahrscheinlich weil ich keine vorgefertigte Prozedur von Swissdelphicenter benutze :]
Ich nehme halt wie vorher schon mal erwähnt an, dass das deswegen so ist, weil das Formular in einem Frame ist, kann das sein?
Gruß
Jan

**Jan**

Na los leute, da weiss 100% einer rat!! BIIIIITTEEEEE!! Meim komplettes Programm funktioniert schon, bis auf dieses eine Problem.
Wenn ihr mir wenigstens sagen würdet, wie ich überprüfen kann, ob bestimmte Elemente schon existieren, ohne dass ich einen error bekomme, das würde mir vielleicht auch weiterhelfen.
Also strengt mal eure Hirne an, und helft mir mal bitte weiter! :]
THX!!
Jan

**masters001**

Das Problem hatte ich auch ich hab das alles in nen try - except block geschrieben!
Also die Fehlermeldung wird so lange verhindert bis die Seite dann richtig geladen ist!

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#2 2. Jan 2003, 14:33 Wieso? Denn was ist mit NavigateComplete oder DownloadComplete. All das funktioniert problemlos... Chris
	Zitat

Jan Registriert seit: 24. Sep 2002 Ort: Magdeburg 491 Beiträge Delphi 7 Enterprise	#3 2. Jan 2003, 14:38 Hallo Chakotay1308, leider nein, wenn ich die Anfrage über einen Buttonklick sende, dann funktioniert sie einwandfrei, aber ondownloadcomplete und onnavigatecomplete resultieren in exeptions. Gruß Jan Jan Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
	Zitat

Jan Registriert seit: 24. Sep 2002 Ort: Magdeburg 491 Beiträge Delphi 7 Enterprise	#4 2. Jan 2003, 15:36 weiss denn da echt keiner was zu? hoff Jan Jan Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#5 2. Jan 2003, 15:39 Versuchs mal mit dem OnProgresss-Ereignis (dann aber mit den Parametern abfragen, ob fertig)... Chris
	Zitat

Jan Registriert seit: 24. Sep 2002 Ort: Magdeburg 491 Beiträge Delphi 7 Enterprise	#6 2. Jan 2003, 15:49 xcuse me? Erklär mal bitte! Gruß Jan Jan Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
	Zitat

masters001 Registriert seit: 23. Dez 2002 78 Beiträge	#10 13. Jan 2003, 17:48 Das Problem hatte ich auch ich hab das alles in nen try - except block geschrieben! Also die Fehlermeldung wird so lange verhindert bis die Seite dann richtig geladen ist!
	Zitat

Ereignisse von Twebbrowser zu früh!

Ereignisse von Twebbrowser zu früh!

Forumregeln