Hi All,
Inspired by
this article , I'm trying to experiment with Map Point, OLE, and Perl. I'm trying to create an array of locations to pass to addPolyLine, with no luck so far. The method addPolyLine requires an array of locations, however, it get confused when I try the code below. I may need to use a variant type, but I'm not sure how I would do that... Any ideas? Thanks
use Win32::OLE qw(in with);
use Win32::OLE::Const;
use Win32::OLE::Const 'Microsoft MapPoint';
$Win32::OLE::Warn = 3; # die on errors...
@states= qw (iraq iran);
my $MapPoint = Win32::OLE->new('MapPoint.Application', 'Quit');
my $Map = $MapPoint->NewMap();
my $Results = $Map->FindPlaceResults("Virginia");
my $second = $Map->findPlaceResults("Maryland");
my $Location = $Results->Item(1);
$Location->GoTo;
my $secLocation = $second->Item(1);
my @ary = ($location,$secLocation);
my $x = $Map->Shapes->addPolyLine(@ary); # Fails
# More below here
----
Zak
undef$/;$mmm="J\nutsu\nutss\nuts\nutst\nuts A\nutsn\nutso\nutst\nutsh\
+nutse\nutsr\nuts P\nutse\nutsr\nutsl\nuts H\nutsa\nutsc\nutsk\nutse\n
+utsr\nuts";open($DOH,"<",\$mmm);$_=$forbbiden=<$DOH>;s/\nuts//g;print
+;