无法将 TBitmapOfItem 分配给 TClipBoard?
Cannot assign TBitmapOfItem to TClipBoard?
我需要裁剪 pdf 并通过将裁剪后的 png 图像粘贴到 word 文档中来创建 word 文档。
我正在使用 Firemonkey 平台
这是代码:
procedure TForm2.Button1Click(Sender: TObject);
begin
ShellExecute(FormToHWND(Self),'open',PChar(GetCurrentDir+'\cairo.exe')
,PWideChar('-opw '+Edit1.Text+
' -cropbox -png -x 64 -y 215 -W 144 -H 375 -r 167 '+
PdfFile+' tools/card'),'',SW_Hide);
Sleep(500);
Image1.Bitmap.LoadFromFile(Output);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
ClipBoard.Assign(Image1.Bitmap);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Output:= GetCurrentDir+'\tools\card-1.png';
end;
点击 button2 弹出错误 无法将 TBitmapOfItem 分配给 TClipBoard。
如何将图片复制到剪贴板并创建word文档(不太了解)?
如何在 FMX 中将一些图像复制到剪贴板的简单示例:
uses
FMX.Platform;
...
procedure TForm1.Button1Click(Sender: TObject);
var
VClipboard: IFMXClipboardService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, VClipboard) then begin
Image1.Bitmap.LoadFromFile('c:\image_1.png');
VClipboard.SetClipboard(Image1.Bitmap);
end;
end;
有关在 FMX 应用程序中使用剪贴板的更多信息,请点击此处:Multi-Device Apps and Clipboard Support
我需要裁剪 pdf 并通过将裁剪后的 png 图像粘贴到 word 文档中来创建 word 文档。
我正在使用 Firemonkey 平台
这是代码:
procedure TForm2.Button1Click(Sender: TObject);
begin
ShellExecute(FormToHWND(Self),'open',PChar(GetCurrentDir+'\cairo.exe')
,PWideChar('-opw '+Edit1.Text+
' -cropbox -png -x 64 -y 215 -W 144 -H 375 -r 167 '+
PdfFile+' tools/card'),'',SW_Hide);
Sleep(500);
Image1.Bitmap.LoadFromFile(Output);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
ClipBoard.Assign(Image1.Bitmap);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Output:= GetCurrentDir+'\tools\card-1.png';
end;
点击 button2 弹出错误 无法将 TBitmapOfItem 分配给 TClipBoard。
如何将图片复制到剪贴板并创建word文档(不太了解)?
如何在 FMX 中将一些图像复制到剪贴板的简单示例:
uses
FMX.Platform;
...
procedure TForm1.Button1Click(Sender: TObject);
var
VClipboard: IFMXClipboardService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, VClipboard) then begin
Image1.Bitmap.LoadFromFile('c:\image_1.png');
VClipboard.SetClipboard(Image1.Bitmap);
end;
end;
有关在 FMX 应用程序中使用剪贴板的更多信息,请点击此处:Multi-Device Apps and Clipboard Support