<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Delphi Examples: DbiGetBlobHeading

Display the specified field's memo heading.

The field specified in BlobIndex must be a valid memo blob and the BlobBuffer must be allocated. Used only with Paradox memo fields. This example uses the following input:

fDbiGetBlobHeading(BIOLIFE_TABLE, BIOLIFE_TABLE.FieldByName('Notes').Index, BlobBuffer);

 

The procedure is defined as:

procedure fDbiGetBlobHeading(InDataSet: TDataSet; BlobIndex: Word; var P: PChar);

var

NumRead: longint;

begin

 Inc(BlobIndex);  // Parameter iField of DbiOpenBlob requires an ordinal field number

 InDataSet.UpdateCursorPos;

 Check(DbiOpenBlob(InDataSet.Handle, InDataSet.ActiveBuffer, BlobIndex, dbiReadOnly));

 Check(DbiGetBlobSize(InDataSet.Handle, InDataSet.ActiveBuffer, BlobIndex, NumRead));

 Check(DbiGetBlobHeading(InDataSet.Handle, BlobIndex, InDataSet.ActiveBuffer, P));

 Check(DbiFreeBlob(InDataSet.Handle, InDataSet.ActiveBuffer, BlobIndex));

end;