Я добавил новый раздел: Fire Monkey от А до Я → Дополнительные ресурсы по FireMonkey → Статьи и заметки
Здесь каждый автор статьи или читатель могут поделиться своими находками с другими пользователями.
BurcevD, да вроде как все в вашем примере работает. По крайне мере проверил для 'txt' и 'jpg', сохранив рабочий файл в:
// Path file
aFileName := TPath.Combine(TPath.GetSharedDownloadsPath, 'sample-temp.jpg');
Запрашиваете сервис IFMXClipBoardService. У него есть два метода для копирования данных любого типа в буфер и обратно.
uses
FMX.Platform, System.Rtti;
{$R *.fmx}
procedure TForm13.Button1Click(Sender: TObject);
var
Service: IFMXClipBoardService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipBoardService, Service) then
begin
Service.SetClipboard(TValue.From<string>('My Text'));
// Service.GetClipboard.AsString // Получения строкового значения обратно.
end;
end;
Автор: Павел Литвинко
Обзорная статья: http://blogs.embarcadero.com/vsevolodleonov/2014/01/31/appfactory1/
Видео обзор (Rus): http://www.youtube.com/watch?v=6Tahytk_QUM
Видео обзор (En): http://www.youtube.com/watch?v=xVUhMAJquw8
Ссылки на приложения: AppFactory, AppProducts