zoukankan      html  css  js  c++  java
  • 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.
  • 相关阅读:
    2019 SDN上机第1次作业
    团队Git现场编程实战
    团队项目-需求分析报告
    第二次结对编程作业
    老学长的TODOLIST
    离散化
    某大佬的TODOLIST
    第一次个人编程作业
    第一次博客作业
    第一次个人编程作业
  • 原文地址:https://www.cnblogs.com/China3S/p/3526328.html
Copyright © 2011-2022 走看看