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

原创 2007年09月28日 10:54:00
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;

Delphi XML-RPC 中文乱码解决方法

  • 2010年12月30日 23:09
  • 46KB
  • 下载

Delphi xe5 控件TIdhttp的用法post,get解决中文乱码问题

网络接口如下图: 浏览器演示如下:http://112.64.158.30:7777/web/login!doLogin?data={"password":"yangtao123","userCo...

有方M660模块乱码问题解决方法

  • 2014年10月04日 17:34
  • 16KB
  • 下载

ajax中文参数乱码问题解决方法

  • 2014年07月22日 14:22
  • 337B
  • 下载

彻底解决delphi Indy10接收邮件汉字显示乱码的问题

delphi Indy10接收邮件汉字显示乱码, 直接修改Indy的代码彻底解决乱码问题。ReadStringsAsContentType, TIdtextEncoding, TIdPop3, Ret...
  • Kevinsh
  • Kevinsh
  • 2011年01月25日 14:37
  • 6487

delphi 如何判断编码格式,解决乱码问题

前阵子因为需要用到idhttp下载网页,然而令人很生气的是,他下载的html源码是乱码的,这样子是没有办法使用的,所以就必须要把他进行编码格式转换,然而令人困扰的是,他是什么格式,又该怎么转,转成什么...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:解决Delphi的剪贴板的AsText方法乱码的问题
举报原因:
原因补充:

(最多只允许输入30个字)