# | Line 85 | Line 85 | type | |
---|---|---|
85 | FAttachment: TFB25Attachment; | |
86 | FTransaction: TFB25Transaction; | |
87 | protected | |
88 | + | function Attachment: IAttachment; override; |
89 | procedure NeedFullMetadata; override; | |
90 | public | |
91 | constructor Create(Attachment: TFB25Attachment; Transaction: TFB25Transaction; | |
# | Line 127 | Line 128 | uses IBErrorCodes, FBMessages, FBParamBl | |
128 | ||
129 | { TFB25BlobMetaData } | |
130 | ||
131 | + | function TFB25BlobMetaData.Attachment: IAttachment; |
132 | + | begin |
133 | + | Result := FAttachment; |
134 | + | end; |
135 | + | |
136 | procedure TFB25BlobMetaData.NeedFullMetadata; | |
137 | var | |
138 | BlobDesc: TISC_BLOB_DESC; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |