DBReadMetaData and DBWriteMetaData

Remarks

This example illustrates how to retrieve a list of metadata from a file, and also how to write a new metadata entry.

Code

 local int tfid, int i
 local string value
 local mstring metadata 
 local string temp_file

 try
    temp_file = "./my.pix"
    delete temp_file noerror
    call CopyFile( GetPCIHOME() + "/demo/irvine.pix", \
                 temp_file)

    tfid = DBOpen(temp_file, "r+")

    MetaData = DBReadMetaData(tfid, "IMG", 7)

    for i = 1 To f$len(MetaData)
        print i, " ", MetaData[i]
    endfor

    call DBWriteMetaData(tfid, "IMG", 1, "Class-01-Name", "Ice") 
    value = DBReadMetaData(tfid, "IMG", 1, "Class-01-Name")

    print "Class 1 ", value

    call DBClose(tfid)
 onerror
   print "Error: "+ GetLastErrorMessage()
 endonerror

Output

1 DEFAULT_PCT_REF
2 Class_10_Name
3 Class_10_Desc
4 Class_20_Name
5 Class_20_Desc
6 Class_30_Name
7 Class_30_Desc
8 Class_40_Name
9 Class_40_Desc
10 Class_50_Name
11 Class_50_Desc
12 Class_60_Name
13 Class_60_Desc
14 Class_70_Name
15 Class_70_Desc
16 Class_80_Name
17 Class_80_Desc
Class 1 Ice