डेल्फी वातावरण में शेपफाइल (* .shp) के साथ काम करें

काम के दौरान, मुझे एक्सटेंशन ".shp" के साथ फ़ाइलों को पढ़ने के कार्य का सामना करना पड़ा। इंटरनेट पर मुझे जो जानकारी मिली, वह खंडित और अस्पष्ट थी, और इसलिए, मैंने गठबंधन करने का फैसला किया जो मुझे अपने आप से जाना था और आपको बताना था।

समस्या का बयान

हमारे पास ".shp" एक्सटेंशन वाली एक फ़ाइल है। इस फ़ाइल में आकृति के रूप में एक नक्शा है: प्रत्येक समोच्च एक अलग आकार में बनाया गया है; आकृति का नाम समोच्च की ऊंचाई की विशेषता है। हमारा कार्य एक सरणी में इस से डेटा पर विचार करना होगा। एक सरणी तीन निर्देशांक (x, y, z) द्वारा परिभाषित बिंदुओं का एक समूह है। इसके अलावा, इस सरणी को डेटाबेस में दर्ज किया जाना चाहिए, लेकिन फिलहाल हम इसे देख लेंगे।

सिद्धांत की बिट

"* .Shp" प्रारूप की सुविधाओं पर विचार करें जो हमारे लिए महत्वपूर्ण हैं। वास्तव में, शेपफाइल में बहुत सारी जानकारी होती है, लेकिन हमारी संकीर्ण रुचि होती है। सबसे पहले, हमें यह जानना होगा कि शेपफाइल को तथाकथित "आकार" (इंजी। शेप - फिगर) में विभाजित किया गया है। कोई आकृति जटिल आकृतियों का आकार या सेट (संभवतः असंबद्ध) है। आकृति को व्यक्तिगत बिंदुओं और उन्हें जोड़ने वाली रेखाओं के बारे में जानकारी के रूप में संग्रहीत किया जाता है। हमारे मामले में, प्रत्येक आकृति एक निरंतर वक्र है जो पृथ्वी के परिदृश्य पर बिंदुओं की स्थिति को दर्शाता है जिसकी ऊंचाई समान है (आकार का नाम ऊंचाई के संख्यात्मक मूल्य से मेल खाता है)। समस्या की विशिष्टता को देखते हुए, हम कनेक्टिंग पॉइंट्स की लाइनों के बारे में जानकारी में दिलचस्पी नहीं लेंगे, लेकिन केवल पॉइंट्स की स्थिति और उनकी ऊंचाई के बारे में जानकारी।

यह भी ध्यान देने योग्य है कि, * .shp प्रारूप की एक फ़ाइल के साथ, * .dbf प्रारूप की एक फ़ाइल हमारे आकृतियों के बारे में हेडर जानकारी युक्त बनाई जाती है। फ़ाइल "* .dbf" का फ़ाइल ".shp" के समान नाम होना चाहिए।

MapWindowGIS

नेट पर कुछ खोजों के बाद, मैंने MapWindowGIS लाइब्रेरी की खोज की। इस पुस्तकालय की संभावनाएं बहुत व्यापक हैं और यह हमें अपने लक्ष्यों को प्राप्त करने में मदद करेगा। आप इसे निम्न लिंक पर डाउनलोड कर सकते हैं।

इस लाइब्रेरी को डाउनलोड करने के बाद आपको इसे इंस्टॉल करना होगा। स्थापना के बाद, हम डेल्फी विकास पर्यावरण का शुभारंभ करते हैं। हम घटक-आयात AciveX नियंत्रण कमांड निष्पादित करते हैं ... जिसके बाद विंडो दिखाई देती है:


ActiveX पुस्तकालयों की सूची में हम MapWinGIS घटक पाते हैं और "इंस्टॉल ..." बटन पर क्लिक करते हैं, जिसके बाद इस लाइब्रेरी को एक नियमित घटक के रूप में स्थापित करना आवश्यक है। इस लायब्रेरी की सफल स्थापना के बाद, TMX घटक ActiveX टैब पर दिखाई देता है।

मानचित्र प्रदर्शन जोड़ें

सबसे पहले, टाइप करने के लिए मानचित्र का एक मैप 1 घटक जोड़ें। जैसा कि पहले ही उल्लेख किया गया है, यह ActiveX टैब की अंतिम स्थिति में है।

हमारे घटक के लिए हमारी फ़ाइल में मौजूद मानचित्र को प्रदर्शित करने के लिए, एक सरल कोड पर्याप्त है:

var

shp:Shapefile; // -
HandleLayer:integr; //

begin

shp:=CoShapefile.Create; // -
shp.Open('map.shp',nil); // 'map.shp'
Map1.Focused; // ,
HandleLayer:=Map1.AddLayer(shp,true); //
Map1.ZoomToMaxExtents; // ( ) ,

end;

आकार हेडर जानकारी पढ़ना

हेडर की जानकारी को * .dbf प्रारूप की एक फ़ाइल से पढ़ने के लिए, हम TTable और TDataSource घटकों का उपयोग करेंगे। ऐसा करने के लिए, क्रमशः "BDE" और "डेटा एक्सेस" टैब से TTataSource प्रकार की TTable और DataSource1 प्रकारों के Table1 घटकों को फॉर्म में जोड़ें। Table1 घटक को अपरिवर्तित छोड़ दिया जाता है, और DataSource1 घटक में, "DataSet" पैरामीटर में, "S1" चुनें।

सुविधा के लिए, डायलॉग टैब से फ़ॉर्म में TOpenDialog प्रकार का OpenDialog1 घटक जोड़ें। OpenDialog1 घटक के "फ़िल्टर" पैरामीटर में, "शेप फ़ाइलें (.shp)" नाम के साथ एक फ़िल्टर जोड़ें और फ़िल्टरिंग "* .shp" (बिना उद्धरण के)। इसके अलावा, "ओपन" और "सेव" बटन जोड़ें।

ओपन बटन के लिए पूर्ण प्रक्रिया कोड इस तरह दिखाई देगा:

procedure TImportForm.ShowShape;

var

nameDB:WideString; //
HandleLayer:integr;

begin

nameDB:=OpenDialog1.FileName; //
shp:=CoShapefile.Create;
shp.Open(nameDB,nil);
Map1.Focused;
HandleLayer:=Map1.AddLayer(shp,true);
Map1.ZoomToMaxExtents;

Delete(nameDB,length(nameDB)-2,3); //
nameDB:=nameDB+'dbf'; // ".dbf"
Table1.TableName:=nameDB; // "*.dbf"
Table1.Active:=True; //""

end;

यह न भूलें कि shp वैरिएबल को वैश्विक वैरिएबल सेक्शन में जोड़ा जाना चाहिए।

एक फ़ाइल से अंक पढ़ें

सबसे पहले, मैं "सहेजें" बटन को सौंपी गई प्रक्रिया का कोड दूंगा:

procedure TImportForm.SaveShape;

var

i,j:integer; //
z:integer; // ,

begin

if shp<>nil then // shp
begin

Table1.First; //
k:=0;
for i:=0 to shp.NumShapes-1 do //
begin
z:=StrToInt(Table1.Fields[2].Value); //
for j:=0 to shp.Shape[i].numPoints-1 do //
begin
Mas[k].x:=shp.Shape[i].Point[j].x;
Mas[k].y:=shp.Shape[i].Point[j].y;
Mas[k].z:=z;
inc(k);
end;
Table1.Next; //
end;
..
//
..

end
else ShowMessage(' ');
end;

आइए कुछ फीचर्स पर नजर डालते हैं। तो, Mas बिंदुओं का एक आयामी आयाम है जिसमें टाइप डबल (x, y, z) के तीन पैरामीटर हैं। Shp.NumShapes पैरामीटर फ़ाइल में आकृतियों की संख्या के बराबर है। पैरामीटर तालिका 1। फ़ील्ड [2] .वायु वर्तमान आकार का नाम है (फ़ाइल "* .dbf" को संरचित किया गया है ताकि नाम 3 कॉलम में लिखा गया हो)। shp.Shape [i] .numPoints, जैसा कि आप शायद पहले ही अनुमान लगा चुके हैं - आई-वें आकार में अंकों की संख्या। shp.Shape [i] .Point [j] .x और shp.Shape [i] .Point [j]। मैं i-th आकृति के j-th बिंदु के समान प्रतिष्ठित निर्देशांक हैं। बाकी, मुझे लगता है, टिप्पणियों से स्पष्ट है।

निष्कर्ष

इसलिए हमने डेल्फी में शेपफाइल के साथ काम करने की विशेषताओं पर विचार किया है। हम पूरी तरह से कार्य के साथ मुकाबला किया। बेशक, यह समीक्षा केवल हिमशैल की नोक है, लेकिन मुझे उम्मीद है कि यह परिचयात्मक लेख आपको इस दिशा के आगे विकास में मदद करेगा।

प्रयुक्त सामग्री:
MapWindow GIS के साथ काम करें। सिंहावलोकन