Hi.

I'm searching a way to create an object with mappoint for a service. But no visible object. without components like panels, forms, or whatever thing like those. I need it for delphi 7. In this moment i'm testing with a visual form, and with an OleContainer i can create mappoint on a Panel (The container), but it isn't i need.

somebody know how?

thanks!

Hi,

This little Delphi class opens mappoint in background (invisible). It try to open version 2004 Europe first, if not it checks for 2002 version. You eventally have to change the registry search for version 2006 and of course for the US versions also if nececary.

Code:

unit uMP;

interface

uses
  Windows, SysUtils, Classes, MapPoint_TLB, Registry, Math;

type
  TOnError = procedure(Sender: TObject; E: Exception) of object;

  TMapPoint = class
  private
    FMP: _Application;
    FOnError: TOnError;
  public
    constructor Create(ErrorProc: TOnError);
    destructor Destroy; override;
  end;

implementation

{ TMapPoint }

constructor TMapPoint.Create(ErrorProc: TOnError);
var
   Reg: TRegistry;
   FileName: string;
begin
   inherited Create;
   FOnError := ErrorProc;
   try
      FMP := CoApplication.Create;
      Reg := TRegistry.Create;
      try
         Reg.RootKey := HKEY_CLASSES_ROOT;
         if not Reg.OpenKey('.ptm\MapPoint.Map.EU.11\ShellNew', False) then
            if not Reg.OpenKey('.ptm\MapPoint.Map.EU.9\ShellNew', False) then
               Exit;
         FileName := Reg.ReadString('FileName');
         FMP.OpenMap(FileName, False);
      finally
         Reg.Free;
      end;
   except
      on E: Exception do
         if Assigned(FOnError) then
            FOnError(Self, E);
   end;
end;

destructor TMapPoint.Destroy;
begin
   FMP.ActiveMap.Saved := True;
   FMP.Quit;
   inherited;
end;

Great!.
Very easy.

Thanks!