procedure TClipSaveForm FormCreate(Sender: TObject)
begin
View := False;
SpeedButton Down := True;
MyBitmap := TBitmap create;
try
MyBitmap Width := ;
MyBitmap Height := ;
except
Application terminate;
end;
Clipboard Clear;
NextViewerHandle := SetClipboardViewer(Handle)
end;
窗口关闭时 退出剪贴板观察器链 并释放内存
procedure TClipSaveForm FormDestroy(Sender: TObject)
begin
ChangeClipboardChain(Handle NextViewerHandle)
MyBitmap Free;
end;
在以上两段程序中用到的两个Windows API函数SetClipboardViewer和ChangeClipboardChain分别用于登录和退出剪贴板观察器链
程序保存位图的功能是在消息响应过程WMDrawClipboard中实现的 该过程在剪贴板内容有变化时被调用
procedure TClipSaveForm WMDrawClipboard(var Msg: MDrawClipboard)
var
FileName: String;
begin
If NextViewerHandle <> then
SendMessage(NextViewerHandle msg Msg )
If ClipBoard HasFormat(CF_BITMAP) then
begin
MyBitmap Assign(Clipboard)
If SaveDialog Execute then
begin
FileName := SaveDialog FileName;
MyBitmap SaveToFile(FileName)
end;
If View then
begin
WindowState := wsNormal;
Image Picture Bitmap := MyBitmap;
end;
end;
Msg Result := ;
end;
程序首先判断在剪贴板观察器链中是否还存在下一个观察器 如果有 则把消息传递下去 这是剪贴板观察器程序的义务 而后判断剪贴板上内容的格式是否为位图 如是 则首先把剪贴板上内容保存到数据成员MyBitmap中 并激活一个文件保存对话框把位图保存到文件中 如果View=True 则把窗口状态(WindowState)设置为wsNormal 并把MyBitmap赋给Image部件的相应值 使用户可以对剪贴板上的位图进行观察
消息响应过程WMChangeCBChain在剪贴板观察器链上其它观察器退出时被调用 根据被移出观察器的不同位置决定了不同的处理方法
procedure TClipSaveForm WMChangeCBChain(var Msg: MChangeCBChain)
begin
if Msg Remove = NextViewerHandle then
NextViewerHandle := Msg Next
else
if NextViewerHandle <> then
SendMessage(NextViewerHandle Msg Msg Msg Remove Msg Next)
Msg Result := ;
end;
窗口上有两个加速按钮 两个按钮 它们击键(click)事件处理过程如下 每一程序段的意义是非常显然的
procedure TClipSaveForm Button Click(Sender: TObject)
begin
Close;
end;
procedure TClipSaveForm Button Click(Sender: TObject)
begin
WindowState := wsMinimized;
end;
procedure TClipSaveForm SpeedButton Click(Sender: TObject)
begin
View := True;
Image Picture Bitmap := MyBitmap;
end;
procedure TClipSaveForm SpeedButton Click(Sender: TObject)
begin
View := False;
Image Picture Bitmap := nil;
end;
通过对这个程序的介绍 以下几点是应该注意的
提供了一种自己截获和处理剪贴板上内容的方法 读者可以根据需要进一步扩充
提供了响应Windows消息的方法 在第三篇有关自定义部件开发的内容中 这一问题还要详细论述
最后的一点启示是 在Delphi程序开发中巧妙应用传统的Windows方法(如消息处理 API函数等)仍是很有必要的 而在应用这些方法中所体现的方便之处 正是Delphi胜过其它可视化开发工具的一个重要方面
Windows的DDE原理和 Dephi的DDE实现机制
Windows的DDE原理
Windows的DDE机制基于Windows的消息机制 两个Windows应用程序通过相互之间传递DDE消息进行DDE会话(Conversation) 从而完成数据的请求 应答 传输 这两个应用程序分别称为服务器(Server)和客户(Client) 服务器是数据的提供者 客户是数据的请求和接受者
DDE会话由客户程序启动 客户程序把一条消息(WM_DDE_INITIATE)传播给当前运行的所有Windows程序 这条消息指明了客户程序所需要的一般数据(应用程序 主题) 拥有这些数据的DDE服务器可以响应这条被传播的消息 此时 DDE会话就开始了
由于在每个主题中 DDE服务器可以支持一个或多个数据项 所以在客户请求数据时应同时指明应用程序名 主题名和项目名 应用程序 主题 项目是DDE中三个最基本的概念
利用Windows本身提供的DDE消息和API进行DDE编程是一件相当棘手的问题 虽然使用DDE管理库(ddeml dll)可以一定程度上减轻开发者的工作负担 但开发DDE程序仍不是一件轻松的事情
此时Delphi出现了!Delphi通过其自身巧妙的设计使开发一个DDE应用程序同开发一个普通程序一样地快捷 方便
Delphi的DDE实现机制简介
Delphi把所有的DDE功能做到四个部件中 它们是
● TDDEClientConv : 用于客户程序建立和维护一个DDE会话
● TDDEClientItem : 用于客户程序建立和维护数据交换通道
● TDDEServerConv : 用于服务器程序响应DDE会话
● TDDEServerItem : 用于服务器程序维护数据交换通道
前两个部件用于生成一个DDE客户程序 后两个部件用于生成一个DDE服务器程序 如果一个应用程序同时拥有这些部件 则这一程序既可以充当DDE客户 也可以充当DDE服务器
会话部件TDDEClientConv TDDEServerConv用于建立和维护一个DDE会话 DDE会话包括DDE服务和DDE主题两部分
DDE服务是DDE服务器的名称 即在一般的Windows DDE机制中所讲的应用程序名 一般说来这一名称是DDE服务器应用程序执行文件名去掉 EXE后缀 比如你的应用程序要和Word 建立会话 则DDE服务为WINWORD 但也不尽然 比如你的应用程序要和Borland ReportSmith ( RPTSMITH EXE ) 建立会话 则DDE 服务为 Report Smith DDE服务到底如何 读者可参看相关的DDE服务器应用程序文档
DDE主题是一个包含了联接信息的数据单元 一般说来DDE 主题是一个包括扩展名的完整文件名 例如和Excel中的一个文件建立DDE会话 则主题可能是
Topic = c:\excel\Example\sale xls
如果服务器是一个Delphi应用程序 缺省情况下主题是包含欲联接数据窗体的标题 如果服务器使用了DDEServerConv部件 则要求使用部件DDEServerConv的名称作为DDE主题
项目部件TDDEclientItem TDDEServerItem用于建立和维护DDE数据的传输通道 DDE项目中包含着实际欲传输的数据 DDE项目的格式取决于DDE服务器应用程序 一个可能的DDE项目例子是电子表格中的单元和数据库表中的域 如果服务器是Delphi应用程序 则项目是连接的 DDEServerItem部件的名称
Delphi的DDE实现机制方便 实用 但也有一个令人遗憾的缺陷 只能传输文本数据以及命令 宏 而不能传输图像数据 在这一点上微软公司推出的Visual Basic 要略胜一筹 不过在目前文本数据的使用仍是最广泛的 而且图像传输可以利用剪贴板和OLE来实现 则这一缺陷也并无很大的影响
lishixinzhi/Article/program/Delphi/201311/25230内存的一部分。
在Windows中,剪贴板是用来在程序和文件间传递信息的临时存储区,此存储区是内存的一部分。
MicrosoftWindows *** 作系统是美国微软公司研发的一套 *** 作系统,它问世于1985年,起初仅仅是MS-DOS模拟环境,后续的系统版本由于微软不断的更新升级,不但易用,也成为了当前应用最广泛的 *** 作系统。Windows采用了图形用户界面(GUI),比起从前的MS-DOS需要输入指令使用的方式更为人性化。随着计算机硬件和软件的不断升级,Windows也在不断升级,从架构的16位、32位再到64位,系统版本从最初的Windows10到大家熟知的Windows95、Windows98、Windows2000、WindowsXP、WindowsVista、Windows7、Windows8、Windows81、Windows10和WindowsServer服务器企业级 *** 作系统,微软一直在致力于Windows *** 作系统的开发和完善。通过组策略,我们可以解决以上问题,开始菜单运行输入gpeditmsc,进入“计算机配置”项,按顺序进入“管理模板”、“windows组件”、“终端服务”、“客户端/服务器数据重定向”。在详细描述栏中启用“不允许剪切板重定向”、“不允许COM端口重定向”、“不允许客户端打印机重定向”、“不允许LPT端口重定向”、“不允许驱动器重定向”。
>windows的剪贴板是用于临时存放信息的一块内存区间。根据查询相关公开信息显示,MicrosoftWindows是美国微软公司研发的一套 *** 作系统。它问世于1985年,起初为运行于MS-DOS之下的桌面环境,其后续版本主要发展为个人计算机和服务器用户设计的 *** 作系统,并最终获得了世界个人计算机 *** 作系统的垄断地位。
,asp是服务器端语言,这里应该是javascript clipboardDatasetData('text', xxx) 是把xxx的内容复制到剪贴板 clipboardDatagetData('text') 是读出当前剪贴板里的内容, <input type="button" value="黏贴" onclick="javascript:documentgetElementById('pic')value=clipboardDatagetData('Text');" />欢迎分享,转载请注明来源:内存溢出
评论列表(0条)