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

Comparing ibx/trunk/fbintf/client/FBAttachment.pas (file contents):
Revision 70 by tony, Thu Oct 26 12:59:51 2017 UTC vs.
Revision 109 by tony, Thu Jan 18 14:37:48 2018 UTC

# Line 114 | Line 114 | type
114      property DPB: IDPB read FDPB;
115   public
116      {Character Sets}
117 +  function HasDefaultCharSet: boolean;
118 +  function GetDefaultCharSetID: integer;
119    function GetCharsetName(CharSetID: integer): AnsiString;
120    function CharSetID2CodePage(CharSetID: integer; var CodePage: TSystemCodePage): boolean;
121    function CodePage2CharSetID(CodePage: TSystemCodePage; var CharSetID: integer): boolean;
# Line 121 | Line 123 | public
123    function CharSetWidth(CharSetID: integer; var Width: integer): boolean;
124    procedure RegisterCharSet(CharSetName: AnsiString; CodePage: TSystemCodePage;
125      AllowReverseLookup:boolean; out CharSetID: integer);
124  property HasDefaultCharSet: boolean read FHasDefaultCharSet;
126    property CharSetID: integer read FCharSetID;
127    property CodePage: TSystemCodePage read FCodePage;
128    end;
# Line 477 | Line 478 | begin
478    Result := OpenBlob(Transaction,Field.GetBlobMetadata, Field.AsQuad,BPB);
479   end;
480  
481 + function TFBAttachment.HasDefaultCharSet: boolean;
482 + begin
483 +  Result := FHasDefaultCharSet
484 + end;
485 +
486 + function TFBAttachment.GetDefaultCharSetID: integer;
487 + begin
488 +  Result := FCharsetID;
489 + end;
490 +
491   function TFBAttachment.GetCharsetName(CharSetID: integer): AnsiString;
492   var i: integer;
493   begin

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines