Speedport IP dynamisch ändern.

[EWeiss]

Habe es jetzt soweit das ich das Passwort automatisch eingeben kann.
Hoffe das ist so richtig.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ChildElement: OleVariant;
  URL: OleVariant;

begin
  if edpasswort.Text = '' then
    exit;

  if edNewIp.Text <> '' then
    edOldIP.Text := edNewIp.Text;

  edNewIp.Text := '';

  // Webseite aufrufen in Offline Modus
  Wb.Navigate ('https://speedport.ip');
  // Warte bis Webseite geladen
  WaitForBrowser(Wb, 50);

  if not Assigned(WB.Document) then
    Exit;

  ChildElement := Wb.OleObject.document.forms.item(0);
  ChildElement.Elements.item('login_pwd').value := 0;

  if not VarIsDispatchObject(ChildElement) then
   raise Exception.CreateFmt('Web-Formalar %s nicht gefunden', ['input']);

  ChildElement.Elements.Item('pws').value := edpasswort.Text;

  SubmitWebForm(ChildElement);

  // Router beenden
  URL := 'http://' + edSpeedportHost.Text + '/cgi-bin/disconnect.exe';
  wb.Navigate2(URL);

  // etwas längere Pause das kann dauern bis die IP
  // aktualisiert wurde
  WaitForBrowser(Wb, 100);

  // Router neustarten
  URL := 'http://' + edSpeedportHost.Text + '/cgi-bin/connect.exe';
  Wb.Navigate2(URL);

  btnNewIP.Enabled := True;

end;

Habe aber immer noch das Problem mit dem Script Fehler.
Seltsamer weise tritt das bei dir im MSHTML_Tools nicht auf
Würde mich mal interessieren warum nicht bzw. was ich da falsch mache.

gruss

[Sir Rufo]

Sodele, ich hab dann mal die Quellen raus gekramt

Bei Fragen einfach die Hand heben

[EWeiss]

Zitat von Sir Rufo:

Sodele, ich hab dann mal die Quellen raus gekramt

Bei Fragen einfach die Hand heben

Danke..

Werd ich tun

gruss

[EWeiss]

Irgendwie Unverständlich das ganze.

Ich habe dein ganzes Projekt mal auseinandergenommen.
Alle Componenten bis auf den TWebbrowser.
Die einzigste Zeile die ich nun verwende ist

Wb.Navigate ('https://speedport.ip');
Bei dir startet die Webseite ohne Skriptfehler
Bei mir mit, wobei 200% aller Einstellungen der Componente der von deinem TWebbrowser entsprechen.

Jetzt kommt der Witz.
lösche ich meinen TWebBrowser und füge deinen ein
ist der Skriptfehler verschwunden obwohl wie schon gesagt alles von
den Einstellungen identisch war.

Edit:
Benenne ich deinen Webbrowser um addiere einen neuen und benenne diesen nach den alten Namen von deiner
Componente um kommt wieder der Skripfehler.
Wie kann es sein das in einer IDE ein und die gleiche Componente zwei unterschiedliche
Verhalten aufweisen?
Das ist doch nicht normal.So kann man nicht arbeiten


gruss

[Sir Rufo]

Oh, das hätte mir auch schon vorher einfallen können.

Es gibt eine Eigenschaft beim TWebbrowser mit der man solche Meldungen unterdrücken kann.

TWebbrowser.Silent

Sorry

[EWeiss]

Zitat von Sir Rufo:

Oh, das hätte mir auch schon vorher einfallen können.

Es gibt eine Eigenschaft beim TWebbrowser mit der man solche Meldungen unterdrücken kann.

TWebbrowser.Silent

Sorry

Seltsam nur kann diesen Eintrag bei dir im Projekt nirgends finden.
Wo kann man das einstellen ?

Ok habs gefunden
Danke.

gruss