将字符串变量写入剪贴板

Question

我马上就承认，至少可以说，我是帕斯卡尔缺乏经验的。 所以，我能得到的任何帮助将不胜感激。 :)

作为更大程序的一部分，我需要将一个字符串变量写入剪贴板。 我在Lazarus（版本1.0.12）中创建了一个新项目，所以我可以尝试弄清楚如何在没有由额外的，不必要的代码引起的复杂性的情况下这样做，我在下面包含了这些：

program varToClipboard;

uses Clipbrd;

var
    textToCopy:string;

begin
    textToCopy := 'Test text from Pascal';

    Clipboard.AsText := textToCopy;
end.  

使用上面的代码，以及所需的LCLBase依赖关系，我在运行编译的EXE时在CMD中收到以下错误：

An unhandled exception occurred at $000000000043D45E :
EAccessViolation : Access violation
  $000000000043D45E  CLIPBOARDREGISTERFORMAT,  line 98 of ./include/lclintf.inc
  $000000000043C35B  PREDEFINEDCLIPBOARDFORMAT,  line 185 of lclintf.pas
  $0000000000415B0C  TCLIPBOARD__SETASTEXT,  line 452 of ./include/clipbrd.inc
  $0000000000401802  main,  line 12 of varToClipboard.lpr

根据文档 ，我似乎做得很对。 尽管如此，我发现文档缺乏时间。

另外，我必须做什么才能运行已编译的EXE（只生成并将字符串写入剪贴板）而不会弹出控制台窗口？

Answer 1

你做得对。 这里的问题是剪贴板类不会以某种方式在控制台应用程序中使用。 您的应用程序在lclintf.inc文件的以下行中失败，该文件将访问WidgetSet对象。 因为控制台应用程序不需要任何小部件，因此当你在控制台应用程序中时， WidgetSet变量为nil会失败：

function ClipboardRegisterFormat(const AMimeType: string): TClipboardFormat;
begin
  Result := WidgetSet.ClipboardRegisterFormat(AMimeType);
end;

要解决此问题，您可以将Interfaces单元添加到uses子句，并将LCL包依赖项添加到项目中：

program Project1;

uses
  Clipbrd,
  Interfaces;

begin
  Clipboard.AsText := 'Hello, I''m a text from clipboard!';
end.

但根据您的其他问题，您似乎想要创建应用程序，它只会将某些文本复制到剪贴板并终止。 这就是控制台应用程序类型不是正确的选择，因为短时间内显示的控制台窗口。 对于那种应用程序，我会制作无形窗口应用程序（请注意，我只知道来自Windows平台的这个技巧）：

1. 通过菜单File / New...创建一个新应用Project / Application ，在对话框的树视图中选择Project / Application ，然后单击OK创建一个新项目
2. 现在让我们从你的项目中删除唯一的单位（带有表格）; 转到Project / Remove from Project菜单，在新打开的对话框中选择unit1.pas并单击OK
3. 现在你有一个无单元（无形）的应用程序，剩下的就是编写一个代码来将文本复制到剪贴板; 所以现在让我们从菜单Project / View Project Source打开项目源，并且项目源粘贴这样的代码（这是最短的形式）：

program Project1;

uses
  Interfaces, Forms, Clipbrd;

begin
  Application.Initialize;
  Clipboard.AsText := 'Hello, I''m a text from clipboard!';
end.