在 Delphi 中调用 JavaScript(1) - 回复 "fancy" 的问题

问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1256669.html#1272732

---

源码下载: https://files.cnblogs.com/del/Dephi-JavaScript.rar

---

本例测试用的 Html 文件(包含三个要测试的 Js 函数):

---

---

本例效果图:

---

代码文件:

---

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, OleCtrls, SHDocVw; type   TForm1 = class(TForm)     WebBrowser1: TWebBrowser;     Button1: TButton;     Button2: TButton;     Button3: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var   HtmlPath: string; begin   WebBrowser1.Left := -WebBrowser1.Width; {隐藏 WebBrowser1}   HtmlPath := ExtractFilePath(ParamStr(0)) + 'Test.htm';   WebBrowser1.Navigate(HtmlPath); end; procedure TForm1.Button1Click(Sender: TObject); var   str: Variant; begin   str := WebBrowser1.OleObject.document.parentWindow.JsStr2('12345');   ShowMessage(str); end; procedure TForm1.Button2Click(Sender: TObject); var   num: Variant; begin   num := WebBrowser1.OleObject.document.parentWindow.JsNum2(4);   ShowMessage(num); end; procedure TForm1.Button3Click(Sender: TObject); begin   WebBrowser1.OleObject.document.parentWindow.JsMsg('ABC');   {也可以这样:}   WebBrowser1.OleObject.document.parentWindow.execScript('JsMsg("ABCDEFG")', 'JavaScript'); end; end.

转自：http://www.cnblogs.com/del/archive/2008/07/30/1256826.html 很好的文章！ 
现在很多网站都用到 Js 动态加载数据，如果要Post，Get方式发送数据给服务器，应该要用到这方面的知识了！又或者还有其它方法？！