Setter uncalled in a TSQLRecord class

Thomas-Acia · 2015-09-14 12:34:43

Hi,

I need to call a Setter in a TSQLRecord class but it's uncalled. Is it because of the TSQLRawBlob type ??

type  
  TSQLAttributesRec = class(TSQLRecord)
  private
      fObjID, fPackedObj, fSize, fUseCount, fUnpackedObj :Integer;
      fExtension, fFilePath, fMimeType, fFName, fSha :RawUTF8;
      fBlob :TSQLRawBlob;
      procedure SetBlob(const Value:TSQLRawBlob);
  published
      property ObjID: Integer Read fObjID Write fObjID;
      property PackedObj: Integer Read fPackedObj Write fPackedObj;
      property Size: Integer Read fSize Write fSize;
      property UseCount: Integer Read fUseCount Write fUseCount;
      property UnpackedObj: Integer Read fUnpackedObj Write fUnpackedObj;
      property Extension: RawUTF8 Read fExtension write fExtension;
      property FilePath: RawUTF8 Read fFilePath write fFilePath;
      property MimeType: RawUTF8 Read fMimeType write fMimeType;
      property Name: RawUTF8 Read fFName write fFName;
      property Sha: RawUTF8 Read fSha write fSha;
      property Blob: TSQLRawBlob read fBlob write SetBlob;
   public
  end;

procedure TSQLAttributesRec.SetBlob(const Value:TSQLRawBlob);
begin
  ...
end;

I looked at this and I noticed that you used another class.

Last edited by Thomas-Acia (2015-09-14 12:38:44)

ab · 2015-09-14 12:42:49

When isn't it be called?

AFAIK TPropInfo.SetLongStrProp should call the setter as expected.

Thomas-Acia · 2015-09-14 14:18:18

It's solved, I use now

aAttributes.Blob := aAttributes.Blob;

to call it explicity.

Last edited by Thomas-Acia (2015-09-14 14:48:35)

mORMot Open Source

#1 2015-09-14 12:34:43

Setter uncalled in a TSQLRecord class

#2 2015-09-14 12:42:49

Re: Setter uncalled in a TSQLRecord class

#3 2015-09-14 14:18:18

Re: Setter uncalled in a TSQLRecord class

Board footer