Hi zusammen

Ich versuche jetzt seit einigen Tagen JavaScript in einem TWebBrowser auszuführen.
Leider gibt es Internetseiten mit JavaScript Fehler, die kann man ja einfach mit Silent unterdrücken.
Jedoch ist dann das Problem nicht gelöst. Ich habe es bereits mit

WebBrowser1.OleObject.Document.parentWindow.machedas();

markieren

Delphi-Quellcode:

  Elem := GetElementById(WebBrowser1.Document, 'machedas()') as IHTMLElement;
  if Assigned(Elem) then begin
    Elem.click;

zusammenfalten · markieren

Delphi-Quellcode:

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean;
var
  win: IHTMLWindow2;
  Olelanguage: Olevariant;
begin
  if doc <> nil then
  begin
    try
      win := doc.parentWindow;
      if win <> nil then
      begin
        try
          Olelanguage := language;
          win.ExecScript(script, Olelanguage);
        finally
          win := nil;
        end;
      end;
    finally
      doc := nil;
    end;
  end;
end;

versucht.
Aber es kommt jedesmal eine Fehlermeldung wenn Silent False ist mit "undefined ist Null oder kein Objekt"
Und wenn ich Silent True setze kommt eine Meldung von Delphi mit "OLE-Fehler 80020101" ?
Das JavaScript wird aber bei beiden Male nicht ausgeführt!

Was gibt es sonst noch für Ausweichsmöglichkeiten? Oder mache ich etwas falsch, habe ich was vergessen einzubinden?

Würde mich über alle eure weisen Antworten freuen.

Mfg. Blumi


Edit: Ich wollte noch dazu anmerken, dass wenn ich den Internet Explorer oder Firefox direkt verwende, ich das Java Script mit Klick ausführen kann. Und mit Delphi funktioniert es wie beschrieben eben noch nicht? Lg

[edit=Sharky]Delphi-Tag korrigiert Mfg, Sharky[/edit]

Und warum nicht einfach mit

webbrowser1.Navigate('Dein JAVA Script'); ??

Moin,

zu deinen Laufzeitfehlern kann ich jetzt nichts schreiben, aber wie du JavaScript ausführen kannst wird u.a. in diesem Thread behandelt: ExecuteScript

Grüße vom marabu

Zitat von lbccaleb:

Und warum nicht einfach mit

webbrowser1.Navigate('Dein JAVA Script'); ??

Ich möchte es aber auf einer bestehenden Website anwenden..
Ich habe jetzt gerade kein Delphi bei mir, aber Navigate führt ja zu einer leeren Seite..

Nein .Navigate() lädt die Seite mit der angegebenen Url

Zitat von mkinzler:

Nein .Navigate() lädt die Seite mit der angegebenen Url

? Mein ich ja?..

Aber wenn ich WebBrowser1.Navigate('javascript:machedas();'); aufrufe führt er das JavaScript auch nicht aus!

Mfg

Dann gehst du erst auf die Seite und führt den JavaScript dann aus..

markieren

Delphi-Quellcode:

WB1.Navigate('www.MeineSeite.de');
WB1.Navigate('javascript:MacheDiesUndMacheDas');