History  | 
DelResource (server files) 
Purpose 
Deletes the specified resource from an open .fc or .rez file. 
Syntax 
ServerFile.DelResource (ResourceType, ResourceID [, Commit as Integer = TRUE | FALSE] ) 
 Example 
Dim sf as ServerFile 
Dim sf2 as ServerFile 
Dim f as File 
' Open the resource file from the server 
sf.OpenFile("FCAS Config|JPEG1000.rez") 
' Write a resource to local disk 
f.OpenFile(fcpofolder & "\Test.JPG",fcWrite) 
f.Write(sf.GetResource("JPEG",1000)) 
f.CloseFile 
' Add a resource to another file 
sf2.CreateFile("FCAS Config|newrez.rez",fcFile) 
sf2.AddResource("JPEG",1000,"Name",sf.GetResource("JPEG",1000),FALSE) 
sf2.AddResource("JPEG",1001,"Name",sf.GetResource("JPEG",1000),FALSE) 
sf2.Commit 
f.OpenFile(fcpofolder & "\Test2.JPG",fcWrite) 
f.Write(sf2.GetResource("JPEG",1000)) 
f.CloseFile 
f.OpenFile(fcpofolder & "\Test3.JPG",fcWrite) 
f.Write(sf2.GetResource("JPEG",1001)) 
f.CloseFile 
' Delete a resource from a server file 
sf2.DelResource("JPEG",1000) 
 | ||||||||