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

Comparing ibx/trunk/runtime/IBBlob.pas (file contents):
Revision 34 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 35 by tony, Tue Jan 26 14:38:47 2016 UTC

# Line 106 | Line 106 | type
106  
107    procedure GetBlobInfo(hBlobHandle: PISC_BLOB_HANDLE; var NumSegments: Int64; var MaxSegmentSize,
108                        TotalSize: Int64; var BlobType: Short);
109 +  function GetBlobCharSetID(hDB_Handle: TISC_DB_HANDLE; hTR_Handle: TISC_TR_HANDLE;
110 +                      tableName, columnName: PChar): short;
111    procedure ReadBlob(hBlobHandle: PISC_BLOB_HANDLE; Buffer: PChar; BlobSize: Int64);
112    procedure WriteBlob(hBlobHandle: PISC_BLOB_HANDLE; Buffer: PChar; BlobSize: Int64);
113  
# Line 149 | Line 151 | begin
151    end;
152   end;
153  
154 + function GetBlobCharSetID(hDB_Handle: TISC_DB_HANDLE;
155 +  hTR_Handle: TISC_TR_HANDLE; tableName, columnName: PChar): short;
156 + var desc: TISC_BLOB_DESC;
157 +    uGlobal: array [0..31] of char;
158 + begin
159 +  if isc_blob_lookup_desc(StatusVector,@hDB_Handle,@hTR_Handle,
160 +                tableName,columnName,@desc,@uGlobal) > 0 then
161 +    IBDatabaseError;
162 +
163 +  Result := desc.blob_desc_charset;
164 + end;
165 +
166   procedure ReadBlob(hBlobHandle: PISC_BLOB_HANDLE; Buffer: PChar; BlobSize: Int64);
167   var
168    CurPos: Int64;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines