Twebbrowser Problem...

[marabu]

Hallo,

die von dir zitierte Code-Zeile funktioniert, wenn deine Form einen submit-button besitzt. Da du den Button durch ein Image ersetzt hast, solltest du die Methode Click von diesem IMG-Element benutzen um die Form zu verschicken.

Freundliche Grüße

[DataCool]

Hi Marabu,

dumme Frage, aber wie

Thx & greetz DataCool

[marabu]

Schau mal hier: kein submit nur ein bild

Freundliche Grüße

[DataCool]

Hi Marabu,

WebB.OleObject.Document.GetElementsByName('submit').Item(0).Click; Geht auch nicht, es kommt zwar kein Fehler, aber Seite bleibt bei der ausgefüllten Login-Seite stehen.
Könnte es damit zusammen hängen das in der Page :

Code:

<Input type="hidden" name="submit" value="senden">

Somit gibt es 2 x Submit

Greetz DataCool

Edit:

WebB.OleObject.Document.GetElementsByName('submit').Item(1).Click; Funktioniert, vielen Dank !!!!!!!!!

[Asatru]

Zitat von marabu:

Delphi-Quellcode:

procedure TWebForm.WebBrowserBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if pDisp = WebBrowser.DefaultInterface then
    DocumentLoaded := false;
end;

procedure TDemoForm.WebBrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if pDisp = WebBrowser.DefaultInterface then
    DocumentLoaded := true;
end;

Grüße vom marabu

Wie müsste es eigentlich aussehen, wenn man den Webrowser von einer Form2 aus steuern würde? Also durch ein ButtonClick auf eine Webseite Changed und von der Form 2 aus

Delphi-Quellcode:

  repeat
    Application.ProcessMessages;
  until DocumentLoaded;

sagen möchte

[toms]

Musst einfach DocumentLoaded sichtbar machen für Form2