Description
Returns or sets the server port to connect to.
Property type
Read-write property
Syntax
object.ServerPort = [ value ] |
|
Return Type
Long
Example
Creates an ArcIMS object and sends a GET_SERVICE_INFO_REQUEST.
| ArcIMS Example (VBScript) |  Copy Code |
|---|---|
| Sub TestArcIMS Dim objIMS Set objIMS = Application.CreateAppObject("ArcIMS") 'Set the server name objIMS.ServerName = "www.geographynetwork.com" 'Setup the request strReq = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbcr &_ "<ARCXML version=""1.1"">" & vbcr &_ "<REQUEST>" & vbcr &_ "<GET_SERVICE_INFO fields=""false"" envelope=""false"" renderer=""false"" extensions=""true"" />" & vbcr &_ "</REQUEST>" & vbcr & "</ARCXML>" 'Send the request Call objIMS.SendAXLRequest("CBI_Relief", strReq) 'Display the server name and port, request, and response in message boxes MsgBox objIMS.ServerName + ":" + CStr(objIMS.ServerPort) MsgBox objIMS.RequestAXL MsgBox objIMS.ResponseAXL 'Free object reference Set objIMS = Nothing End Sub | |