BLOBDirectExport Function

 FUNCTION BLOBDirectExport(
	nPointer,
	cTargetFile,
	kMode
) AS LOGIC CLIPPER

[ClipperCallingConventionAttribute(new string[] { ... })]
public static bool BLOBDirectExport(
	Usual nPointer = default,
	Usual cTargetFile = default,
	Usual kMode = default
)

 1FUNCTION PutPix()
 2    LOCAL cPixFile AS STRING
 3    LOCAL nPointer
 4    LOCAL aBLOBPtrs AS ARRAY
 5    cPixFile := "picture.gif"
 6    // Customer database with a picture of
 7    // each customer stored in a field called Pix
 8    USE customer NEW VIA "DBFCDX"
 9    // Assumes that the program previously
10    // stored an array of direct BLOB pointers
11    // into the root area of the BLOB file.
12    // The picture that we want is assumed to
13    // be the second array element.
14    aBLOBPtrs := BLOBRootGet()
15    nPointer := aBLOBPtrs[2]
16    // Export picture pointed to by nPointer to a file
17    IF !BLOBDirectExport(nPointer, cPixFile, ;
18        BLOB_EXPORT_OVERWRITE)
19            Alert("Export of picture " + cPixFile + ";
20                failed!")
21    ELSE
22        // Code for displaying picture would go here
23    ENDIF