скопировать изображение в буфер обмена

[Hds Wert]

Добрый день! необходимо скопировать изображение или файл с изображением(png) в буфер обмена что бы потом вставить в графический редактор (например корел)нажав кнопки ctl+V

[krapotkin]

вставка

  if not TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, ClipboardService) then
    exit;
 if ClipboardService.HasImage then
  begin
    b := TBitmap.Create;
    bs := ClipboardService.GetImage;
    b.Assign(bs);
end

копирование
....
surface := TBitmapSurface.Create();
surface.Assign(bitmap);
ClipboardService.SetImage(surface)

 

 

Изменено 11 февраля, 2023 пользователем krapotkin

[Hds Wert]

2 часа назад, krapotkin сказал:

вставка

  if not TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, ClipboardService) then
    exit;
 if ClipboardService.HasImage then
  begin
    b := TBitmap.Create;
    bs := ClipboardService.GetImage;
    b.Assign(bs);
end

копирование
....
surface := TBitmapSurface.Create();
surface.Assign(bitmap);
ClipboardService.SetImage(surface)

 

 

 извиняюсь, но чет не допер я (

[krapotkin]

Clipboardservice это объект. Его надо создать. В первом примере нарисовано, как. 

[Hds Wert]

супер! все работает были ошибка оказалось рад старый был поставил новый и все заработало. спасибо большое