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.