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

Modify the current record and blob.

The field specified must be a valid memo blob. The pointer pTmpRecBuf must have valid record information. This example uses the following input:

 fBlobExample1(hCur, pRecBuf, 7, "Blob text goes here!!");

 

The procedure is:

procedure fBlobExample2(hTmpCur: hDBICur; pTmpRecBuf: pBYTE;uFldNum: LongInt;NewText: string);

begin

  Check(DbiOpenBlob(hTmpCur, pTmpRecBuf, uFldNum, dbiREADWRITE));

  Check(DbiPutBlob(hTmpCur, pTmpRecBuf, uFldNum, 0, StrLen(PChar(NewText)) + 1, PChar(NewText)));

  Check(DbiModifyRecord(hTmpCur, pTmpRecBuf, True));

  Check(DbiFreeBlob(hTmpCur, pTmpRecBuf, uFldNum));

end;