编写c++ Builder/Delphi组件，并将二进制属性保存到DFM文件

Question

我编写了一个c++构建器组件来显示SVG文件并对其执行一些操作。

现在，我发布了一个名为SvgFile (UnicodeString)的属性，它可以在IDE中使用SVG文件的文件名初始化。这很好。该属性保存到DFM文件中，可以从中重新加载。

但是我必须在应用程序中提供SVG文件，所以我想将SVG保存到DFM文件中，因为它是用TImage组件完成的。

我想我必须写一个TPropertyEditor和一个TPersistent类，但我不知道该怎么做。

有人能帮我做这件事吗?

编辑2013/01/17:这是一个解决方案http://www.informit.com/articles/article.aspx?p=28278&seqNum=5

谢谢你的帮助。

Answer 1

您可以创建自己的方法来读取和写入属性，通过编写自己的方法来执行二进制数据流，并使用DefineProperties和DefineBinaryProperty将它们注册到VCL/RTL流系统。在JEDI JVCL单元中有一个易于遵循的示例JVXSlider.pas:

// interface
type
  TJvCustomSlider=class(TJvCustomControl)
  private
    procedure ReadUserImages(Stream: TStream);
    procedure WriteUserImages(Stream: TStream);
    ...
  protected
    procedure DefineProperties(Filer: TFiler); override;

// implementation
procedure TJvCustomSlider.DefineProperties(Filer: TFiler);
  function DoWrite: Boolean;
  begin
    if Assigned(Filer.Ancestor) then
      Result := FUserImages <> TJvCustomSlider(Filer.Ancestor).FUserImages
    else
      Result := FUserImages <> [];
  end;
begin
  // @RemyLebeau points out that the next line is apparently a bug
  // in the JVCL code, and that inherited DefineProperties should always
  // be called regardless of the type of Filer. Commented it out, but
  // didn't delete it because it *is* in the JVCL code I cited.
  //if Filer is TReader then
    inherited DefineProperties(Filer);
  Filer.DefineBinaryProperty('UserImages', ReadUserImages, WriteUserImages, DoWrite);
end;
procedure TJvCustomSlider.ReadUserImages(Stream: TStream);
begin
  Stream.ReadBuffer(FUserImages, SizeOf(FUserImages));
end;
procedure TJvCustomSlider.WriteUserImages(Stream: TStream);
begin
  Stream.WriteBuffer(FUserImages, SizeOf(FUserImages));
end;

Delphi流系统将根据需要自动为定义的属性(在上面的例子中，属性UserImages)调用适当的方法来自动保存或从dfm文件中读取;您永远不需要自己调用它们。