Delphi版 ArcEngine 10种格式地图输出方法
1
function ExportMapToFile(pActiveView: IActiveView; filetypes: FileType; fileName: string): Boolean;
2
var
3
pExport: IExport;
4
iOutputResolution: SmallInt;
5
iScreenResolution: SmallInt;
6
exportRect: tagRECT;
7
pPixelBounds: IEnvelope;
8
hdc: Integer;
9![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
10
pExportPdf: IExportPDF;
11
begin
12
case filetypes of
13
ftBmp: pExport := CoExportBMP.Create as IExport;
14
ftGif: pExport := CoExportGIF.Create as IExport;
15
ftJpg: pExport := CoExportJPEG.Create as IExport;
16
ftSvg: pExport := CoExportSVG.Create as IExport;
17
ftEps: pExport := CoExportPS.Create as IExport;
18
ftPng: pExport := CoExportPNG.Create as IExport;
19
ftEmf: pExport := CoExportEMF.Create as IExport;
20
ftAI: pExport := CoExportAI.Create as IExport;
21
ftTif: pExport := CoExportTiff.Create as IExport;
22
ftPdf:
23
begin
24
pExport := CoExportPdf.Create as IExport;
25
pExportPdf := pExport as IExportPDF;
26
pExportPdf.EmbedFonts := True;
27
pExportPdf.ImageCompression := esriExportImageCompressionLZW;
28
pExportPdf.Compressed := True;
29
end;
30
end;
31![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
32
if Length(fileName) = 0 then
33
begin
34
Result := False;
35
Exit;
36
end;
37![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
38
pExport.ExportFileName := fileName;
39
iScreenResolution := 96;
40
iOutputResolution := 300;
41![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
42
pPixelBounds := CoEnvelope.Create as IEnvelope;
43
exportRect.left := 0;
44
exportRect.top := 0;
45
exportRect.right := pActiveView.ExportFrame.right * Round(iOutputResolution / iScreenResolution);
46
exportRect.bottom := pActiveView.ExportFrame.bottom * Round(iOutputResolution / iScreenResolution);
47![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
48
pPixelBounds.PutCoords(exportRect.left, exportRect.top, exportRect.right, exportRect.bottom);
49![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
50
pExport.PixelBounds := pPixelBounds;
51![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
52
hdc := pExport.StartExporting;
53
pActiveView.Output(hdc, Round(pExport.Resolution), exportRect, pActiveView.Extent, nil);
54
pExport.FinishExporting;
55
pExport.Cleanup;
56
Result := True;
57
end;
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
28
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
29
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
30
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
31
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
32
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
33
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
34
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
35
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
36
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
37
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
38
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
39
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
40
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
41
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
42
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
43
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
44
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
45
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
46
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
47
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
48
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
49
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
50
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
51
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
52
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
53
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
54
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
55
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
56
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
57
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)