28 |
|
|
29 |
|
unit IBBlob; |
30 |
|
|
31 |
+ |
{$Mode Delphi} |
32 |
+ |
|
33 |
|
interface |
34 |
|
|
35 |
|
uses |
36 |
< |
Windows, SysUtils, Classes, Forms, IBHeader, IBErrorCodes, IBExternals, |
37 |
< |
DB, IB, IBDatabase, IBUtils; |
36 |
> |
SysUtils, Classes, IBHeader, IBErrorCodes, IBExternals, DB, IB, IBDatabase; |
37 |
> |
|
38 |
|
|
39 |
|
const |
40 |
|
DefaultBlobSegmentSize = 16 * 1024; |
106 |
|
|
107 |
|
implementation |
108 |
|
|
109 |
< |
uses IBIntf, IBCustomDataSet; |
109 |
> |
uses IBIntf; |
110 |
|
|
111 |
|
procedure GetBlobInfo(hBlobHandle: PISC_BLOB_HANDLE; var NumSegments, MaxSegmentSize, |
112 |
|
TotalSize: Long; var BlobType: Short); |