29 lines
652 B
Plaintext
29 lines
652 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_ReplaceBlob()/sx_BlobToFile()
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL aInfo, i, j
|
|
LOCAL s, t
|
|
LOCAL aStruct1 := { { "NO","C",5,0 }, { "BINARY","M",10,0 } }
|
|
|
|
SET DATE ANSI
|
|
CREATE TABLE "TEST1" STRUCT aStruct1 RDD SDEFOX
|
|
USE "test1" ALIAS ONE RDD SDEFOX
|
|
APPEND BLANK
|
|
REPLACE NO WITH "001"
|
|
IF File( GetEnv( "WINDIR" ) + "\SYSTEM.INI" )
|
|
sx_ReplaceBLOB( "BINARY", GetEnv( "WINDIR" ) + "\SYSTEM.INI" )
|
|
sx_Commit()
|
|
? sx_BLOBToFile( "BINARY", "test.ini" )
|
|
ELSE
|
|
? "File " + GetEnv( "WINDIR" ) + "\SYSTEM.INI required for testing. Not found."
|
|
ENDIF
|