[FMX]在你的跨平台应用中使用剪贴板进行复制粘贴
2017-08-10 ? Android、C++ Builder、Delphi、iOS、教程 ? 暂无评论 ? swish ?浏览 681 次
VCL 中如何使用剪贴板咱就不说了，FMX 做为一个新的框架，提供了跨平台的剪贴板支持。FMX 对剪贴板的支持来自两个接口：
- IFMXClipboardService：位于 FMX.Platform.pas 中
1
2
3
4
5
6
7
8
9
10
11
IFMXClipboardService = interface(IInterface)
[‘{CC9F70B3-E5AE-4E01-A6FB-E3FC54F5C54E}‘]
/// <summary>
/// Gets current clipboard value
/// </summary>
function GetClipboard: TValue;
/// <summary>
/// Sets new clipboard value
/// </summary>
procedure SetClipboard(Value: TValue);
end;
- IFMXExtendedClipboardService：位于 FMX.Clipboard.pas 中
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
IFMXExtendedClipboardService = interface(IFMXClipboardService)
[‘{E96E4776-8234-49F9-B15F-301074E23F70}‘]
function HasText: Boolean;
function GetText: string;
procedure SetText(const Value: string);
function HasImage: Boolean;
function GetImage: TBitmapSurface;
procedure SetImage(const Value: TBitmapSurface);
procedure RegisterCustomFormat(const AFormatName: string);
function IsCustomFormatRegistered(const AFormatName: string): Boolean;
procedure UnregisterCustomFormat(const AFormatName: string);
function HasCustomFormat(const AFormatName: string): Boolean;
function GetCustomFormat(const AFormatName: string; const AStream: TStream): Boolean;
procedure SetCustomFormat(const AFormatName: string; const AStream: TStream);
end;
很明显，第二种更符合VCL中TClipboard的使用习惯。而且如果要使用自定义格式的内容，则必需使用第二种格式，第一种格式的支持情况如下（以10.2 为准，未来版本请自行查看）：
- Windows 平台（FMX.Clipboard.Win.pas）：文本、位图
- Android 平台（FMX.Clipboard.Android.pas）：文本
- iOS 平台（FMX.Clipboard.iOS.pas）：文本、位图
- OSX 平台（FMX.Clipboard.Mac.pas）：文本、位图
注意一下，支持位图的平台，实际上 TValue 支持的是 TBitmapSurface，当然设置值时也支持 TBitmap ，但 GetClipboard 返回的就只是 TBitmapSurface 类型的对象了。
好了，回归正转，说一下基本的使用步骤：
- 引用 fmx.platform 单元，如果使用第二个接口，同时使用 fmx.clipboard 单元。
- 用 TPlatformServices.Current.SupportsPlatformService 函数来获取剪贴板服务接口实例。
- 调用获取的接口实例的相关函数来执行相关的功能。
一个简单的示例：
|
1 2 3 4 5 6 7 8 9 |
procedure TForm1.Button1Click(Sender: TObject); var AClipboard:IFMXClipboardService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,AClipboard) then begin AClipboard.SetClipboard(‘Hello,world from delphi‘); end; end; |
至于其它的几个接口，大家看相关接口的帮助就可以了。
原创文章转载请注明：转载自：[FMX]在你的跨平台应用中使用剪贴板进行复制粘贴
原文地址：https://www.cnblogs.com/westsoft/p/8975855.html