Hacker’s Guide to Visual FoxPro
An irreverent look at how Visual FoxPro really works. Tells you the inside scoop on every command, function, property, event and method of Visual FoxPro.
Servers
Servers presents a collection interface to use within a Project object. It exposes each of the OLE servers defined within your project
Usage
oServer = oProject.Servers.Item[ nIndex ] |
oProject.Servers[ nIndex ]
nCount = oProject.Servers.Count
|
Parameter |
Value |
Meaning |
|
nIndex |
Positive Integer |
Enumerates a server item within the project. |
|
oServer |
Server object |
The server object returned from the collection. |
|
nCount |
Integer |
The number of servers defined within the project. |
The Servers collection is another of those strange COM collections we are meeting more and more within VFP. It’s not exactly an array of items, as it has properties of its own, such as Count, but it’s not a full-fledged object either, really, because it doesn’t really do anything itself. We’d better get used to these—the world of COM is full of them.
In this case, Servers is a collection of all OLEPublic interfaces exposed within the Project. Count tells you how many there are. The Item method can be used to access its contained servers, though a subscript on the Servers collection itself does the same thing, as shown in the Usage.
One thing that confused us about Servers at first: The collection doesn’t show your server objects until the project has been built at least once. That makes some sense if you consider that it’s only during the build process that the Project Manager actually scans the code.
Example
MODIFY PROJECT MySample NOWAIT
oProject = _VFP.ActiveProject
? oProject.Servers.Count && displays the servers available
FOR EACH oServer in oProject.Servers
? oServer.CLSID && display the Class ID for each
NEXT