2008-05-02

解决Delphi的剪贴板的AsText方法乱码的问题（转）

关键字: astext、delphi
Wrong character in ClipBoard.AsText??

In Delphi, use ClipBoard unit, a common method "ClipBoard.AsText" is doing a wrong way when using non-English character. How to fix it? Look into the source code, you will find VCL use CF_TEXT to do the job (change it to CF_UNICODETEXT)!
Now we can use following code to due with the problem!

---Chinese---
使用Delphi的剪贴板的AsText方法会导致非英语出现乱码,怎么解决?改用Unicode就OK啦 

procedure SetClipboardText(AStr: string);
var    // SetBuffer(CF_TEXT, PChar(Value)^, Length(Value) + 1);
  Data: THandle;
  DataPtr: Pointer;
  Size: Integer;
  WStr: PWideChar;
begin
  Size := Length(AStr) * 4;
  WStr := AllocMem(Size);
  try
    // convert to Unicode
    StringToWideChar(AStr, WStr, Size);
    OpenClipboard(0);
    EmptyClipboard;
    Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
    try
      DataPtr := GlobalLock(Data);
      try
        Move(WStr^, DataPtr^, Size);
        SetClipboardData(CF_UNICODETEXT, Data);
      finally
        GlobalUnlock(Data);
      end;
    except
      GlobalFree(Data);
      raise;
    end;
  finally
    CloseClipboard;
    FreeMem(WStr);
  end;
end;


mathsfan补充：好久没更新了，顺便来更新一下。

文章转自：http://blog.csdn.net/ly_liuyang/archive/2007/09/28/1804562.aspx
评论
发表评论

您还没有登录，请登录后发表评论

mathsfan
  • 浏览: 137757 次
  • 性别: Icon_minigender_1
  • 来自: 浙江省杭州市
  • 详细资料
搜索本博客
我的相册
558da78e-b80d-38bb-9bdf-e0bcda4b821b-thumb
文章配图20
共 24 张
存档
最新评论