Using MS MapPoint in PowerBuilder
Why should you use GIS (Geographic Information System) data in PowerBuilder? You can plan a route for a service technician or a sales person. You can track the positions of the trucks delivering goods and it might allow you to direct a truck to an additional pick up close to its route. You can print driving directions when heading to an unknown place.
The following article demonstrates how to use the Microsoft MapPoint control from within PowerBuilder to perform such operations.
The MapPoint Control
The MapPoint object model contains a lot of objects, but we'll use only a few. Figure 1 shows a section of the MapPoint control. The direction object is located in the upper half of the window and the map object at the bottom. There's a route on the map object that connects two waypoints and a pushpin that shows some information in a balloon. The control contains invisible objects as well, like the FindResults collection and a location object.
Click on the image to view the full figure.
To place the control on a window, use the menu item Insert Control -> OLE. In the Insert Object dialog choose the Insert Control tab, select the Microsoft MapPoint Control, place it on the window, and name it ole_Map (see Figure 2).
Click on the image to view the full figure.
With two lines of code, the MapPoint control is ready to use. The ioo_Map variable is an instance variable of type oleobject and is saved for further interaction with the map.
Load the map in the open event of the window:
// 1 = North America, 2 = Europe
ioo_Map=ole_Map.Object.NewMap(2)
Unload the map in the close event of the window:
ole_Map.Object.CloseMap()
The control has some default behavior that you can use or overwrite. The right-mouse button menu allows zooming, creating routes, exporting to Excel, and showing information about a pushpin. With the left-mouse button it's possible to scroll, select an area to zoom in, and move pushpins around, something you usually don't want to happen. The mouse wheel is used for zooming.
The MapPoint control provides various events for user interaction and notifications of state changes. The most important events to interact with the map are:
beforeclick: This event occurs after you click on the map but before MapPoint processes the action. It's useful to display some information about clicked object(s).
beforedblclick: This event is similar to the beforeclick event but for double-clicking on the control. Use this event to execute some action when the user double-clicks on the object.
mousedown: When the mouse button is pressed, you can save the mouse pointer position.
Useful notification events are:
afterredraw: This event occurs after MapPoint has finished repainting the map on the screen. This can be used to show or hide additional information.
routeaftercalculate: This occurs after the route has been calculated and could be used to show some information about the route.
The control itself has only a few methods. In addition to NewMap and CloseMap, there are the SaveMap, SaveMapAs, and OpenMap functions that allow you to save and load the current map layout and data.
Programming the Control
A common task for an application is to mark an address from a database onto the map. You can find locations with the FindAddressResults method of the map object. In Listing 1 I set a pushpin on the location of our office. The FindAddressResults method takes the address as an argument and returns a FindResults collection. This collection contains all locations that match the address data and indicates the quality of the result. If the results quality is good, you can work with the first location, otherwise let the user choose a location. Use the AddPushpin method to place and label the location on the map.
The route object is used to calculate a route between pushpins. It contains important information about the route such as distance, driving time, and directions. On the MapPoint control there's only one active route at a time, referenced by the property ActiveRoute. To calculate a route you have to add waypoints to the route. Listing 2 is a continuation of Listing 1. I add the main station to the map using the same steps as in Listing 1 when adding the office. With the property ActiveRoute I get the route object from the map, reset the route with the method Clear, and get the waypoints collection from it. In the next step I add the pushpins to the waypoints and call the route's method Calculate. The route will be calculated and the event routeaftercalculate is fired after the calculation. From this route I get the direction information by looping through the directions collection. I add the direction instruction to a string, placing each entry on a new line. At the end I display the distance and the direction information.
Pushpins are grouped in datasets. When you add a pushpin to the map it's added to the "My Pushpins" dataset. However, you can define your own datasets that can be used to manipulate groups of pushpins. In Listing 3 I create a dataset called "MyTour" using the method AddPushpinSet. (Listings 36 can be downloaded from www.sys-con.com/pbdj/sourcec.cfm.) Adding pushpins to this set is done with MoveTo. In the last step, I change all the pushpin symbols of the new dataset at once to a large red dot using the property symbol of the dataset.
You can overwrite the default behavior in some events. As I mentioned before, you don't want the user to move a pushpin from one address to another as it still contains the information about the original address. To prevent this you have to place some code in the beforeclick event. The code in Listing 4 shows a possible handling for the beforeclick event. Arguments of this event are the clicked mouse button; the state of the SHIFT, CTRL, and ALT keys; the X and Y coordinates of the mouse; and the boolean cancel passed by reference. Cancel is false by default; when set to true the default behavior of the event is suppressed. Using the method ObjectsFromPoint with the mouse coordinates returns a collection of locations and pushpins located at the mouse pointer. I loop through the collection to find the pushpins (if the zoom factor is small, they might be located on top of each other). To distinguish between locations and pushpins I use the property parent. The parent of a location is the map, whereas the parent of a pushpin is a dataset. If the user clicks with the right-mouse button on one or more pushpins, open your own right-mouse button menu and prevent the default menu from popping up by setting the variable cancel to true. If the user clicks with the left-mouse button on one pushpin, you might show some information about it. Preventing the default behavior of the left-mouse button in the beforeclick might be a good idea anyway as this will prevent having to move around pushpins.
OLE Automation with MapPoint
You frequently don't need to visualize a route on a map, e.g., only when calculating driving time or distance, or when printing driving instructions. Listing 5 shows how to create a nonvisual instance of the MapPoint. Create a variable with the type oleobject and use the method ConnectToNewObject to get a reference to the map without making the map visible as a control. As this is time-consuming, I recommend placing all the OLE Automation activity with MapPoint in a user object that will be created at the application startup or the first use, and destroyed when the application closes.
The functions for creating and calculating routes are the same for the control. The only difference is that calling the calculate method of the route should be placed within a TRY
CATCH statement to catch a possible runtime error (see Listing 6). A runtime error could be generated when a location on your route is located in a pedestrian area.
Conclusion
The MS MapPoint control is an easy way to include mapping capabilities in your applications. When starting from scratch you need some time to get into it and see how the different objects are related. With the samples in this article, however, it's quite easy to start.
First published in PBDJ at http://www.sys-con.com/pbdj/article.cfm?id=598, used with permission.
Discuss this story in the forum.
Author: Arthur Hefti Email: arthur(AT)catsoft.ch URL: http://www.catsoft.ch Arthur Hefti is the CEO of CATsoft Development GmbH in Zurich. He has been a PowerBuilder developer for 10 years and has taught dozens of PowerBuilder training classes. He and his team frequently create custom-made client/server and Web software with PowerBuilder and JBoss using XML, Web Services, and encryption.
|