Delphi下使用MapWinGIS控件打開GIS圖層

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Data.DB,
  Vcl.OleCtrls, MapWinGIS_TLB, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.OleServer,
  Bde.DBTables;

type
  TForm3 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Map1: TMap;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    OpenDialog1: TOpenDialog;
    Table1: TTable;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    AShape:MapWinGIS_TLB.Shapefile;
    ATable:MapWinGIS_TLB.Table;
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
  i,MapHanle:integer;

begin
   self.OpenDialog1.FileName :='*.SHP';
   if self.OpenDialog1.Execute() then
   begin
     AShape:=MapWinGIS_TLB.CoShapefile.Create;
     AShape.Open(self.OpenDialog1.FileName,nil);
     MapHanle:=self.Map1.AddLayer(AShape,true);
     self.Table1.TableName :=ExtractFilePath(self.OpenDialog1.FileName)+'grid.dbf';
     self.Table1.Active:=true;
   end;

end;

end.

 

更多相关文章
一周排行
  • 头文件 #pragma once#include "D:\Work\山东项目\StandardizedDrawing\sdUtils\CSGrid.h"#include "ZwLReso ...
  • 


    		    關于DPM的安裝使用、備份和還原測試
    关于DPM的安装使用.备份和还原测试: 1, 测试环境,两台装了Windows serve ...
  • 1.Django+websocket django-websocketdwebsocketdjango-websocket是旧版的,现在已经没有人维护,dwebsocket是新版的,推荐使用dwebsocket. p ...
  • 


    		    C# 操作Excel之旁門左道  C#  Excel
    前言 C#使用自带的库(Excel 11.0/5.0 Object Library)操作E ...
  • 雜題FZU2190 非提的救贖
    中文题,题意不多说.   本来感觉很像dp 其实只要从上到下维护单调性就好了   坑是..
  • VS2012 打開cs文件報未找到與約束錯誤
    一.问题发生VS2012,更新补丁后的残忍--创建项目未找到与约束匹配的导出创建项目时无法
  • 云计算时代的ITSM和ITIL 摘要:云计算的风靡将掀起IT世界新一轮的颠覆浪潮,在改变传统IT应用模式的同时,它也将影响着IT管理技术走向新的变革. 云计算的风靡将掀起IT世界新一轮的颠覆浪潮,在改变传统IT应用模 ...
  • unix/linux下的共享内存.信号量.队列信息管理 在unix/linux下,经常有因为共享内存.信号量,队列等共享信息没有干净地清楚而引起一些问题. 查看共享信息的内存的命令是ipcs [-m|-s|-q]. ...
  • 环境:LVS+keepalived 前期,安装相关包: yum -y installopenssl-devel 进行安装 [[email protected] soft]# wget http://www.linuxvirt
  • /* ID: modengd1 PROG: dualpal LANG: C++ */ #include <iostream> #include <stack> #include <std ...