ViewVC Help

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

root/public/ibx/trunk/runtime/IBBlob.pas

Comparing ibx/trunk/runtime/IBBlob.pas (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 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