我的程序中有一个功能是将界面上显示的一些内容复制到剪贴板,然后用户可以按ctrl+v粘贴到excel或其他文本编辑器中,这个功能一直工作正常,然而最近有一个用户说他那里将文字复制到剪贴板后,再粘贴出来时,汉字全都变成了乱码,而系统中其他程序中拷贝粘贴功能是正常的,不知是什么原因,我在好几台计算机上都重复不出这个现象,所以感觉可能是系统中的什么设置改变了,但又不知如何恢复正常?
OS是windows2000server
下面是代码:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses clipbrd;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var str1:string;i,j:integer;
begin
str1:='';
for i:=0 to stringgrid1.RowCount-1 do
begin
for j:=1 to stringgrid1.ColCount-1 do
str1:=str1+stringgrid1.cells[j,i]+chr(9);
str1:=str1+chr(13)+chr(10);
end;
clipboard.AsText:=str1;
showmessage('已经复制到剪贴板!');
end;procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
for i:=0 to stringgrid1.RowCount-1 do
for j:=0 to stringgrid1.ColCount-1 do
stringgrid1.Cells[j,i]:='abc汉字'+inttostr(random(100));
end;end.
OS是windows2000server
下面是代码:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses clipbrd;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var str1:string;i,j:integer;
begin
str1:='';
for i:=0 to stringgrid1.RowCount-1 do
begin
for j:=1 to stringgrid1.ColCount-1 do
str1:=str1+stringgrid1.cells[j,i]+chr(9);
str1:=str1+chr(13)+chr(10);
end;
clipboard.AsText:=str1;
showmessage('已经复制到剪贴板!');
end;procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
for i:=0 to stringgrid1.RowCount-1 do
for j:=0 to stringgrid1.ColCount-1 do
stringgrid1.Cells[j,i]:='abc汉字'+inttostr(random(100));
end;end.
HWND hWndRemove, //将要删除的窗口的句柄
HWND hWndNewNext //观察链中下一个窗口的句柄
);
---- Delphi的clipbrd.pas单元中定义了一个类TClipboard,它封装了Windows剪贴板,简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard,该函数用于返回TClipboard对象实例,使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍。 ---- 方法: ---- Assign:将指定的对象放入剪贴板中。 ---- Open:打开剪贴板,防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。 ---- Close:关闭剪贴板。应该与打开剪贴板成对使用。 ---- Clear:清空剪贴板。 ---- GetAsHandle:返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。 ---- GetComponent:返回剪贴板中的一个控件。Delphi自己使用得多。 ---- HasFormat:查询剪贴板中是否有指定格式的内容。 ---- 属性: ---- AsText:用于读写剪贴板文字内容。 ---- FormatCount:读剪贴板中数据格式的种数。 ---- Formats:返回剪贴板中各种格式的列表。 ---- 此外,Delphi中的许多控件中也封装了有关剪贴板处理的操作。下面的一个处理剪贴板的简单例子,只是将剪贴板的文字内容显示为窗口标题。 unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
Clipbrd;//加入clipbrd单元type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
private
{ Private declarations }
public
NextClipHwnd:HWND;//观察链中下一个窗口句柄
procedure WMDrawClipBoard
(var AMessage:TMessage);
message WM_DRAWCLIPBOARD;
//处理WM_DRAWCLIPBOARD消息过程
end;var
Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.WMDrawClip
Board(var AMessage: TMessage);
begin
//将WM_DRAWCLIPBOARD
消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,AMessage.
Msg,AMessage.WParam,AMessage.LParam);
//查询剪贴板中特定格式的数据内容
if (Clipboard.HasFormat(CF_TEXT) or
Clipboard.HasFormat(CF_OEMTEXT)) then
begin
//处理剪贴板中内容
Caption:=Clipboard.asText;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
//获得观察链中下一个窗口句柄
NextClipHwnd:=SetClipBoardViewer(Handle);
end;procedure TForm1.FormClose
(Sender: TObject; var Action: TCloseAction);
begin
//从观察链中删除本观察窗口
ChangeClipboardChain(Handle,NextClipHwnd);
//将WM_DRAWCLIPBOARD
消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,WM_
CHANGECBCHAIN,Handle,NextClipHwnd);
end;end.
---- 需要注意的是,在处理剪贴板内容变化的消息WM_DRAWCLIPBOARD的过程和关闭窗口事件中使用函数sendmessage把WM_DRAWCLIPBOARD或WM_CHANGECBCHAIN消息传递到观察链中的下一个窗口是必要的,否则有可能其他窗口不能获得类似消息。另外,在使用网络蚂蚁时笔者曾经碰到不能设置剪贴板格式的情况,在此提醒读者注意检查RegisterClipboardFormat等函数的返回值。
//////////////////////////////////////////////////////
unit ClipboardViewer;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FNextViewerHandle : THandle;
procedure WMDrawClipboard (var message : TMessage);
message WM_DRAWCLIPBOARD;
procedure WMChangeCBCHain (var message : TMessage);
message WM_CHANGECBCHAIN;
public
end;var
Form1: TForm1;implementation
{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
// Hook the clipboard viewer chain
// Should also check for a possible null return value, which indicates
// that the function failed.
FNextViewerHandle := SetClipboardViewer(Handle);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
// Remove ourselves from the clipboard viewer chain.
ChangeClipboardChain(Handle, FNextViewerHandle);
end;procedure TForm1.WMDrawClipboard (var message : TMessage);
begin
// Called whenever contents of the clipboard changes
message.Result := SendMessage(WM_DRAWCLIPBOARD, FNextViewerHandle, 0, 0);
end;procedure TForm1.WMChangeCBCHain (var message : TMessage);
begin
// Called when there is a change in the Clipboard viewer chain.
if message.wParam = FNextViewerHandle then begin
// the next viewer in the chain is being removed. Update our internal var.
FNextViewerHandle := message.lParam;
// Return 0 to indicate message was processed
message.Result := 0;
end else begin
// Pass message on to next window in chain.
message.Result := SendMessage(FNextViewerHandle, WM_CHANGECBCHAIN,
message.wParam, message.lParam);
end;
end;
end.
有的机器只选择了一种输入法区域设置,当然不存在乱码的问题。