Hi

What is the solution for loading mappoint 2k6 into an olecontainer in Delphi7. Although it is possible to right click and open mappoint, however, on save or after edit if one tries to close mappoint generates error

"Microsoft MapPoint has encountered a problem and needs to close. etc"

I have tried loading the mappoint in code as shown bellow with no success.

Code:

unit mapPoint;

interface

uses
  Controls, Classes, OleCtnrs, MapPoint_TLB;

type
  TMP = class
  private
    FMap: _Map;
    OleContainer: TOleContainer;
  public
    constructor Create(AOwner: TComponent; ParentControl: TWinControl);
    destructor Destroy; override;
    property Map: _Map read FMap;
  end;


implementation

{ TMP }

constructor TMP.Create(AOwner: TComponent; ParentControl: TWinControl);
var
   Guid: TGuid;
begin
   OleContainer := TOleContainer.create(nil);
   OleContainer.Parent := ParentControl;
   OleContainer.Align := alClient;
   OleContainer.CreateObject('MapPoint.Map.EU.13', False);
   OleContainer.DoVerb(1);
   OleContainer.OleObjectInterface.GetUserClassID(Guid);
   FMap:= IDispatch(OleContainer.OleObject) as _Map;
   FMap.Application.Units := geoMiles;
end;

destructor TMP.Destroy;
begin
   OleContainer.DestroyObject;
   OleContainer.Free;
   inherited;
end;

end.

Any suggestions are much appreciated.

Cheers
M.M.

Hi,

Code looks good, but can you please next time put your code into [ code ] tags so that it is readable with proper indent ?

So if I understeand right you dont have an AV or an exception error, but you have that windows error 'application needs to close etc..' ?

Can you check howmany instances of mappoint you have in memory (task manager) ?

Hi

Thanks for your reply.

I do not get an AV error, etc

I only get one instance of MapPoint running, but when you try to 'close the form' or 'closing edit form of OLEcontainer', MapPoint crashes and stays in memory (in task manager)

Any ideas?

Thanks

hi,

Do you destroy the mappoint class ? And please show what you put in the destructor code ?

Originally Posted by Wilfried

hi,

Do you destroy the mappoint class ? And please show what you put in the destructor code ?

Code:

destructor TMP.Destroy;
begin
   OleContainer.DestroyObject;
   OleContainer.Free;
   inherited;
end;

Try this code - I had the same problem. Put this in the FormClose event.procedure TFMain.FormClose(Sender: TObject; var Action: TCloseAction);begin if (Assigned(FMap.MPMap))then begin FMap.MPMap.Application.Quit; FMap.MPMap:=nil; FMap.OleContainer.Close; FMap.OleContainer.DestroyObject; FMap.OleContainer.UpdateObject; FMap.OleContainer.Update; FMap.OleContainer.UpdateControlState; end;end;

Hi

I have tried your suggestion but the problem still presents.

The error is: 'Microsoft MapPoint has encountered a problem and needs to close. We are sorry for the inconvenience ... etc etc'. The error is generated when OLE Container destroyObject is called.

"OleContainer.DestroyObject;"

The destroyObject calls the following where the error is generated.

OleCheck(OleSave(PersistStorage, FStorage, True));

I am sure the problem is with MapPoint since, if I remove any reference to MapPoint, OLE container is created and destroyed without any problems.

Code:

unit mapPoint;

interface

uses
  Controls, Classes, OleCtnrs, MapPoint_TLB;

type
  TMP = class
  private
    FMap: _Map;
    OleContainer: TOleContainer;
  public
    constructor Create(AOwner: TComponent; ParentControl: TWinControl);
    destructor Destroy; override;
    property Map: _Map read FMap;
  end;


implementation

{ TMP }

constructor TMP.Create(AOwner: TComponent; ParentControl: TWinControl);
var
   Guid: TGuid;
begin
   OleContainer := TOleContainer.create(nil);
   OleContainer.Parent := ParentControl;
   OleContainer.Align := alClient;
   OleContainer.CreateObject('MapPoint.Map.EU.13', False);
   OleContainer.DoVerb(1);
   OleContainer.OleObjectInterface.GetUserClassID(Guid);
   FMap:= IDispatch(OleContainer.OleObject) as _Map;
   FMap.Application.Units := geoMiles;
end;

destructor TMP.Destroy;
begin
  if Assigned(FMap) then FMap.Application.Quit;
  FMap._Release;
  FMap := nil;
  OleContainer.Close;
  OleContainer.DestroyObject;
  OleContainer.UpdateObject;
  OleContainer.Update;
  OleContainer.UpdateControlState;
  OleContainer.UpdateControlState;
  OleContainer.Free;
  inherited;
end;


end.

Thanking you in advance

Hi,

This is how I destroy it:

Code:

destructor TTSMapPoint.Destroy;
begin;
   FMap.Application.Quit;
   FMap:=nil;
   OleContainer1.DestroyObject;
   OleContainer1.Free;
   inherited;
end;