Delphi版 ArcEngine 10种格式地图输出方法

 1function ExportMapToFile(pActiveView: IActiveView; filetypes: FileType; fileName: string): Boolean;
 2var
 3  pExport: IExport;
 4  iOutputResolution: SmallInt;
 5  iScreenResolution: SmallInt;
 6  exportRect: tagRECT;
 7  pPixelBounds: IEnvelope;
 8  hdc: Integer;
 9
  pExportPdf: IExportPDF;
begin
  case filetypes of
    ftBmp: pExport := CoExportBMP.Create as IExport;
    ftGif: pExport := CoExportGIF.Create as IExport;
    ftJpg: pExport := CoExportJPEG.Create as IExport;
    ftSvg: pExport := CoExportSVG.Create as IExport;
    ftEps: pExport := CoExportPS.Create as IExport;
    ftPng: pExport := CoExportPNG.Create as IExport;
    ftEmf: pExport := CoExportEMF.Create as IExport;
    ftAI: pExport := CoExportAI.Create as IExport;
    ftTif: pExport := CoExportTiff.Create as IExport;
    ftPdf:
      begin
        pExport := CoExportPdf.Create as IExport;
        pExportPdf := pExport as IExportPDF;
        pExportPdf.EmbedFonts := True;
        pExportPdf.ImageCompression := esriExportImageCompressionLZW;
        pExportPdf.Compressed := True;
      end;
  end;

  if Length(fileName) = 0 then
  begin
    Result := False;
    Exit;
  end;

  pExport.ExportFileName := fileName;
  iScreenResolution := 96;
  iOutputResolution := 300;

  pPixelBounds := CoEnvelope.Create as IEnvelope;
  exportRect.left := 0;
  exportRect.top := 0;
  exportRect.right := pActiveView.ExportFrame.right * Round(iOutputResolution / iScreenResolution);
  exportRect.bottom := pActiveView.ExportFrame.bottom * Round(iOutputResolution / iScreenResolution);

  pPixelBounds.PutCoords(exportRect.left, exportRect.top, exportRect.right, exportRect.bottom);

  pExport.PixelBounds := pPixelBounds;

  hdc := pExport.StartExporting;
  pActiveView.Output(hdc, Round(pExport.Resolution), exportRect, pActiveView.Extent, nil);
  pExport.FinishExporting;
  pExport.Cleanup;
  Result := True;
end;