Klicken Sie auf eine Schaltfläche mit Delphi und Javascript

Ich habe Schwierigkeiten beim Drücken einer Taste mit Delphi und Javascript. Meine Frage ist nicht wie bei anderen, weil in anderen Fragen die Frage ist, wie man ein Bild drückt und sie sind derselbe Titel dieses Beitrags. Und das andere ist Chrom. Meine Frage ist, wie in meinem Web-Browser in delphi machte ich den Code auf einen Knopf drücken kann, ist die folgen:Klicken Sie auf eine Schaltfläche mit Delphi und Javascript

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1} 
{$WARNINGS ON} 

unit FmDemo; 

interface 

uses 
    SHDocVw, Controls, StdCtrls, Classes, OleCtrls, Forms; 

type 
    TForm1 = class(TForm) 
    WebBrowser1: TWebBrowser; 
    ComboBox1: TComboBox; 
    procedure FormShow(Sender: TObject); 
    procedure WebBrowser1DocumentComplete(Sender: TObject; 
     const pDisp: IDispatch; var URL: OleVariant); 
    procedure ComboBox1Change(Sender: TObject); 
    end; 

var 
    Form1: TForm1; 

implementation 

uses 
    SysUtils, Dialogs, MSHTML; 

{$R *.dfm} 

procedure TForm1.ComboBox1Change(Sender: TObject); 
    { Make browser use selected font } 
var 
    Doc: IHTMLDocument2;  // current HTML document 
    HTMLWindow: IHTMLWindow2; // parent window of current HTML document 
    JSFn: string;    // stores JavaScipt function call 
begin 
    // Get reference to current document 
    Doc := WebBrowser1.Document as IHTMLDocument2; 
    if not Assigned(Doc) then 
    Exit; 
    // Get parent window of current document 
    HTMLWindow := Doc.parentWindow; 
    if not Assigned(HTMLWindow) then 
    Exit; 
    // Run JavaScript 
    try 
    JSFn := 'myFunction(''' + ComboBox1.Text + ''')'; 
    HTMLWindow.execScript(JSFn, 'JavaScript'); 
    except 
    // handle exception in case JavaScript fails to run 
    ShowMessage('Error running JavaScript'); 
    end; 
end; 

procedure TForm1.FormShow(Sender: TObject); 
    { Setup combo box and load document } 
begin 
    // Store screen fonts in combo box and disabled it 
    ComboBox1.Items.Assign(Screen.Fonts); 
    ComboBox1.Enabled := False; 
    // Load the HTML page 
    WebBrowser1.Navigate('C:\Users\Androide\Desktop\article-21-demo\CaseStudy\Test.html'); 
end; 

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; 
    const pDisp: IDispatch; var URL: OleVariant); 
    { Document loaded: enable combo box } 
begin 
    ComboBox1.Enabled := True; 
end; 

end.

Mein html:

<!DOCTYPE html> 
<html> 
<body> 

<p>Click the button to trigger a function that will output "Hello World" in a p element with id="demo".</p> 

<button onclick="myFunction()">Click me</button> 

<p id="demo"></p> 

<script> 
function myFunction() { 
    document.getElementById("demo").innerHTML = "Hello World"; 
} 
</script> 

</body> 
</html>

Wenn ich laden die Seite nie die Taste drücken. Und mein Ziel ist es, wenn ich die Seite seit meinem Browser drücken laden Sie diese Taste, Beispiel (wenn ich die Last Seite drücken mich nie auf die Schaltfläche =:

never press the button

Also muss ich drücken manually..and mir zeigen Hallo Welt überprüfen gedrückt wird: hello word message when i press button

gewisse Weise automatisch zu tun, nicht Handpress

. Referenz:

http://delphidabbler.com/articles?article=21

Quelle

2017-03-29 Sir Jack

Sie haben eine sehr ähnliche q gestern gepostet, aber gelöscht, bevor ich diese Antwort posten konnte.

Es tut, was Sie sagten, dass Sie in Ihrem gelöschten q wollten, welches Iirc das JavaScript nannte, um die Schriftart eines Elements von Delphi-Code zu ändern. Es sollte nicht schwierig sein, zu ändern, um das zu tun, was Sie in diesem einen wollen, der sich nur in der Verwendung einer Combobox zur Auswahl des neuen Schriftnamens und der Verwendung einer HTML-eingebetteten Schaltfläche zu unterscheiden scheint.

-Code

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ExecScript(Memo2.Lines.Text); 
end; 

procedure TForm1.btnLoadFromMemoClick(Sender: TObject); 
var 
    V : OleVariant; 
    Unk : IUnknown; 
begin 
    WebBrowser1.Navigate('about:blank'); 
    Doc2 := WebBrowser1.Document as IHTMLDocument2; 
    Doc2.DesignMode := 'Off'; 
    V := VarArrayCreate([0, 0], varVariant); 
    V[0] := Memo1.Lines.Text; 
    try 
    Doc2.Write(PSafeArray(TVarData(v).VArray)); 
    finally 
    Doc2.Close; 
    end; 
end; 

procedure TForm1.ExecScript(const Script: String); 
var 
    Doc: IHTMLDocument2; 
    HTMLWindow: IHTMLWindow2; 
begin 
    Doc := WebBrowser1.Document as IHTMLDocument2; 
    Assert(Doc <> Nil); 

    HTMLWindow := Doc.parentWindow; 
    Assert(HTMLWindow <> Nil); 
    try 
    HTMLWindow.execScript(Script, 'JavaScript'); 
    except 
    // handle exception in case JavaScript fails to run 
    end; 
end;

Html (put in Memo1.Lines)

<html> 
    <head> 
    <script type="text/javascript"> 
    function SetFont(fontname) { 
    document.body.style.fontFamily = fontname; 
    } 
    </script> 
    </head> 
    <body> 
    Something 
    <br> 
    <div>some more text</div> 
    </body> 
</html>

JavaScript (put in Memo1.Lines)

SetFont("Courier New");

Der folgende Code zeigt, wie ein Klick HTML-Schaltfläche mit der ID 'mybutton' mit Delphi-Code:

aber jetzt habe ich Ihnen gesagt, wie Sie die Schrift ändern JavaScript aus Delphi-Code vielleicht müssen Sie nicht auf den HTML-Button klicken Sie nicht mehr.

Quelle

2017-03-29 12:51:29 MartynA

Klicken Sie auf eine Schaltfläche mit Delphi und Javascript

Antwort

Verwandte Themen