wissen wenn twebbrowser fertig geladen hat

[RWarnecke]

Zitat von o0o:

ich habs mit NavigateComplete und DocumentComplete versucht nur leider kein erfolg denn wenn ich das drin habe und das zb mit showmessage verknuepfe bekomme ich massig meldungen aufeinmal._.

Was für Meldungen kommen. Ich glaube, dass ein ShowMessage nicht gerade geeignet ist für das Ereigniss DocumentComplete. Schaue Dir mal diese Funktion an.

Delphi-Quellcode:

procedure TForm12.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if (WebBrowser1.LocationURL = ComboBox1.Text) and (not FirstEdit) then
  begin
    Counter := 0;
    Btn_Addr.Enabled := True;
  end;
  if FirstEdit then
  begin
    Counter := Counter + 1;
    if Counter > Memo1.Lines.Count - 1 then
    begin
      if mailcounter <= ComboBox1.Items.Count - 1 then
        mailcounter := mailcounter + 1;
      FirstEdit := False;
      WebBrowser1.Navigate('https://www.domain.de/test.php');
      ComboBox1.Text := ComboBox1.Items.Strings[mailcounter];
    end
    else
    begin
      Label1.Caption := 'Adresse : ' + IntToStr(Counter) + ' von ' + IntToStr(Memo1.Lines.Count);
      Webbrowser1.OleObject.document.forms.item(0).elements.item('black_mail').value := memo1.Lines.Strings[counter];
      Application.ProcessMessages;
      WebBrowser1.OleObject.Document.GetElementsByName('bname_add').Item(0).Click;
    end;
  end;
end;

Diese Funktion liest in einem Memo Zeile für Zeile aus und gibt das an ein Eingabefeld auf der Webseite und führt dann den Senden-Button aus.