请问各位大虾如何在网页中弹出选择文件保存路径和输入保存文件名的窗体？ ( 积分: 100 )

大唐电信 · 2005-07-24

请问各位大虾如何在网页中弹出选择文件保存路径和输入保存文件名的窗体？[

][

]
谢谢！！！！

大唐电信 · 2005-07-24

请问各位大虾如何在网页中弹出选择文件保存路径和输入保存文件名的窗体？[

][

]
谢谢！！！！

jfyes · 2005-07-24

function GetCursorText(allStr: Tstrings): string;
var
mPoint: TPoint;
mText, CName: PChar;
Buf: Integer;
dtwnd: HWND;
str: string;
begin
Buf := 2856;
GetMem(mText, Buf);
GetMem(CName, buf);
try
GetCursorPos(mPoint);
dtwnd := WindowFromPoint(mPoint);
GetClassName(dtwnd, CName, Buf);
str := AnsiUpperCase(strPas(CName));
{ if (str = 'TEDIT')or(str = 'EDIT')or(str = 'COMBOBOX')OR(STR = 'TCOMBOBOX')
OR (str = 'TMEMO')or(str = 'TRICHEDIT')or(str = 'RICHEDIT20W')
OR (STR = '')
then
}
begin
SendMessage(DTWND, WM_GETTEXTLENGTH,0,0);
Buf := LongInt(mText);
SendMessage(DTWND, WM_GETTEXT, 2856, Buf);
// if Pos(StrPas(CName),Allstr.Text)=0 then
//Allstr.Add(StrPas(CName)+#13);
if Trim(StrPas(mText)) <> '' then
if Pos(StrPas(mText), Allstr.Text) = 0 then
Allstr.Add('ClassName: ' + Str + ' [=] Caption: ' + StrPas(MText));
Result := 'ClassName: ' + Str + ' [=] Caption: ' + StrPas(MText);
end;
finally
FreeMem(mText, Buf);
FreeMem(CName, Buf);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
GetCursorText(Memo1.Lines)
end;

ClassName: BUTTON [=] Caption: 取消
ClassName: #32770 [=] Caption: 文件下载
ClassName: COMBOBOX [=] Caption: WinRAR 压缩文件
ClassName: #32770 [=] Caption: 另存为
ClassName: COMBOBOX [=] Caption: 桌面

大唐电信 · 2005-07-24

老大，你写些啥啊？我需要的是在网页中实现，不是在delphi的代码，但还是谢谢你的热心。请各位大虾帮帮忙。

寻路 · 2005-07-24

我想用DELPHI做一个OCX控件不就可以了吗!

jfyes · 2005-07-24

<input type=button value=saveas onclick=document.execCommand("saveAs&quot

>
博客园-阿好.NET-IE功能汇总
<INPUT onclick="document.execCommand('Saveas',false,'c://test.htm')"
type=button
value=另存为>
<INPUT onclick="document.execCommand('FontName',false,fn)"
type=button
value=字体>
<br>
<INPUT onclick=document.all.WebBrowser.ExecWB(1,1) type=button value=打开 name=Button1> <INPUT onclick=document.all.WebBrowser.ExecWB(4,1) type=button value=另存为 name=Button2> <INPUT onclick=document.all.WebBrowser.ExecWB(10,1) type=button value=属性 name=Button3> <INPUT onclick=document.all.WebBrowser.ExecWB(6,1) type=button value=打印 name=Button> <INPUT onclick=document.all.WebBrowser.ExecWB(8,1) type=button value=页面设置 name=Button4> <BR><INPUT onclick=window.location.reload() type=button value=刷新 name=refresh> <INPUT onclick="window.external.ImportExportFavorites(true,'');"
type=button value=导入收藏夹 name=Button5> <INPUT onclick="window.external.ImportExportFavorites(false,'');"
type=button value=导出收藏夹 name=Button32> <INPUT onclick="window.external.AddFavorite(location.href,do
cument.title)"
type=button value=加入收藏夹 name=Button22> <BR><INPUT onclick="window.external.ShowBrowserUI('OrganizeFavorites', null)"
type=button value=整理收藏夹 name=Submit2> <INPUT onclick='window.location="view-source:"
+ window.location.href' type=button value=查看源文件 name=Button7> <INPUT onclick="window.external.ShowBrowserUI('LanguageDialog', null)"
type=button value=语言设置 name=Button6> <INPUT onclick=history.go(1) type=submit value=前进 name=Submit> <INPUT onclick=history.go(-1) type=submit value=后退 name=Submit2> <INPUT onclick="document.execCommand('Cut')"
type=button value=剪切> <INPUT onclick="document.execCommand('Copy')"
type=button value=拷贝> <INPUT onclick="document.execCommand('Paste')"
type=button value=粘贴> <INPUT onclick="document.execCommand('Undo')"
type=button value=撤消> <INPUT onclick="document.execCommand('Delete')"
type=button value=删除> <INPUT onclick="document.execCommand('Bold')"
type=button value=黑体> <INPUT onclick="document.execCommand('Italic')"
type=button value=斜体> <INPUT onclick="document.execCommand('Underline')"
type=button value=下划线> <INPUT onclick="document.execCommand('stop')"
type=button value=停止> <INPUT onclick="document.execCommand('SaveAs')"
type=button value=保存> <INPUT onclick="document.execCommand('Saveas',false,'c://test.htm')"
type=button value=另存为> <INPUT onclick="document.execCommand('FontName',false,fn)"
type=button value=字体> <INPUT onclick="document.execCommand('FontSize',false,fs)"
type=button value=字体大小> <INPUT onclick="document.execCommand('refresh',false,0)"
type=button value=刷新> <INPUT onclick=window.location.reload() type=button value=刷新> <INPUT onclick=history.go(1) type=button value=前进> <INPUT onclick=history.go(-1) type=button value=后退> <INPUT onclick=history.forward() type=button value=前进> <INPUT onclick=history.back() type=button value=后退> <INPUT onclick='window.external.ImportExportFavorites(true,"http://localhost&quot

;' type=button value=导入收藏夹> <INPUT onclick='window.external.ImportExportFavorites(false,"http://localhost&quot

;' type=button value=导出收藏夹> <INPUT onclick="window.external.ShowBrowserUI('OrganizeFavorites', null)"
type=button value=整理收藏夹> <INPUT onclick="window.location = 'view-source:'+ window.location.href"
type=button value=查看源文件> <INPUT onclick="window.external.ShowBrowserUI('LanguageDialog', null)"
type=button value=语言设置> <INPUT onclick="window.external.AddFavorite('http://fason.nease.net/', 'Fason的小天地')"
type=button value=加入收藏夹> <INPUT onclick="window.external.addChannel('http://fason.nease.net/')"
type=button value=加入到频道> <INPUT onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://fason.nease.net/')"
type=button value=设成主页> </TD></TR></TBODY></TABLE></CENTER></DIV><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&lt;OBJECT id=WebBrowser height=0 width=0&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2&gt;&lt;/OBJECT&gt;<BR>&lt;INPUT onclick=document.all.WebBrowser.ExecWB(1,1) type=button value=打开 name=Button1&gt;
<BR>&lt;INPUT onclick=document.all.WebBrowser.ExecWB(4,1) type=button value=另存为 name=Button2&gt;
<BR>&lt;INPUT onclick=document.all.WebBrowser.ExecWB(10,1) type=button value=属性 name=Button3&gt;
<BR>&lt;INPUT onclick=document.all.WebBrowser.ExecWB(6,1) type=button value=打印 name=Button&gt;
<BR>&lt;INPUT onclick=document.all.WebBrowser.ExecWB(8,1) type=button value=页面设置 name=Button4&gt;&nbsp;<BR>&lt;INPUT onclick=window.location.reload() type=button value=刷新 name=refresh&gt;
<BR>&lt;INPUT onclick="window.external.ImportExportFavorites(true,'');"
type=button value=导入收藏夹 name=Button5&gt;
<BR>&lt;INPUT onclick="window.external.ImportExportFavorites(false,'');"
type=button value=导出收藏夹 name=Button32&gt;
<BR>&lt;INPUT onclick="window.external.AddFavorite(location.href,do
cument.title)"
type=button value=加入收藏夹 name=Button22&gt;&nbsp;<BR>&nbsp;&lt;INPUT onclick="window.external.ShowBrowserUI('OrganizeFavorites', null)"
type=button value=整理收藏夹 name=Submit2&gt;
<BR>&lt;INPUT onclick='window.location="view-source:"
+ window.location.href' type=button value=查看源文件 name=Button7&gt;
<BR>&lt;INPUT onclick="window.external.ShowBrowserUI('LanguageDialog', null)"
type=button value=语言设置 name=Button6&gt;&nbsp;<BR>&nbsp;&lt;INPUT onclick="document.execCommand('Cut')"
type=button value=剪切&gt;<BR>&nbsp;&lt;INPUT onclick="document.execCommand('Copy')"
type=button value=拷贝&gt;<BR>&nbsp;&lt;INPUT onclick="document.execCommand('Paste')"
type=button value=粘贴&gt;
<BR>&lt;INPUT onclick="document.execCommand('Undo')"
type=button value=撤消&gt;<BR>&nbsp;&lt;INPUT onclick="document.execCommand('Delete')"
type=button value=删除&gt;
<BR>&lt;INPUT onclick="document.execCommand('Bold')"
type=button value=黑体&gt;<BR>&nbsp;&lt;INPUT onclick="document.execCommand('Italic')"
type=button value=斜体&gt;<BR>&nbsp;&lt;INPUT onclick="document.execCommand('Underline')"
type=button value=下划线&gt;<BR>&nbsp;&lt;INPUT onclick="document.execCommand('stop')"
type=button value=停止&gt;<BR>&nbsp;&lt;INPUT onclick="document.execCommand('SaveAs')"
type=button value=保存&gt;<BR>&nbsp;&lt;INPUT onclick="document.execCommand('Saveas',false,'c://test.htm')"
type=button value=另存为&gt;
<BR>&lt;INPUT onclick="document.execCommand('FontName',false,fn)"
type=button value=字体&gt;
<BR>&lt;INPUT onclick="document.execCommand('FontSize',false,fs)"
type=button value=字体大小&gt;
<BR>&lt;INPUT onclick="document.execCommand('refresh',false,0)"
type=button value=刷新&gt;
<BR>&lt;INPUT onclick=window.location.reload() type=button value=刷新&gt;<BR>&nbsp;&lt;INPUT onclick=history.go(1) type=button value=前进&gt;<BR>&nbsp;&lt;INPUT onclick=history.go(-1) type=button value=后退&gt;<BR>&nbsp;&lt;INPUT onclick=history.forward() type=button value=前进&gt;<BR>&nbsp;&lt;INPUT onclick=history.back() type=button value=后退&gt;<BR>&nbsp;&lt;INPUT onclick='window.external.ImportExportFavorites(true,"http://localhost&quot

;' type=button value=导入收藏夹&gt;
<BR>&lt;INPUT onclick='window.external.ImportExportFavorites(false,"http://localhost&quot

;' type=button value=导出收藏夹&gt;
<BR>&lt;INPUT onclick="window.external.ShowBrowserUI('OrganizeFavorites', null)"
type=button value=整理收藏夹&gt;
<BR>&lt;INPUT onclick="window.location = 'view-source:'+ window.location.href"
type=button value=查看源文件&gt;
<BR>&lt;INPUT onclick="window.external.ShowBrowserUI('LanguageDialog', null)"
type=button value=语言设置&gt;
<BR>&lt;INPUT onclick="window.external.AddFavorite('http://www.cnblogs.com/hbzxf/', 阿好空间)"
type=button value=加入收藏夹&gt;
<BR>&lt;INPUT onclick="window.external.addChannel('http://www.cnblogs.com/hbzxf/')"
type=button value=加入到频道&gt;
<BR>&lt;INPUT onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.cnblogs.com/hbzxf/')"
type=button value=设成主页&gt;
</div>

大唐电信 · 2005-07-25

to jfyes
<input name="button"
type=button onClick="document.execCommand('Saveas',false,'c://test.htm')"
value=另存为>
大虾试了你的代码，，好象不对啊。你的代码会直接保存这个网页根据用户选择的保存路径和输入的保存文件名，，，而我只是要求用户选择的保存路径和输入的保存文件名，因为我后面会根据用户输入保存文件。
请各位大虾帮帮忙。

请问各位大虾如何在网页中弹出选择文件保存路径和输入保存文件名的窗体？ ( 积分: 100 )

大唐电信

Unregistered / Unconfirmed

大唐电信

Unregistered / Unconfirmed

jfyes

Unregistered / Unconfirmed

大唐电信

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

jfyes

Unregistered / Unconfirmed

大唐电信

Unregistered / Unconfirmed

Similar threads