|
| |
| ||||||||||||||||||
Purpose
Commits all changes to the resources delayed by the Commit parameter of ServerFile.AddResource and ServerFile.DelResource.
Syntax
ServerFile.Commit
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)
| ||