MapForums

Hi,

I just started to play with mappoint 2002 trial & Delphi 7...
So with the helph of this site I already get a map in my delphi form and I can zoom and pan....

Here's my code: (OleContainer, map dropped on a form)

procedure TForm1.FormShow(Sender: TObject);
var
vGuid : TGuid;
FMap : _Map;
begin
OleContainer_Map.CreateObject('MapPoint.Map.EU.9', FALSE );
OleContainer_Map.DoVerb(1);
OleContainer_Map.OleObjectInterface.GetUserClassID (vGuid);
FMap := IDispatch(OleContainer_Map.OleObject) as _Map;
Map1.ConnectTo(FMap);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Map1.ZoomIn;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Map1.pan(geoEast,0.5);
end;

But when I close the Form I get allways the following message:
Application Error:
Exception EAccesVilation in module OLE32.dll at...

Any idea?? (I'm not familiar with the OleContainer...)

I'm not a Delphi developer, but there are some samples in the Articles section of this site that might be of use to you.. Also, there's some discussions in the forums. You might employ Google to list it all in one swoop: http://www.google.com/search?q=site:...g%2Ecom+Delphi

Happy Mapping!
Eric

__________________

I already tried this....

Hope some Delphi coder could helph me...

hanks for your quick reply! :D

Try the following in FormClose:

OLECont.Align := alNone;
and free all your Delphi controls (Form, Menu, Toolbar, ...)

Greetings, Jack.

Ok I finally solved this problem by myself :D

Just added this:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Map1.Disconnect;
end;

And no more Application Error 8)

Hi Eric-

I am a Delphi Developer and use the code similar to you. The difference is that I don't do a connect. Still seems to work well here.

Ray[/code]

Hi,

I am doing the same thing, but I need to disable the toolbar and the directions pane. I just want to display the map only.