为什么不会调用已发布的 Int64 属性编写器方法 - 组件流式处理

Question

下面是一个简单的测试，演示了我在一个项目中遇到的问题，使用Delphi 2007。我使用TComponent类来存储组件的各种状态。但是永远不会调用Int64属性写入器方法(只设置目的地字段)。所以不可能依靠编写器来更新GUI、TList或诸如此类的东西……

例如:

TTestClass = Class(TComponent)
  Private
    Fb: Int64;
    Fa: Integer;
    Procedure SetFa(Const Value: Integer);
    Procedure SetFb(Const Value: Int64);
  Published
    Property a: Integer Read Fa Write SetFa;
    Property b: Int64 Read Fb Write SetFb;
  Public
    Procedure SaveInstance(Var Str: TStream);
    Procedure LoadInstance(Var Str: TStream);
    Procedure ReallyLoadInstance(Var Str: TStream);
    Procedure Assign(Source: TPersistent); Override;
  End;
TForm1 = Class(TForm)
  Button1: TButton;
  Button2: TButton;
  Button3: TButton;
  Procedure Button1Click(Sender: TObject); // test: 1st step, save the class
  Procedure Button2Click(Sender: TObject); // test: 2nd step, try and fail to reload
  Procedure Button3Click(Sender: TObject); // test: 3rd step, successfull reloading
Private
  TestClass: TTestClass;
  Str: TStream;
Public
  Constructor Create(AOwner: TComponent); Override;
  Destructor Destroy; Override;
End;
Var
  Form1: TForm1;
Implementation
{$R *.dfm}
Procedure TTestClass.SetFa(Const Value: Integer);
Begin
  Fa := Value;
  ShowMessage('ok for "simple types"....');
End;
Procedure TTestClass.SetFb(Const Value: Int64);
Begin
  Fb := Value;
  ShowMessage('and for the others');
End;
Procedure TTestClass.SaveInstance(Var Str: TStream);
Begin
  Str.Position := 0;
  Str.WriteComponent( Self );
End;
Procedure TTestClass.Assign(Source: TPersistent);
Begin
  If Not (Source Is TTestClass) Then Inherited
  Else
    Begin
      b := TTestClass(Source).Fb;
    End;
End;
Procedure TTestClass.LoadInstance(Var Str: TStream);
Begin
  Str.Position := 0;
  // this will work for fa and not fb.
  Str.ReadComponent(Self);
End;
Procedure TTestClass.ReallyLoadInstance(Var Str: TStream);
Begin
  Str.Position := 0;
  Assign( Str.ReadComponent(Nil));
End;
Constructor TForm1.Create(AOwner: TComponent);
Begin
  RegisterClasses([TTestClass]);
  Inherited;
  TestClass := TTestClass.Create(Self);
  Str := TmemoryStream.Create;
 End;
Destructor TForm1.Destroy;
Begin
  Str.Free;
  Inherited;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  Str.Size := 0;
  TestClass.SaveInstance(Str);
End;
Procedure TForm1.Button2Click(Sender: TObject);
Begin
  If Str.Size = 0 Then Exit;
  TestClass.LoadInstance(Str);
  // guess what...only first message
End;
Procedure TForm1.Button3Click(Sender: TObject);
Begin
  If Str.Size = 0 Then Exit;
  TestClass.ReallyLoadInstance(Str);
End;

如TypInfo。过去有一个"tkInt64"的情况下(似乎称为"SetProc"过程)，不应该使用"Writer"设置published-Int64-props(通常与其他"常见"类型一样)?

Answer 1

这是因为您从未为属性b赋值。因此，它具有默认值(零)，并且流系统不会将其保存到流中。由于它不在流中，所以在读取它时不会看到setter被调用…

实际上，因为您也没有给属性a赋值，所以它应该发生同样的事情。看起来像是流系统中的一个bug(或者至少是不一致):

• 要么它不应该保存/加载Integer属性与零值流，
• 或者它应该保存/加载它们，因为在属性定义中没有default说明符，因此应该假设nodefault，因此值总是要流。

所以，回顾一下:在调用TestClass.SaveInstance(Str);之前添加TestClass.b := 1;，你应该看到在从流加载对象返回时调用setter，但是当属性具有默认值的类型时，你不能在流系统上调用setter。

Answer 2

这似乎是Int64作为属性的错误。

作为一种解决方法，您可以使用另一种数据类型，如Integer，或者，如果它不够大，使用DefineProperties和TFiler。DefineProperty TFiler。DefineBinaryProperty等。