ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/FBBlob.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBBlob.pas (file contents):
Revision 108 by tony, Mon Mar 27 15:21:02 2017 UTC vs.
Revision 109 by tony, Thu Jan 18 14:37:48 2018 UTC

# Line 58 | Line 58 | type
58      FCharSetID: cardinal;
59      FSegmentSize: cardinal;
60      function Attachment: IAttachment; virtual; abstract;
61 +    function CanFetchMetaData: boolean;
62      procedure NeedFullMetadata; virtual; abstract;
63      procedure NeedSubType;
64    public
# Line 404 | Line 405 | end;
405  
406   {TFBBlobMetaData}
407  
408 + function TFBBlobMetaData.CanFetchMetaData: boolean;
409 + begin
410 +  Result := (FRelationName <> '') and (FColumnName <> '');
411 + end;
412 +
413   procedure TFBBlobMetaData.NeedSubType;
414   begin
415    if not FHasSubType then
# Line 440 | Line 446 | end;
446  
447   function TFBBlobMetaData.GetCharSetID: cardinal;
448   begin
449 <  NeedFullMetadata;
450 <  Result := FCharSetID;
449 >  if CanFetchMetaData then
450 >  begin
451 >    NeedFullMetadata;
452 >    Result := FCharSetID;
453 >  end
454 >  else
455 >  if Attachment.HasDefaultCharSet then
456 >    Result := Attachment.GetDefaultCharSetID
457 >  else
458 >    Result := FCharSetID;
459   end;
460  
461   function TFBBlobMetaData.GetCodePage: TSystemCodePage;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines