귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
옄猷뚯떎 옄猷뚯떎 입니다.
글내용 - 옄猷뚯떎
 [Delphi]怨듦컙젙蹂댁삤뵂뵆옯뤌 釉뚯씠썡뱶3D뜲뒪겕넲 留뚮뱾湲-Base
솉꽦씫
(솉꽦씫)
2018-06-18 삤썑 5:13:27
1161회 조회


첨부파일 다운로드
WORLD_Pro_Base(1).zip
썝臾:http://cafe.naver.com/gisapplication/968

[Delphi]怨듦컙젙蹂 삤뵂뵆옯뤌 釉뚯씠썡뱶 3D 뜲뒪겕넲 留뚮뱾湲 - Base
뜽뙆씠 뼵뼱濡 釉뚯씠썡뱶 3D Open API瑜 궗슜븯뿬 뜲뒪겕넲 봽濡쒓렇옩 留뚮뱾湲 湲곗큹엯땲떎. 
"釉뚯씠썡뱶 3D 뜲뒪겕넲 API뒗 뜲뒪겕넲 꽌鍮꾩뒪濡쒕쭔 젣怨듬릺뜕 뜲뒪겕넲쓽 湲곕뒫쓣 궗슜옄媛 썝븯뒗 삎깭濡 솢슜븷 닔 엳룄濡 븯뒗 C/S슜 뵆옯뤌엯땲떎."

* 삁젣 怨듭쑀 紐⑹쟻
1. 湲곗〈 "怨듦컙젙蹂 삤뵂뵆옯뤌 釉뚯씠썡뱶 3D뜲뒪겕넲 API 젅띁윴뒪"뿉뒗
    - C#쑝濡쒕쭔 삁젣媛 엳뼱꽌, 떎瑜 뼵뼱 듅엳 뜽뙆씠굹 C++, 踰좎씠吏 벑 뿉꽌 솢슜븳 삁媛 뾾뼱 뼱젮.
    - 湲곗〈 쎒삎떇 API씤 javaScript踰꾩졏怨 긽씠븯뿬 蹂꾨룄濡 씪씠釉뚮윭由щ 꽕移섑븯怨 븿닔瑜 씡빞 븿.
2. 뵲씪꽌, 뼵뼱쓽 媛쒕컻옄뒗 釉뚯씠썡뱶 3D 뜲뒪겕깙쓣 留뚮뱾湲 쐞빐 "釉뚯씠썡뱶 3D吏룄 API 뵆윭洹몄씤"쓣 꽕移
   븯怨, 쎒釉뚮줈슦졇 而댄룷꼳듃뿉 湲곗〈 쎒삎떇 API씤 javaScript踰꾩졏쓣 肄붾뵫븯뿬 뿰룞븯뒿땲떎.
   떆뒪뀥씠 遺덉븞젙뻽怨 뜲뒪겕깙뿉꽌 옄諛붿뒪겕由쎌쑝濡 紐낅졊쓣 꽌濡 뿰룞븯뒓씪 諛섏쓳 냽룄굹 뵒뀛씪븳 紐낅졊쓣 
   궡由ш린 뼱젮썱떎.

洹몃옒꽌 씠踰 삁젣뒗 뜽뙆씠濡  釉뚯씠썡뱶3D API javaScript踰꾩졏씤 뵆윭洹몄씤留뚯쓣 궗슜븯뿬 뜲뒪겕넲 봽濡쒓렇옩쓣 留뚮뱶뒗 삁젣쓣 삱졇뒿땲떎.
釉뚯씠썡뱶3D 뵆윭洹몃쭔 꽕移(蹂꾨룄 뜲뒪겕깙슜 씪씠釉뚮윭由 꽕移 遺덊븘슂, 釉뚯씠썡뱶 쎒踰꾩졏留 븳踰덈쭔 떎뻾빐룄 쎒 뵆윭洹몄씤쓣 꽕移섑븿)븯怨 泥⑤뙆씪쓣 湲곕컲쑝濡 肄붾뵫븯硫 맗땲떎. 븯떒 냼뒪뿉꽌뒗 씪諛 뼵뼱뿉꽌 뵆윭洹몄씤留 궗슜븯湲 쐞븳 紐뉕吏 젣븳쓣 빐寃고븯湲곕쭔 븯硫 맗땲떎. 


unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, OleCtrls, ExtCtrls,
  XDWORLDPLUGINLib_TLB, ComCtrls, StdCtrls;

type
  TForm_Main = class(TForm)
    Panel_Map: TPanel;
    Panel_Menu: TPanel;
    Timer_MapInit: TTimer;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer_MapInitTimer(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    XDWorld_COM: TXDWorldCOM;

    procedure MyExceptionHandler(Sender : TObject; E : Exception );
  end;

var
  Form_Main: TForm_Main;

implementation

{$R *.dfm}

procedure TForm_Main.FormCreate(Sender: TObject);
begin

  //釉뚯씠썡뱶3D 뵆윭洹몄씤쓽 寃고븿씠吏뒗 紐곕씪룄 "external exception"뿉윭 諛쒖깮떆 李쎌쓣 쓣썙 硫덉텛뒗 긽깭瑜 젣븳븯湲 쐞빐

     硫붿꽭吏 씠踰ㅽ듃瑜 궡븿닔濡 鍮쇱븮뒗떎
  Application.OnException := MyExceptionHandler; //뿉윭李 젣嫄
end;

procedure TForm_Main.FormShow(Sender: TObject);
begin

  //뵆윭洹몄씤쓽 3D吏룄 而댄룷꼳듃瑜 룞쟻쑝濡 깮꽦빐빞 빀땲떎. 
  XDWorld_COM := TXDWorldCOM.Create(nil);
  XDWorld_COM.Parent := Panel_Map;
  XDWorld_COM.Align := alClient;

  //釉뚯씠썡뱶3D 꽌鍮꾩뒪 URL쓣 吏젙
  XDWorld_COM.SetServerURL('xdworld.vworld.kr:8080');

  //湲곕낯 젅씠뼱 由ъ뒪듃
  XDWorld_COM.SetServerLayerURL('xdworld.vworld.kr:8080', 'facility_build');
  ////XDWorld_COM.SetServerLayerURL('xdworld.vworld.kr:8080', 'hybrid_road');
  XDWorld_COM.SetServerLayerURL('xdworld.vworld.kr:8080', 'hybrid_bound');
  ////XDWorld_COM.SetServerLayerURL('xdworld.vworld.kr:8080', 'poi_base');
  XDWorld_COM.SetServerLayerURL('xdworld.vworld.kr:8080', 'poi_bound');
  XDWorld_COM.SetServerLayerURL('xdworld.vworld.kr:8080', 'poi_road');

  XDWorld_COM.getView.mapReset;


  Timer_MapInit.Enabled := true;
end;

procedure TForm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //
end;
//********************************************************************************
procedure TForm_Main.Timer_MapInitTimer(Sender: TObject);
begin
  Timer_MapInit.Enabled := false;

  XDWorld_COM.getViewCamera.moveLonLatAlt(126.9779692, 37.566535, 1000);
end;

procedure TForm_Main.MyExceptionHandler(Sender:TObject;E:Exception);
begin
    //Do nothing
end;
//********************************************************************************
procedure TForm_Main.CheckBox4Click(Sender: TObject);
var
  ON_OFF:integer;
begin
  if(TCheckBox(Sender).Checked)then ON_OFF := XDWorld_COM.SOPVISIBLE_ON
  else ON_OFF := XDWorld_COM.SOPVISIBLE_OFF;

  if( TCheckBox(Sender).Name = 'CheckBox1')then
     XDWorld_COM.getLayerList.setVisible('facility_build', ON_OFF)
  else if( TCheckBox(Sender).Name = 'CheckBox2')then
     XDWorld_COM.getLayerList.setVisible('hybrid_bound', ON_OFF)
  else if( TCheckBox(Sender).Name = 'CheckBox3')then
     XDWorld_COM.getLayerList.setVisible('poi_bound', ON_OFF)
  else if( TCheckBox(Sender).Name = 'CheckBox4')then
     XDWorld_COM.getLayerList.setVisible('poi_road', ON_OFF);
end;


* 솢슜솕硫 : [GIS 李⑤웾 쐞移섏젙蹂 愿젣떆뒪뀥] http://cafe.naver.com/gisapplication/953