Projection в МО

Question

Есть ли у кого-то примеры кода (желательно на pascal):

Как определить какая проекция в shape файле?

Как задать проекцию для shape файла который открыт?

Answer 1

С MapObjects знаком очень поверхностно. Но, думаю, надо искать свойство или метод класса, представляющего карту, где в названии будет SpatialReference.

Answer 2

Добрый день, вот пример как поменять проекцию на Map1
-----------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
     i,n :Integer;
     Geo :IMoGeoCoordSys;
     Prj :IMoProjCoordSys;
     Lyr :IMoMapLayer;
begin
    Geo := IMoGeoCoordSys(CreateOleObject('MapObjects2.GeoCoordSys'));
    Geo.Type_ := moGeoCS_Pulkovo1942;

    n := Map1.Layers.Count;
    for i:=0 to (n-1) do begin
        Lyr := IMoMapLayer(Map1.Layers.Item(i));
        Lyr.CoordinateSystem := Geo;
    end;
    Map1.CoordinateSystem:= Geo;

    Prj := IMoProjCoordSys(CreateOleObject('MapObjects2.ProjCoordSys'));
    Prj.Type_ := moProjCS_Pulkovo1942GK_6N;
    Prj.Unit_.Type_ := moUnit_Meter;

    Map1.CoordinateSystem:= Prj;
    Map1.Refresh;

end;
-----------------------------------------------------
Есть проблема, когда я запускаю эту процедуру, то изображение (которое есть в примерах МО C:\Program Files\ESRI\MapObjects2\Samples\Data\USA\Counties.shp) становится таким... :(

http://rapidshare.com/files/354126243/USAmap.JPG.html

Мне нужно Пулково 1942, когда я применяю его для своих SHP файлов карту поворачивает и она становится тонкой как лист бумаги?

В чем может быть причина, в ArcView 3.1 файлы открываются без проблем (задаю ту же проекцию!)