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();
Delphi-Quellcode:
Elem := GetElementById(WebBrowser1.Document, 'machedas()') as IHTMLElement;
if Assigned(Elem) then begin
Elem.click;
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]