Delphi的剪贴板的AsText方法乱码问题的解决(转)
2011-03-16 08:43
513 查看
http://msdn.javaeye.com/blog/188776
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;
引用:SetClipboardText(trim((sender as TDBText).Caption));
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;
引用:SetClipboardText(trim((sender as TDBText).Caption));
相关文章推荐
- 解决Delphi的剪贴板的AsText方法乱码的问题
- 解决Delphi的剪贴板的AsText方法乱码的问题
- 解决Delphi的剪贴板的AsText方法乱码的问题
- (转)Delphi 调用C#编写的WebService 参数为Null解决方法 附中文乱码问题
- log4j日志文件乱码问题的解决方法
- 阅读PDF乱码问题简便解决方法教程
- NetBox环境下ajax用get获取数据,中文乱码的问题解决:对象不支持此属性或方法: 'Response.CharSet'
- 中文乱码问题及其解决方法(java中)
- php -- 解决php连接sqlserver2005中文乱码问题(附详细解决方法)
- Reporting Services 中关于汉字乱码问题解决方法
- Get,Post请求中文乱码问题有效解决方法
- Flash读取XML文件的中文时出现乱码问题解决方法
- python 写入csv乱码问题解决方法
- 从js向Action传中文参数出现乱码问题的解决方法
- php+mysql的utf-8中文乱码问题的解决方法
- Oracle汉字乱码问题原因及解决方法
- win7乱码问题解决方法(原创)
- java连接mysql 乱码的问题的解决方法
- 伪静态URL中文乱码问题解决方法