《网络吸管》开发手记
网络确实是个好东西，文章呀，图片呀什么的都很吸引人。每次上网都能满载而归，但是这些资料的收集过程却很麻烦。对于好文章，每次都要复制、粘贴地在记事本和IE之间切换多次才能保存下来，而且说不定什么时候遇到那种怎么复制也复制不下来的防复制网页；对于图片也要点右键，选择“图片另存为”，再点确定才可以，遇到文件重名问题还要重命名。上网的兴致全被打乱了。网上虽然也有“网文快捕”之类的小软件，但是由于不是为自己“量身定做”的，所以用起来也不是很顺手。既然这样，就自己动手做一个吧，“自己动手丰衣足食”嘛！说干就干！
设计思想很简单：监视剪贴板，当发现剪贴板中有新内容时，就根据内容是文字还是图片来决定不同的保存方式。
如何监视剪贴板呢？很自然地想到放一个定时器，每隔一段时间检测一个剪贴板，将剪贴板地内容于上次检测地内容相比较，如果不同，就说明剪贴板的内容有变化。但是这样效率太低了，并且定时器的时间间隔也不好把握，间隔太短会降低系统的效率，而间隔太长就有可能漏掉复制的内容。这让我想起了CPU与外设之间通讯方式中的查询方式，那么有没有一种像CPU与外设之间的中断方式的东西呢？启动MSDN，搜索ClipBoard，呵呵！终于找到了！是什么呢？听我慢慢道来！
为了使应用程序能自动感知剪贴板的变化，windows提供了两个API函数。使用SetClipBoard可以将窗体注册到剪贴板观测链中，然后程序就能响应剪贴板的变化消息。剪贴板观察器是一个显示剪贴板当前内容的窗口。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能够接受当前发送到剪贴板的内容。
SetClipBoard的原型是：
function SetClipBoard(hwndNewViewer:HWND):HWND;
hwndNewViewer为要注册的窗体句柄。如果注册成功，则返回剪贴板观测链中下一个窗体的句柄；如果发生错误或无其他窗体，则返回NULL。
如果剪贴板发生变化，windows会向窗体发送WM_CHANGECCHAIN或WM_DRAWCLIPBOARD消息，观测链中每个窗体都会调用SendMessage将该消息传送给下一个窗体。当应用程序退出时，要利用API函数ChangeClipboardChain将窗体从剪贴板观测链中移去。其原型为：
function ChangeClipboardChain(hWndRemove, hWndNewNext:HWND):boolean;
hWndRemove将要删除的窗口的句柄, hWndNewNext为SetClipBoard返回的窗体的句柄。
这样我们只要在程序中等待剪贴板变化的消息即可。当消息到来时，我们应该怎样得到剪贴板中的内容呢？Delphi的clipbrd.pas单元中定义了一个类TClipboard，它封装了Windows剪贴板，简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard，该函数用于返回TClipboard对象实例，使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍：
方法：
procedure Clear; 清空剪贴板。
function HasFormat(Format: Word): Boolean; 查询剪贴板中是否有指定格式的内容。可以有三种取值：CF_TEXT(文字)、CF_BITMAP(位图)、CF_METAFILEPICT(元文件)。
属性：
AsText：用于读写剪贴板文字内容。如何给用户保存下来的图片文件命名也是个问题。我们可以设置一个全局整型变量，每当保存一个图片文件时，就令这个变量增加1，将这个整型变量转换成字符串做为文件名。如果指定的文件名已经存在，就要给文件重命名。最简单的办法就是在文件名之前（或之后）加上一个字符串（比如'new'），如果加上这个字符串后还是存在重名的文件呢？这就要用到学编程的人在一开始就学到的一个小技巧：递归。这个问题的解决办法见下面的代码：
procedure SaveToPic(APic: TJPegImage; AFileName: string);
Const PICPLUSSTR = 'new';
begin
if FileExists(AFileName) then
savetopic(ABmp, PICPLUSSTR+AFileName)
else
SaveBmpAsJpg(APic, AFileName);
end;在实际应用的时候，还应该加上异常处理（如磁盘空间已满，文件名过长等）。图片的保存的基本问题已经解决，我们再来看看文字的保存。为了增强程序的灵活性，我们应该使用用户能方便地将不同地文字保存到不同的文件。继续沿用上面保存图片的方式用数字做文件名吗？当然不可以。一是因为文本文件不像图片那样在资源管理器中可以预览，用户必须打开文件才能知道文件中保存的是什么内容，如果用户想在一大堆“1.txt”、“2.txt”……中找自己想要的内容就太麻烦了；二是因为用户并不要求每次复制下来的内容都保存到单一的文件中，而是要将相关的内容保存到一个文件中。我对这个问题的解决方法是这样的：
用户可以先复制一段文字，然后再按一个热键（比如Ctrl+Alt+S，为什么要选Ctrl+Alt+S做热键呢？后面再说！），这样用户以后复制下的文字就保存到以用户复制的文字做为文件名的文件中。
记得无数位大师说过：“要将用户界面与业务逻辑分开。”好吧，就将上面的东西封装一下，也算是我向OO迈进的第一步吧！（下面之列出了类的部分成员）
TWebPageSaver = class(TObject)
private
FImagePath: string;
FTextPath: string;
FImageCount: Integer;
FTextFileName: string;
procedure SetImagePath(const Value: string);
procedure SetTextPath(const Value: string);
public
function Save: Boolean;//result is whether the content is saved
procedure NewTextFile(AFileName:string);
property ImagePath: string read FImagePath write SetImagePath;
property TextPath: string read FTextPath write SetTextPath;
end;
在用户界面中，当用户按下热键Ctrl+Alt+S时，就调用TWebPageSaver.NewTextFile更改文字保存的文件名FTextFileName；当收到剪贴板变化的消息时就调用TWebPageSaver.Save保存剪贴板中的内容。另外还有ImagePath、TextPath等属性，可以由用户来更改图片、文字的保存路径。
网络确实是个好东西，文章呀，图片呀什么的都很吸引人。每次上网都能满载而归，但是这些资料的收集过程却很麻烦。对于好文章，每次都要复制、粘贴地在记事本和IE之间切换多次才能保存下来，而且说不定什么时候遇到那种怎么复制也复制不下来的防复制网页；对于图片也要点右键，选择“图片另存为”，再点确定才可以，遇到文件重名问题还要重命名。上网的兴致全被打乱了。网上虽然也有“网文快捕”之类的小软件，但是由于不是为自己“量身定做”的，所以用起来也不是很顺手。既然这样，就自己动手做一个吧，“自己动手丰衣足食”嘛！说干就干！
设计思想很简单：监视剪贴板，当发现剪贴板中有新内容时，就根据内容是文字还是图片来决定不同的保存方式。
如何监视剪贴板呢？很自然地想到放一个定时器，每隔一段时间检测一个剪贴板，将剪贴板地内容于上次检测地内容相比较，如果不同，就说明剪贴板的内容有变化。但是这样效率太低了，并且定时器的时间间隔也不好把握，间隔太短会降低系统的效率，而间隔太长就有可能漏掉复制的内容。这让我想起了CPU与外设之间通讯方式中的查询方式，那么有没有一种像CPU与外设之间的中断方式的东西呢？启动MSDN，搜索ClipBoard，呵呵！终于找到了！是什么呢？听我慢慢道来！
为了使应用程序能自动感知剪贴板的变化，windows提供了两个API函数。使用SetClipBoard可以将窗体注册到剪贴板观测链中，然后程序就能响应剪贴板的变化消息。剪贴板观察器是一个显示剪贴板当前内容的窗口。剪贴板观察链是一系列相互独立的剪贴板观察窗口，它们都能够接受当前发送到剪贴板的内容。
SetClipBoard的原型是：
function SetClipBoard(hwndNewViewer:HWND):HWND;
hwndNewViewer为要注册的窗体句柄。如果注册成功，则返回剪贴板观测链中下一个窗体的句柄；如果发生错误或无其他窗体，则返回NULL。
如果剪贴板发生变化，windows会向窗体发送WM_CHANGECCHAIN或WM_DRAWCLIPBOARD消息，观测链中每个窗体都会调用SendMessage将该消息传送给下一个窗体。当应用程序退出时，要利用API函数ChangeClipboardChain将窗体从剪贴板观测链中移去。其原型为：
function ChangeClipboardChain(hWndRemove, hWndNewNext:HWND):boolean;
hWndRemove将要删除的窗口的句柄, hWndNewNext为SetClipBoard返回的窗体的句柄。
这样我们只要在程序中等待剪贴板变化的消息即可。当消息到来时，我们应该怎样得到剪贴板中的内容呢？Delphi的clipbrd.pas单元中定义了一个类TClipboard，它封装了Windows剪贴板，简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard，该函数用于返回TClipboard对象实例，使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍：
方法：
procedure Clear; 清空剪贴板。
function HasFormat(Format: Word): Boolean; 查询剪贴板中是否有指定格式的内容。可以有三种取值：CF_TEXT(文字)、CF_BITMAP(位图)、CF_METAFILEPICT(元文件)。
属性：
AsText：用于读写剪贴板文字内容。如何给用户保存下来的图片文件命名也是个问题。我们可以设置一个全局整型变量，每当保存一个图片文件时，就令这个变量增加1，将这个整型变量转换成字符串做为文件名。如果指定的文件名已经存在，就要给文件重命名。最简单的办法就是在文件名之前（或之后）加上一个字符串（比如'new'），如果加上这个字符串后还是存在重名的文件呢？这就要用到学编程的人在一开始就学到的一个小技巧：递归。这个问题的解决办法见下面的代码：
procedure SaveToPic(APic: TJPegImage; AFileName: string);
Const PICPLUSSTR = 'new';
begin
if FileExists(AFileName) then
savetopic(ABmp, PICPLUSSTR+AFileName)
else
SaveBmpAsJpg(APic, AFileName);
end;在实际应用的时候，还应该加上异常处理（如磁盘空间已满，文件名过长等）。图片的保存的基本问题已经解决，我们再来看看文字的保存。为了增强程序的灵活性，我们应该使用用户能方便地将不同地文字保存到不同的文件。继续沿用上面保存图片的方式用数字做文件名吗？当然不可以。一是因为文本文件不像图片那样在资源管理器中可以预览，用户必须打开文件才能知道文件中保存的是什么内容，如果用户想在一大堆“1.txt”、“2.txt”……中找自己想要的内容就太麻烦了；二是因为用户并不要求每次复制下来的内容都保存到单一的文件中，而是要将相关的内容保存到一个文件中。我对这个问题的解决方法是这样的：
用户可以先复制一段文字，然后再按一个热键（比如Ctrl+Alt+S，为什么要选Ctrl+Alt+S做热键呢？后面再说！），这样用户以后复制下的文字就保存到以用户复制的文字做为文件名的文件中。
记得无数位大师说过：“要将用户界面与业务逻辑分开。”好吧，就将上面的东西封装一下，也算是我向OO迈进的第一步吧！（下面之列出了类的部分成员）
TWebPageSaver = class(TObject)
private
FImagePath: string;
FTextPath: string;
FImageCount: Integer;
FTextFileName: string;
procedure SetImagePath(const Value: string);
procedure SetTextPath(const Value: string);
public
function Save: Boolean;//result is whether the content is saved
procedure NewTextFile(AFileName:string);
property ImagePath: string read FImagePath write SetImagePath;
property TextPath: string read FTextPath write SetTextPath;
end;
在用户界面中，当用户按下热键Ctrl+Alt+S时，就调用TWebPageSaver.NewTextFile更改文字保存的文件名FTextFileName；当收到剪贴板变化的消息时就调用TWebPageSaver.Save保存剪贴板中的内容。另外还有ImagePath、TextPath等属性，可以由用户来更改图片、文字的保存路径。
解决方案 »
免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货