Webbrowser OleObject - Felder füllen

[Volker Z.]

Hallo Robert,

wenn ich hier bei mir

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate ('http://www1.sunrise.ch/SMS-Sender-cbBpfAqFI.RUoAAAEwinJTNyCu-Sunrise-Residential-Site-WFS- de_CH-CHF.html');
  end;

procedure TForm4.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  ShowMessage (Url);
  repeat;
    Application.ProcessMessages;
    Sleep(1);
  until WebBrowser1.ReadyState=4;

  webbrowser1.oleobject.document.forms.item(1).elements.item('LoginForm_Login').value := 'a';

  if webbrowser1.oleobject.document.forms.item(1).elements.item('LoginForm_Login').value = 'a' then // Sinn dieser Zeile erschließt sich mir nicht
    begin
      webbrowser1.oleobject.document.forms.item(1).elements.item('LoginForm_Password').value := 'b' ;
      webbrowser1.oleobject.document.forms.item(1).submit;
    end;
end;

ausführe habe ich keine Probleme. Natürlich erhalte ich eine ReLogin Seite (a, b als Login ist sicherlich Unsinn) mit einer anderen URL, also auch kein Problem. Ich kann Dir natürlich nicht sagen, was da für eine URL zurückgeliefert wird, wenn das Login passen sollte. Vielleicht liefert der Server dann auch http://www1.sunrise.ch/SMS-Sender-cb...tial-Site-WFS- de_CH-CHF.html aus

Gruß