我在TWebbrowser控件的documentcomplement中加入了以外執行javascript的代碼

var
Doc: IHTMLDocument2;
HTMLWindow: IHTMLWindow2;
javafn: string;
begin
Doc := MyWebBrowser.Document as IHTMLDocument2;
if not Assigned(Doc) then Exit;
HTMLWindow := Doc.parentWindow;
if not Assigned(HTMLWindow) then Exit;
try
javafn := 'function foo() {if (x==''0'') {return 11;} else {return 22;}}';
HTMLWindow.execScript(javafn, 'JavaScript');
except
showmessage('error');
end;
end;

如果單單執行一個javascript的procedure則無問題，但我想知道如何才能在delphi中讀取javascript 函數的返回值？

嘗試下在web中增加隱藏域，然后再Delphi中讀取該隱藏域的值。

http://www.cnblogs.com/del/archive/2008/07/30/1256826.html

万老师的博客上有例子，你可以看看。

編輯記錄