ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/client/FBBlob.pas

Comparing ibx/trunk/fbintf/client/FBBlob.pas (file contents):
Revision 60 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