Q
quark
Unregistered / Unconfirmed
GUEST, unregistred user!
刚接触IntraWeb,对JavaScript也是不太熟,大侠们帮帮忙啊!
在我的IntraWeb首页上有一个TIWMemo(textarea),我想双击这个TIWMemo,调出打开文件对话框,选择一个文本文件后,加载这个文件到TIWMemo。我觉得应该是个比较简单的功能，而且在html里已经实现了，代码如下：
但是在IntraWeb里却实现不了，能打开对话框，却加载不了文件，恳请各位高手相助。
例子程序下载地址如下：
http://www.dbscan.cn/down/test.rar
在我的IntraWeb首页上有一个TIWMemo(textarea),我想双击这个TIWMemo,调出打开文件对话框,选择一个文本文件后,加载这个文件到TIWMemo。我觉得应该是个比较简单的功能，而且在html里已经实现了，代码如下：
代码:
<html>
<script>
function goOpenFile()
{
var filedlg = new ActiveXObject("MSComDlg.CommonDialog");
var textarea = event.srcElement;
function goLoadFile(filename)
{
textarea.value=filename;
}
filedlg.Filter = "*.*|*.*";
filedlg.FilterIndex = 1;
filedlg.MaxFileSize = 128;
filedlg.ShowOpen();
textarea.startDownload(filedlg.filename, goLoadFile);
}
</script>
<textarea id=memHost rows=20 cols=50 style=behavior:url(#default#download) ondblclick=goOpenFile()></textarea>例子程序下载地址如下：
http://www.dbscan.cn/down/test.rar
;