[1000分求解]怎样把剪贴板的所有内容保存到文件和从文件恢复到剪贴板？(200分)

lhc4000 · 2008-08-16

请问各路大侠：怎样把剪贴板的所有内容保存到文件和从文件恢复到剪贴板？ 比如，我用Ctrl+C把网页上的图片和文字一起复制到了剪贴板中，怎样把他们一起保存起来，下次需要时再写入剪贴板中？ 另外的分，有合适答案时开帖酬谢！

李翔鹏 · 2008-08-16

可以把剪贴板的内容存入一个RTF格式的文件中，然后需要时再复制出来就行了。

funxu · 2008-08-19

首先你要写一个剪贴板监视器，然后判断进入剪贴板的是图片还是文字，然后分别保存起来，但是有个问题没办法判断你保存的是网页中的文字还是其他文字，恐怕就要由你自己来筛选了，有关剪贴板监视器的代码在大富翁可以搜到

zwz_good · 2008-08-27

以下是将剪贴板中的RTF格式保存到流中，以及从流中恢复到剪贴板中的代码，我已经用了几年了，可以满足你的要求。 {***************************************************************  *  * 单元名    : UtFunction  * 描述      : 通用的函数  * 创建者    : zwz_good  * 创建日期  : 2005-12-25  * 修改者    : zwz_good  * 修改日期  : 2006-4-25  ****************************************************************} {****************************************************************************** 函数名：ClipboardRTFSaveToStream 说    明：将剪贴板中的RTF格式内容保存到流中 输入参数：mStream: TStream 待保存内容的流媒体 输出参数：无 返回值：成功为True,失败为False 全局变量：无 数据库： 调    用：无 *******************************************************************************} function ClipboardRTFSaveToStream(var mStream: TStream): boolean; {****************************************************************************** 函数名：ClipboardRTFLoadFromStream 说    明：将流中的内容以RTF格式复制到剪贴板中 输入参数：mStream: TStream 待复制到剪贴板中的流媒体 输出参数：无 返回值：成功为True,失败为False 全局变量：无 数据库： 调    用：无 *******************************************************************************} function ClipboardRTFLoadFromStream(var mStream: TStream): boolean; const   RTFFormatName: array[1..17] of AnsiChar = ('R','i','c','h',' ','T','e','x','t',' ',   'F','o','r','m','a','t', #0); function ClipboardRTFSaveToStream(var mStream: TStream): boolean; var   iFormat: cardinal;   buffer: array[0..127] of AnsiChar;   hGlobal: THANDLE;   pGlobal: PAnsiChar;   FormatSize: cardinal; begin //  'Rich Text Format'   Result:= False;   mStream.Position:= 0;   //OpenClipboard(Application.Handle);   Clipboard.Open;   try     iFormat:= EnumClipboardFormats(0);     while iFormat <> 0 do     begin       if iFormat > 49151 then   //49152--65535之间的值才是自定义剪贴板格式,才可以用 GetClipboardFormatName取得名字       begin         zeromemory(@buffer, sizeof(AnsiChar)*128);         GetClipboardFormatName(iFormat, @buffer, 128);         if StrComp(@RTFFormatName, @buffer) = 0 then         begin           hGlobal:= GetClipboardData(iFormat);           pGlobal:= GlobalLock(hGlobal);           FormatSize:= GlobalSize(hGlobal);           mStream.Write(FormatSize, SizeOf(Cardinal));           mStream.Write(pGlobal^, FormatSize);           GlobalUnLock(hGlobal);           Result:= True;           break; //保存RTF完成后,退出循环.         end;       end;       iFormat:= EnumclipboardFormats(iFormat);     end;   finally     Clipboard.Close;   end; end; function ClipboardRTFLoadFromStream(var mStream: TStream): boolean; var   hGlobal: THANDLE;   pGlobal: PAnsiChar;   iFormat: cardinal;   FormatSize: cardinal; begin   Result:= False;   iFormat:= RegisterClipboardFormat(@RTFFormatName);   mStream.Read(FormatSize, SizeOf(cardinal));   hGlobal:= 0;   hGlobal:= GlobalAlloc(GHND + GMEM_SHARE, FormatSize);   if hGlobal > 0 then   begin     pGlobal:= GlobalLock(hGlobal);     //复制数据     mStream.Read(pGlobal^, FormatSize);     GlobalUnlock(hGlobal);     //打开剪贴板将内存句柄交给剪贴板     Clipboard.Open;     EmptyClipboard();     SetClipboardData(iFormat, hGlobal);     Clipboard.Close;     Result:= True;   end; end;

[1000分求解]怎样把剪贴板的所有内容保存到文件和从文件恢复到剪贴板？(200分)

lhc4000

Unregistered / Unconfirmed

李翔鹏

Unregistered / Unconfirmed

funxu

Unregistered / Unconfirmed

zwz_good

Unregistered / Unconfirmed

Similar threads