html页面调用存储过程,用WebBrowser实现HTML界面的应用
HTML的界面有以下特点:图文混排,格式灵活,可以包含Flash、声音和视频等,实现图文声像的多媒体界面,而且易于建立和维护。另外,HTML的显示环境一般机器上都具备,通常不需要安装额外的软件。当然,HTML界面也有它欠缺的方面,即:界面控制能力有限,代码调试不便----虽然DHTML提供了比较强的编程特性,但是比起Delphi的传统的开发语言和工具来,对界面的控制能力,尤其是和数据交互时的控制能力还是稍逊一筹。
了解了这些特点,我们就可以在实际应用开发中,适时地选择HTML技术。下面举个例子:
一种仪器的管理程序,需要显示该仪器的操作方法文档,包含文字和图片,并要求可以隐藏或显示文档,并能安要求打印。
这个应用中,图文显示、隐藏/显示部分文档、图文打印等需求,都是HTML界面所擅长的,用传统的表单控件实现几乎无法想像。
用Delphi实现HTML界面的应用主要有两种选择:WebBrowser Control或MSHTML。为了弄清两者如何选择,我们先来看看Internet Exporer 4.0及其后续版本的体系结构:
IE浏览器是建立在SHDOCVW.DLL组件之上的,而SHDOCVW.DLL则建立在MSHTML.DLL组件之上,底层则包括脚本引擎等。SHDOCVW.DLL提供了对活动文档(Active Document)的支持----例如Word等文档可以在IE中显示,并提供导航、in-place*连接、收藏夹、浏览历史和分级内容选择(PICS: Platform for Internet Content Selection)等功能。SHDOCVW.DLL组件虽然也提供了很多接口可以单独使用,但是通常所指的SHDOCVW.DLL就是WebBrowser Control。MSHTML.DLL是实行HTML解析和表现的组件。它通过DHTML对象模型提供对HTML文档的访问。它实现了活动文档服务器接口,可以通过COM接口调用。
不难看出,WebBrowser在比较高的层次上,提供了更为丰富的功能,因此一般通常编程都采用WebBrower控件。MSHTML只有在需要解析HTML这样的特殊应用中,才推荐使用。微软的MSDN网站上提供了一个使用MSHTML的例子:WalkAll Sample Source Page。
(*注:In-place链接,是指点击HTML连接时,在相同的WebBrowser实例中显示连接的HTML文档。如果仅使用MSHTML.DLL,点击链接将导致在新的浏览器实例中打开链接的文档。)
首先,在Delphi 7.0组件面板的Internet页上,把TWebBrowser组件放到表单上。
通过执行以下语句装载HTML文档到WebBrowser中进行显示:
WebBrowser1.Navigate(GetCurrentDir + ‘\index.htm‘);
隐藏/显示HTML元件代码示例:
var
Doc : IHTMLDocument2;
element: IHTMLElement;
begin
Doc := IHTMLDocument2(WebBrowser1.Document);
if nil <> Doc then
begin
element := Doc.all.item(‘T1‘, 0) as IHTMLElement;
if nil <> element then begin
if ‘‘ = element.style.display then
element.style.display := ‘none‘
else
element.style.display := ‘‘;
end;
end;
end;
设置/取值代码示例:
var
Doc : IHTMLDocument2;
inputText : IHTMLInputTextElement;
begin
Doc := IHTMLDocument2(WebBrowser1.Document);
if nil <> Doc then
begin
//如果T1不是IHTMLInputTextElement类型将出错
inputText := Doc.all.item(‘T1‘, 0) as IHTMLInputTextElement;
inputText.value := Edit1.Text;
Edit2.Text := inputText.value;
end;
end;
提示:关于哪些HTML元件(标记)应该采用什么MSHTML接口进行访问,请参考MSDN Library中的Web Development > Programming and Reusing the Browser > MSHTML Reference > Interfaces and Scripting Objects。
知道了访问HTML内容的方法,就可以通过间接方式调用HTML页面上包含的JavaScript代码。具体实现方式是:在HTML中插入等不可见元件,利用它的click事件调用响应的JavaScript函数,然后再Delphi中调用该元件的click过程。
下面我们就用Delphi调用JavaScript的alert函数来实现消息提示框。首先在HTML中加入:
Delphi中的调用代码如下:
procedure TForm1.Alert(const Msg : string);
var
Doc : IHTMLDocument2;
Element : IHTMLElement;
begin
Doc := IHTMLDocument2(WebBrowser1.Document);
Assert(nil <> Doc);//一定要先加载HTML
Element := Doc.all.item(‘ShowMessage‘, 0) as IHTMLElement;
if nil <> Element then
begin
Element.innerText := Msg;
Element.click;
end;
end;
我发现在Delphi中用Browser显示HTML,如果你的表单是作为EXE运行,然后嵌入到了别的表单的组件上显示的,例如,Form1.Parent := Form2.Panel1,即Form1显示在Form2中Panel1所占据的位置,当你用ShowMessage显示提示信息时,HTML的内容依然可以被操作,这显然不太好。使用JavaScript中的alert函数则可避免这种现象。
默认情况下,在显示HTML的WebBrowser上点击鼠标右键,会显示一个弹出菜单,和IE中看到的一样。通过这个菜单用户可以查看HTML的源代码。因此有时候我们需要屏蔽该菜单。和该菜单相关的接口是IEDocHostUIHandler。已经用人对它进行了封装,详见ieConst.pas 和 IEDocHostUIHandler.pas。使用方法如下:
var
Form1: TForm1;
FDocHostUIHandler: TDocHostUIHandler;
...
implementation
...
procedure TForm1.FormCreate(Sender: TObject);
begin
FDocHostUIHandler := TDocHostUIHandler.Create;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FDocHostUIHandler.Free;
end;
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
pDisp: IDispatch; var URL: OleVariant);
var
hr: HResult;
CustDoc: ICustomDoc;
begin
hr := WebBrowser1.Document.QueryInterface(ICustomDoc, CustDoc);
if hr = S_OK then
CustDoc.SetUIHandler(FDocHostUIHandler);
end;
有时你可能还需要定制自己的右键菜单,这是还是要借助于IEDocHostUIHandler,具体实现方法可以看看MSDN Library。
HTML事件的响应方式有两种:一种是JavaScript,一种是在Delphi中响应。一些简单的功能可以在JavaScript中实现,这样易于修改。但是从功能、安全性等方面考虑,通常还是要在Delphi中实现。例如当用户点击HTML上的一个按钮时,需要访问数据库,这是就得用Delphi了。
在Delphi中响应HTML事件,实际上就是响应ActiveX事件的问题,这通过事件槽(Event Sink)来实现,有些繁琐。还好前人已经为我们作了很多工作。利用Experts Exchange网站的Cynna封装的TDHTMLEvent类(该源码请看本文的附件),实现就简单多了。实现代码如下:
var
Form1: TForm1;
EventSink: TDHTMLEvent;
...
implementation
...
procedure TForm1.FormCreate(Sender: TObject);
begin
EventSink:= TDHTMLEvent.Create;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
EventSink.Free;
end;
procedure TForm1.DemoEventSink(Sender: TObject);
begin
ShowMessage(‘成功从HTML中调用Delphi的过程。‘);
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Doc : IHTMLDocument2;
Element : IHTMLElement;
begin
Doc := IHTMLDocument2(WebBrowser1.Document);
if nil <> Doc then
begin //找到HTML元件 Element := Doc.all.item(‘B3‘, 0) as IHTMLElement;
//使HTML元件的click事件和DemoEventSink过程关连
Element.onclick := EventSink.HookEventHandler(DemoEventSink);
end;
end;
点击HTML页面中ID为‘B3‘的按钮,就会调用DemoEventSink过程。
含有多行文本输入框(textarea )或提交(submit)按钮的HTML表单在TWebBrowser中显示时,对回车键不响应。另外,Delphi表单上按钮的快捷字母键也无法在HTML表单上输入,因为一输入就触发相应按钮的单击事件。解决代码如下:
unitUnit1;
interface
usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw_TLB, ActiveX, StdCtrls;
typeTForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Button2: TButton;
procedureFormDestroy(Sender: TObject);
procedureFormCreate(Sender: TObject);
procedureButton1Click(Sender: TObject);
procedureButton2Click(Sender: TObject);
private{ Private declarations }FOleInPlaceActiveObject: IOleInPlaceActiveObject;
procedureMsgHandler(varMsg: TMsg; varHandled: Boolean);
public{ Public declarations }end;
varForm1: TForm1;
implementation{$R *.dfm}procedureTForm1.FormDestroy(Sender: TObject);
beginFOleInPlaceActiveObject := nil;
end;
procedureTForm1.FormCreate(Sender: TObject);
beginApplication.OnMessage := MsgHandler;
end;
procedureTForm1.MsgHandler(varMsg: TMsg; varHandled: Boolean);
constDialogKeys: set ofByte = [VK_LEFT, VK_RIGHT, VK_BACK, VK_UP, VK_DOWN,
$30..$39, $41..42, $44..$55, $57, $59..$5A];
variOIPAO: IOleInPlaceActiveObject;
Dispatch: IDispatch;
begin{ exit if we don‘t get back a webbrowser object }if(WebBrowser1 = nil) then
beginHandled := System.False;
Exit;
end;
Handled := (IsDialogMessage(WebBrowser1.Handle, Msg) = System.True);
if(Handled) and(notWebBrowser1.Busy) then
begin
ifFOleInPlaceActiveObject = nil then
beginDispatch := WebBrowser1.Application;
ifDispatch <> nil then
beginDispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
ifiOIPAO <> nil thenFOleInPlaceActiveObject := iOIPAO;
end;
end;
ifFOleInPlaceActiveObject <> nil then
if((Msg.message= WM_KEYDOWN) or(Msg.message= WM_KEYUP)) and(Msg.wParam inDialogKeys) then// nothing - do not pass on the DialogKeyselseFOleInPlaceActiveObject.TranslateAccelerator(Msg);
end;
end;
initializationOleInitialize(nil);
finalizationOleUninitialize;
本段代码出自SwissDelphiCenter.ch,作者未知。主要要引用ActiveX。Delphi 7中SHDocVw_TLB改为SHDocVw。
HTML的打印和预览向来是个难题,但自从IE5.5推出后,情况大有改观。你可以利用其“打印模板”功能,实现自己的预览窗口和控制打印。“打印模板”的使用方法请参考MSDN Library中的Web Development > Programming and Reusing the Browser > Print Templates目录下的文章。从微软的网站上还可以下载到一个不错的例子,示例如何一步步由浅入深地使用Print Template (下载:打印模板示例)。
你会发现,要自己实现一个功能完善的打印模板也并非易事。IE浏览器本身带的打印模板做得还不错,能否在它的基础上加上自己的定制功能呢?答案是肯定的,至少从技术上看是这样(不考虑版权问题)。下面就介绍这偷懒的招。
用Visual Studio打开x:\Program Files\Internet Explorer\MUI\0804\SHDOCLC.DLL,会看到其资源目录。其中HTML/PREVIEW.DLG就是IE所带的打印模板了。把它export(导出)出来,把文件扩展名改成HTM,打开看看,是不是特刺激?PREVIEW.DLG用到了几个图片文件,在2110目录下,别忘了导出。(注:我的环境是Windows XP Professional英文版+SP1a,IE是6.0sp1。)
IE默认的模版中,页眉页脚均只支持纯文字。下面以定制HTML页眉为例,看看如何定制自己的打印模板。思路是:用自己的页眉内容换掉原有的内容,并修改其页眉高度和页边距使之和新的页眉相对应。
第一步,定义页眉。在要使用此模版预览打印的HTML文件中加入一个id为Header的div标记,括起HTML页眉内容,并制定以英寸为单位的页眉的高度和宽度,其中宽度应该和模版相符。例:
...(HTML页眉内容)
第二步,声明变量。在模版前面变量声明部分加上两个变量声明:
var g_htmlHeader = "";//用于保存页眉内容
var g_nHeaerHeight = 0;//页眉的高度
第三步,取得页眉。在函数OnLoadBody()中的“Printer.footer = dialogArguments.__IE_FooterString”语句之后加入这段代码:
oPageHeader = dialogArguments.__IE_BrowseDocument.all.item("Header", 0);
if (null != oPageHeader)
{
g_htmlHeader = oPageHeader.innerHTML;
g_nHeaerHeight = oPageHeader.style.posHeight;
}
第四步,指定页边距和页眉高度。在上面的代码下面紧接着加入:
//指定页边距。其中40可以自己改,单位是百分之一英寸。
Printer.marginTop = 40 + (g_nHeaerHeight * 100);
Printer.marginBottom = 40;
Printer.marginLeft = 40;
Printer.marginRight = 40;
在函数EnsureDocuments()中,
/*注释掉以下代码
if (header)
{
tmp = upTop + (27 / 100);
if (tmp > top)
top = tmp;
}
if (footer)
{
tmp = upBottom + (27 / 100);
if (tmp > bottom)
bottom = tmp;
}
*/
//紧接着加上:
tmp = upTop + g_nHeaerHeight;
if (tmp > top)
top = tmp;
//下面隔几行,注释掉:oRule.style.top = upTop + "in";
第五步,指定页眉内容。在函数CPrintDoc_AddPage()中,在“HeadFoot.page = HeadFoot.pageTotal;”语句之后加入:
//这两行用于设置页码,你在页眉可以通过加入“[P]”和“[p]”分别代表总页数和当前页数。
g_htmlHeader = g_htmlHeader.replace("[P]", "");
var pageHeader = g_htmlHeader.replace("[p]", HeadFoot.pageTotal);
//下面隔3行,注释掉:
//~oPage.children("header").innerHTML = HeadFoot.HtmlHead;
//~oPage.children("footer").innerHTML = HeadFoot.HtmlFoot;
//下面隔几行,把“newHTM += HeadFoot.HtmlHead;”改为:
newHTM += pageHeader ;
//然后注释掉(不要页脚):newHTM += HeadFoot.HtmlFoot;
至此,一个支持自定义HTML页眉的新模版就定制完成了。是不是觉得特爽?如果觉得它给你省下了两周的时间,就赶紧到“希望之光”网站上,花你2天的工资,资助一个小孩上学吧。
定制好的打印模板怎么用呢?请看以下代码:
var
vaIn, vaOut: OleVariant;
CmdTarget : IOleCommandTarget;
MyHandle : THandle;
begin
vaIn := ‘c:\\Preview.htm‘;
//预览方法1:WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);
//下面是方法2: if WebBrowser1.Document <> nil then
begin
WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget <> nil then
begin
try
CmdTarget.Exec( PGuid(nil), OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);
finally
CmdTarget._Release;
end;
end
else
begin
ShowMessage(‘IE不支持该功能,请升级至IE5.5以上。‘);
end;
end;
end;
方法1简洁,但是如果WebBroswer不支持打印预览的话就会出错。第二种方法可能更好一些。
在打印预览时,预览窗口的尺寸大小总是和WebBrowser所在的Form的一样,而且没法最大化。更麻烦的是,如果你的表单是嵌入到了别的表单的组件上显示的,例如,Form1.Parent := Form2.Panel1,即Form1显示在Form2中Panel1所占据的位置,那么预览窗口就变得很小了,不拉大根本没法看。解决办法如下,在预览的代码后面加上以下代码,使预览窗口最大化:
Handle:=FindWindow(‘Internet Explorer_TridentDlgFrame‘, ‘打印预览‘);
if 0 <> MyHandle then
begin
ShowWindow(MyHandle , SW_MAXIMIZE);
end;
如果不预览而是直接打印,则把OLECMDID_PRINTPREVIEW换成OLECMDID_PRINT就可以了。
如果要在Web应用中使用打印模板,可以通过ActiveX来实现调用。
注:打印模板需要安装Internet Explorer 5.5以上版本,本文其它功能需要安装Internet Explorer4.0以上版本。
应用做好了,总不能把HTML文件和相关的图片文件等直接发布吧。这样既不安全,前面禁止用户查看源代码的努力也白费了。因此至少应该将这些文件打个包。一般来说,作为资源编译到exe或dll里就行了。我觉得编译到DLL中最为方便。在Visual Studio中,新建一个Win32工程,应用类型选择DLL。然后把HTML文件和相关的图片文件等资源加到工程中,然后编译即可。
再添加HTML等资源时,我强烈推荐用手工加入的方法。原因有二:一,GIF等图片文件加入到工程中时,Studio可能会把文件内容自动改了,使得该文件不能正确显示;二,加入资源后会自动生成资源ID,需要把它改成你需要的名称(通常改成和文件名相同),当文件很多时,这项工作就很浪费时间,也很烦人。手工加入,即用文本编辑器把资源脚本文件(工程名.rc)打开,手工加入内容。我就不赘述了,格式例子如下:
About.htm HTML "HTML\\About.htm"
image016.gif IMAGES "HTML\\images\\image016.gif"
当加入很多文件时,如何节省时间呢?没有实践经验的人,是不可能想到这些问题的。别着急,按我说的做。
首先,进入命令行(DOS)界面(Windows NT/2000/XP/2003下运行cmd.exe进入),进入你的HTML等资源文件所在的目录,执行“dir > temp.txt”,把文件列表输出到temp.txt。
接着,用文本编辑器把该文件打开,去掉头尾内容,仅留文件列表部分,例如:
2004-03-17 11:20 20,397 About.htm
2004-03-17 11:20 27,397 index.htm
然后,用Excel把修改后的文件打开。打开时,“原始数据类型”请选择“固定宽度 - 每列字段加空格对齐”。这样,日期、时间、文件大小、文件名就被分别放在了不同的列中。删除前三列,仅留文件名一列,并把该列复制一份。在两个文件名列之间插入两个空列,分别填写“HTML”和“"HTML\\”,然后就可以另存成以制表符分隔的文本文件了。
最后,用文本编辑器把上一步处理好的文件打开,不用我多说,只要几个替换,就得到所需要的资源脚本了。对于不同目录下的文件,均需要这么弄以下。
资源脚本弄好了,把资源文件也加入(不是作为资源加入)工程,编译,就得到打包好的DLL文件了。接下来的问题是,这个DLL怎么用啊?别急,WebBrowser支持一种叫res的协议,可以访问文件里的资源。例如,假设上面About.htm打包到了myresource.dll文件中,则可以通过res://myresource.dll/About.htm访问,image016.gif则可通过res://myresource.dll/images/image016.gif访问(注意到了吧,HTML在根目录下,而IMAGES等其它资源则在同名目录下)。如果About.htm中通过“images/image016.gif”引用了image016.gif文件,则该图片在WebBrowser中正常显示。换句话说,你在打包之前,程序可以通过file://...访问HTML,打包之后,只需要换成res://...就可以了----打包对程序和HTML几乎没什么影响。但是,切记,切记!千万不要仅以数字来做文件名(如:1.htm、2.gif等),因为数字是被用来标识某种资源或某个资源的,如果用仅用数字作文件名(可以用字母+数字),打包后会导致访问找不到文件。
html页面调用存储过程,用WebBrowser实现HTML界面的应用相关推荐
- 水晶报表调用存储过程的问题
前言:现在碰到了水晶报表调用存储过程的问题,问题是这样的:ERP软件里有很多的数据表,有些报表的字段要从多个数据表里取数据,并且要对数据进行处理,来作为报表的字段,我看了些资料,说可以通过存储过程来取 ...
- ASP调用存储过程返回了一个参数和一个记录集时出现ADODB.Recordset 错误 '800a0e78'...
在测试服务器上给sql server2005 打上了sp3补丁,发现有一个调用存储过程的页面报错 ADODB.Recordset 错误 '800a0e78' 对象关闭时,不允许操作. 以为是sp3的缘 ...
- jdbctemplate mysql 分页查询 返回list对象_spring jdbctemplate调用存储过程,返回list对象...
spring jdbctemplate调用存储过程,返回list对象 方法: /** * 调用存储过程 * @param spName */ @SuppressWarnings("unche ...
- 在ASP.NET中调用存储过程方法
两种不同的存储过程调用方法 为了突出新方法的优点,首先介绍一下在.NET中调用存储过程的"官方"方法.另外,本文的所有示例程序均工作于SqlServer数据库上,其它情况类似,以后 ...
- 在ASP.NET中调用存储过程方法新解
摘要 存储过程的调用在B/S系统中用的很多.传统的调用方法不仅速度慢,而且代码会随着存储过程的增多不断膨胀,难以维护.新的方法在一定程度上解决了这些问题. 关键词 ASP.NET:存储过程 在使用.N ...
- Oracle 存储过程,Hibernate 调用存储过程,JDBC调用存储过程,Oracle 动态SQL
Oracle 存储过程学习 目录 Oracle 存储过程........................................................................ ...
- vue 子页面调用父页面的参数_js父页面调用子页面数据时,子页面通过父页面传过来的参数回调父页面具体方法_html/css_WEB-ITnose...
今天写代码时发现同一页面多个地方需要调用同一个子页面,如果多个方法调用时,同一子页面回调父页面方法则会出问题,所以查了下资料,让这个功能通用化,根据具体方法回调具体父页面方法,顺便总结一下,希望以后可 ...
- jdbcTemplate 调用存储过程。 入参 array 返回 cursor
注:本文来源< jdbcTemplate 调用存储过程. 入参 array 返回 cursor > 需求: java传入一个list object.从数据库找到相关的数据并返回. 如 ...
- 调用存储过程时报错:There is no ‘username’@'host’ registered
作/译者:叶金荣(Email: ),来源:http://imysql.cn,转载请注明作/译者和出处,并且不能用于商业用途,违者必究. 调用存储过程时,碰到错误,大致信息如下: error 1449 ...
最新文章
- vasp算表面吸附流程_VASP实例分析表面吸附计算
- Typora入门(2)
- python opencv检测人脸
- 导致溢出_由整数类型溢出导致的英雄联盟峡谷惨案
- 解决问题:HTTP 错误 401.1 - 未授权:登录失败【转】
- mysql按时间月份查询数据
- 设置webstorm实时预览看这一篇就够了,5分钟解决!!
- JAVA书签方式导出Word
- 珠海分销系统官网开发笔记:wordpress中使用canonical标签修复版
- 后台获取访问端的真实ip地址
- 浅谈Android相机演变
- Linux的软件包封装格式有,RED HAT LINUX所提供的安装软件包,默认的打包格式为( )。...
- 太原市社会保险新数据中心建设及系统搬迁项目
- 用Java抓取10年大乐透中奖数据
- 戴尔 PowerEdge 14G 加速分布式存储解决方案 zData 提升性能
- 网络流量大数据分析平台(1)
- 网易buff服务器不稳定啥时候好,精准验货!BUFF社区服检视功能介绍
- mysql分库分表配置命令_mysql分库分表中间件Heisenberg
- oracle分区设计,​Oracle 分区
- 10-52 2-1-(e) 查询所有的男影星或者住址中含有4的影星 (10分
热门文章
- Java并发:隐藏线程死锁
- JavaOne 2012 – 2400小时! 一些建议
- 在下一个项目中不使用JavaDoc的5大原因
- Update resources 和 Update classes and resources 的特殊情况
- php mysql刷新表格_php读入mysql数据并以表格形式显示(表单实现无刷新提交)
- mysql 如何凭借几个列_我如何总结MySQL中的几个列
- python整数加法计算器_Python应用实例赏析2.1简单计算
- C/C++高级算法之绘制曼德布洛特集
- python输入print跳到documentation-习题 48: 更复杂的用户输入
- 是vans_硬核复刻,就服VANS棋盘格