ArcEngine10种格式地图输出方法.doc

functionExportMapToFile(pActiveView:IActiveView;filetypes:FileType;fileName:string):Boolean;2var3pExport:IExport;4iOutputResolution:SmallInt;5iScreenResolution:SmallInt;6exportRect:tagRECT;7pPixelBounds:IEnvelope;8hdc:Integer;910pExportPdf:IExportPDF;11begin12casefiletypesof13ftBmp:pExport:=CoExportBMP.CreateasIExport;14ftGif:pExport:=CoExportGIF.CreateasIExport;15ftJpg:pExport:=CoExportJPEG.CreateasIExport;16ftSvg:pExport:=CoExportSVG.CreateasIExport;17ftEps:pExport:=CoExportPS.CreateasIExport;18ftPng:pExport:=CoExportPNG.CreateasIExport;19ftEmf:pExport:=CoExportEMF.CreateasIExport;20ftAI:pExport:=CoExportAI.CreateasIExport;21ftTif:pExport:=CoExportTiff.CreateasIExport;22ftPdf:23begin24pExport:=CoExportPdf.CreateasIExport;25pExportPdf:=pExportasIExportPDF;26pExportPdf.EmbedFonts:=True;27pExportPdf.ImageCompression:=esriExportImageCompressionLZW;28pExportPdf.Compressed:=True;29end;30end;3132ifLength(fileName)=0then33begin34Result:=False;35Exit;36end;3738pExport.ExportFileName:=fileName;39iScreenResolution:=96;40iOutputResolution:=300;4142pPixelBounds:=CoEnvelope.CreateasIEnvelope;43exportRect.left:=0;44exportRect.top:=0;45exportRect.right:=pActiveView.ExportFrame.right*Round(iOutputResolution/iScreenResolution);46exportRect.bottom:=pActiveView.ExportFrame.bottom*Round(iOutputResolution/iScreenResolution);4748pPixelBounds.PutCoords(exportRect.left,exportRect.top,exportRect.right,exportRect.bottom);4950pExport.PixelBounds:=pPixelBounds;5152hdc:=pExport.StartExporting;53pActiveView.Output(hdc,Round(pExport.Resolution),exportRect,pActive