ArcEngine地图窗口指定区域导出指定DPI多格式---delphi/C#实现

delphi/C#实现，其他语言稍微改下就行了。AE的编码各个语言都差不多，这里也没用到某一语言的特性。

函数特点：

1.可以精确导出指定范围的图形要素

2.支持多格式.TIF， .EMF，.GIF，.PDF，.PNG，.SVG，.AI，.EPS，.jpg等

3.Tif格式导出时支持坐标信息导出，支持压缩格式选择

 

 

delphi 版：

{海龙 created
  功能说明：指定地图窗口指定区域裁图
  参数说明：
 指定地图窗口pMap
 指定范围裁图pExtent,如某一图形的envolope或map.extent之类的
 输出图片文件名称strPicFile，根据后缀名判断裁出图片类型
 输出图片dpi  iOutResolution ,默认300
 裁图时地图窗口需设置的比例尺 sMapBLC ,可以为空
 bGeoTiff 文件类型为tif时有效，为true时保存坐标信息
 pTifCompressionType 文件类型为tif时有效，tif的压缩类型，默认无损
}

function ClipMap2Pic(pMap: IMap;pExtent: IEnvelope; strPicFile: String; iOutResolution: Integer = ; sMapBLC: String = '';
      bGeoTiff : Boolean = False; pTifCompressionType: esriTIFFCompression  = esriTIFFCompressionNone):Boolean;
var
  pAV: IActiveView;
  pEnvNew: IEnvelope;
  ptagTmp: tagRECT;
  pExport: IExport;
  ihdc, iPrevOutputImageQuality: Integer;
  dRes: Double;
  dWidth, dHeight, dMapBLC: Double;
  tmpDC: HDC;
  iScreenResolution: Integer;
  deviceRECT: tagRECT;
  pSD: IScreenDisplay;
  pDT: IDisplayTransformation;
  sWJLX: string;
  //地图距离转屏幕像素数,不同缩放比例尺下同样距离对应像素数不同的，有特殊需要时设置sMapBLC
  function ConvertMapUnitsToPixels(pAV: IActiveView;dMapUnits: Double):double;
  var
    pBounds: IEnvelope;
    pDeviceFrame: tagRECT;
    iDeviceRight, iDeviceLeft, iPixelExtent: integer;
    dRealWorldExtent, dSizeOfEachPixel: double;
  begin
    Result:= ;
    pDT.Get_DeviceFrame(pDeviceFrame);
    iDeviceLeft:= pDeviceFrame.left;
    iDeviceRight:= pDeviceFrame.right;
    iPixelExtent:= iDeviceRight-iDeviceLeft;
    pDT.Get_VisibleBounds(pBounds);
    pBounds.Get_Width(dRealWorldExtent);
    dSizeOfEachPixel:= dRealWorldExtent / iPixelExtent;
    Result:= dMapUnits/dSizeOfEachPixel ;
  end;
begin
  Result:= False;
  if pMap = nil then Exit;
  if strPicFile = '' then Exit;
  try
    if FileExists(strPicFile) then
      DeleteFile(PChar(strPicFile));
    if (sMapBLC <> '') and TryStrToFloat(sMapBLC, dMapBLC) and (dMapBLC > ) then
      pMap.Set_MapScale(StrToFloatEx(sMapBLC));//map的比例尺调整为出图比例尺
    pAV:= pMap as IActiveView;

    sWJLX := UpperCase(RightStr(strPicFile, ));
    if sWJLX = '.TIF' then            //根据文件名后4位判断输出类型
      pExport := CoExportTiff.Create as IExport
    else
    if sWJLX = '.EMF' then
      pExport := CoExportEMF.Create as IExport
    else
    if sWJLX = '.BMP' then
      pExport := CoExportBMP.Create as IExport
    else
    if sWJLX = '.GIF' then
      pExport := CoExportGIF.Create as IExport
    else
    if sWJLX = '.PDF' then
      pExport := CoExportPDF.Create as IExport
    else
    if sWJLX = '.PNG' then
      pExport := CoExportPNG.Create as IExport
    else
    if sWJLX = '.SVG' then
      pExport := CoExportEMF.Create as IExport
    else
    if RightStr(sWJLX, ) = '.AI' then
      pExport := CoExportAI.Create as IExport
    else
    if sWJLX = '.EPS' then
      pExport := CoExportPS.Create as IExport
    else
      pExport := CoExportJPEG.Create as IExport;

    pAV.Get_ScreenDisplay(pSD);
    pSD.Get_DisplayTransformation(pDT);
    (pDT as IOutputRasterSettings).Get_ResampleRatio(iPrevOutputImageQuality);

    tmpDC:= GetDC();
    iScreenResolution:= GetDeviceCaps(tmpDC, ); //获取屏幕dpi
    ReleaseDC(, tmpDC);

    // 根据传入的pExtent确定裁图的画布大小（出图比例尺下裁图范围的像素高和宽）
    pExtent.Get_Width(dWidth);
    pExtent.Get_Height(dHeight);
    ptagTmp.left   := ; //ptagTmp的right和bottom非常主要
    ptagTmp.top    := ;
    ptagTmp.right  := trunc(ConvertMapUnitsToPixels(pAV,dWidth) * iOutResolution / iScreenResolution); //把地图距离转为屏幕像素个数
    ptagTmp.bottom := trunc(ConvertMapUnitsToPixels(pAV,dHeight) * iOutResolution / iScreenResolution);

    pEnvNew:= CoEnvelope.Create as IEnvelope;
    pEnvNew.PutCoords(ptagTmp.left,ptagTmp.top,ptagTmp.right,ptagTmp.bottom); //裁图的画布大小

    pExport.Set_ExportFileName(strPicFile);
    pExport.Set_Resolution(iOutResolution);
    pExport.Set_PixelBounds(pEnvNew);
    if sWJLX = '.TIF' then
    begin
      if bGeoTiff then
      begin
        (pExport as IExportTIFF).Set_GeoTiff(True);//包含tif文件坐标信息，这2句是必须的
        (pExport as IWorldFileSettings).Set_MapExtent(pExtent);
      end;
      (pExport as IExportTIFF).Set_CompressionType(pTifCompressionType);
    end;

    if sWJLX = '.PDF' then
    begin
      (pExport as IExportPDF).Set_Compressed(True);
      (pExport as IExportPDF).Set_EmbedFonts(True);
      (pExport as IExportPDF).Set_ImageCompression(esriExportImageCompressionNone);
    end;

    pExport.StartExporting(ihdc);
    pAV.Output(ihdc, iOutResolution, ptagTmp, pExtent, nil);
    pExport.FinishExporting;

    pExport.Cleanup;
    (pDT as IOutputRasterSettings).Set_ResampleRatio(iPrevOutputImageQuality);

    if FileExists(strPicFile) then
      Result:= True;
  except
    Result:= False;
  end;
end;

 

Ｃ＃版本：

/* GDI delegate to GetDeviceCaps function */

        [DllImport("GDI32.dll")]

        public static extern int GetDeviceCaps(int hdc, int nIndex);

        /* User32 delegates to getDC and ReleaseDC */

        [DllImport("User32.dll")]

        public static extern int GetDC(int hWnd);

        [DllImport("User32.dll")]

        public static extern int ReleaseDC(int hWnd, int hDC);

        [DllImport("user32.dll", SetLastError = true)]

        static extern bool SystemParametersInfo(uint uiAction, uint uiParam, ref int pvParam, uint fWinIni);

        /// <summary>

        /// 地图距离转屏幕像素数,不同缩放比例尺下同样距离对应像素数不同的，有特殊需要时设置sMapBLC

        /// </summary>

        /// <param name="pAV">The p AV.</param>

        /// <param name="dMapUnits">地图距离</param>

        /// <returns></returns>

        public static double ConvertMapUnitsToPixels(IActiveView pAV, double dMapUnits)

        {

            IDisplayTransformation pDT = pAV.ScreenDisplay.DisplayTransformation;

            tagRECT pDeviceFrame = pDT.get_DeviceFrame();

            int iDeviceLeft = pDeviceFrame.left;

            int iDeviceRight = pDeviceFrame.right;

            int iPixelExtent = iDeviceRight-iDeviceLeft;

            double dRealWorldExtent = pAV.Extent.Width;

            double dSizeOfEachPixel = dRealWorldExtent / iPixelExtent;

            return dMapUnits / dSizeOfEachPixel;

        }

        /// <summary>

        /// 指定范围裁剪图片

        /// </summary>

        /// <param name="pMap">裁图地图窗口</param>

        /// <param name="pExtent">指定裁图范围</param>

        /// <param name="strPicFile">输出文件名称</param>

        /// <param name="iOutResolution">输出DPI</param>

        public static void ClipMap2Pic(IMap pMap, IEnvelope pExtent, string strPicFile, int iOutResolution, double blc, bool withWarning)

        {

            if (pMap == null) return;

            if (strPicFile == string.Empty) return;

            if (File.Exists(strPicFile))

            {

                if ((!withWarning) || (withWarning && (GtMap.GxFrame.GxFrameLib.Common.AxMessageBox.ShowConfirmation("图片已存在，是否覆盖？") == System.Windows.Forms.DialogResult.Yes)))

                    File.Delete(strPicFile);

                else

                    return;

            }

            IActiveView pAV = pMap as IActiveView;

            string sWJLX = strPicFile.Substring(strPicFile.Length - ).ToUpper();

            IExport pExport = null; 

            if (sWJLX == ".TIF")            //根据文件名后4位判断输出类型

                pExport = new ExportTIFFClass();

            else

            if (sWJLX == ".EMF")

                pExport = new ExportEMFClass();

            else

            if (sWJLX == ".BMP")

                pExport = new ExportBMPClass();

            else

            if (sWJLX == ".GIF")

                pExport = new ExportGIFClass();

            if (sWJLX == ".PDF")

                pExport = new ExportPDFClass();

            else

            if (sWJLX == ".PNG")

                pExport = new ExportPNGClass();

            else

            if (sWJLX == ".SVG")

                pExport = new ExportSVGClass();

            else

            if (strPicFile.Substring(strPicFile.Length - ).ToUpper() == ".AI")

                pExport = new ExportAIClass();

            else

            if (sWJLX == ".EPS")

                pExport = new ExportPSClass();

            else

                pExport = new ExportJPEGClass();

            IDisplayTransformation pDT = pAV.ScreenDisplay.DisplayTransformation;

            IOutputRasterSettings docOutputRasterSettings = pDT as IOutputRasterSettings;

            int iPrevOutputImageQuality = docOutputRasterSettings.ResampleRatio;

            docOutputRasterSettings.ResampleRatio = ;  ////这个似乎没什么用

            //获取屏幕dpi

            /* Get the device context of the screen */

            long tmpDC = GetDC();

            /* Get the screen resolution. */

            int iScreenResolution = GetDeviceCaps((int)tmpDC, ); //88 is the win32 const for Logical pixels/inch in X)

            /* release the DC. */

            ReleaseDC(, (int)tmpDC);

            // 根据传入的pExtent确定裁图的画布大小（出图比例尺下裁图范围的像素高和宽）

            tagRECT ptagTmp;

            ptagTmp.left = ; //ptagTmp的right和bottom非常主要

            ptagTmp.top = ;

            ptagTmp.right = (int)Math.Truncate(ConvertMapUnitsToPixels(pAV,pExtent.Width) * iOutResolution / iScreenResolution); //把地图距离转为屏幕像素个数

            ptagTmp.bottom = (int)Math.Truncate(ConvertMapUnitsToPixels(pAV,pExtent.Height) * iOutResolution / iScreenResolution);

            IEnvelope pEnvNew = new EnvelopeClass();

            pEnvNew.PutCoords(ptagTmp.left,ptagTmp.top,ptagTmp.right,ptagTmp.bottom); //裁图的画布大小

            pExport.ExportFileName = strPicFile;

            pExport.Resolution = iOutResolution;

            pExport.PixelBounds = pEnvNew;

            if (sWJLX == ".TIF")

            {

                (pExport as IExportTIFF).GeoTiff = true;//包含tif文件坐标信息，这2句是必须的

                (pExport as IWorldFileSettings).MapExtent = pExtent;

                (pExport as IExportTIFF).CompressionType = esriTIFFCompression.esriTIFFCompressionJPEG;

            }

            if (sWJLX == ".PDF")

            {

              (pExport as IExportPDF).Compressed = true;

              (pExport as IExportPDF).EmbedFonts = true;

              (pExport as IExportPDF).ImageCompression = esriExportImageCompression.esriExportImageCompressionNone;

            }

            int ihdc = pExport.StartExporting();

            pAV.Output(ihdc, iOutResolution, ref ptagTmp, pExtent, null);

            pExport.FinishExporting();

            pExport.Cleanup();

            (pDT as IOutputRasterSettings).ResampleRatio = iPrevOutputImageQuality;

            if (!File.Exists(strPicFile) && withWarning)

                GtMap.GxFrame.GxFrameLib.Common.AxMessageBox.ShowInformation("图片导出失败！");

        }

//created by jhlong http://jhlong12345.blog.163.com/