delphi - TDelphiTwain 组件，损坏 delphi 表单(dfm 文件)

Question

我已经下载了开源delphi twain组件(TDelphiTwain)。有趣的是，当放置并保存在表单上时，它会为自己创建错误的 dfm 条目。

  object DelphiTwain: TDelphiTwain
    OnSourceDisable = DelphiTwainSourceDisable
    OnSourceSetupFileXfer = DelphiTwainSourceSetupFileXfer
    TransferMode = ttmMemory
    SourceCount = 0
    Info.MajorVersion = 1
    Info.MinorVersion = 0
    Info.Language = tlDanish
    Info.CountryCode = 1
    Info.Groups = [tgControl, tgImage, tgAudio, MinorVersion]
    Info.VersionInfo = 'Application name'
    Info.Manufacturer = 'Application manufacturer'
    Info.ProductFamily = 'App product family'
    Info.ProductName = 'App product name'
    LibraryLoaded = False
    SourceManagerLoaded = False
    Left = 520
    Top = 136
  end

问题在于行:

   Info.Groups = [tgControl, tgImage, tgAudio, MinorVersion]

只有三个可能的元素:

tgControl, tgImage and tgAudio

每次我保存表单时，它都会添加 MinorVersion。当应用程序运行时，我收到错误消息:Info.Groups 的属性无效。当我手动删除坏部分并且不留下 dfm 文件时，应用程序启动正常。

我在网上查了一下，有一个关于这些奇怪问题的询问，不幸的是它还没有解决。

我认为存在某种内存损坏。在互联网上的帖子中，出现了奇怪的迹象......

有人使用过该组件或者可以给我一些提示如何解决这个问题吗？

Answer 1

错误似乎出现在 TTwainIdentity.GetGroups 中，其中结果未初始化。您可以尝试通过替换

来更改代码

Include(Result, tgControl);

与

Result := [tgControl]; 

您必须重新编译包才能使此更改在 IDE 中起作用。