Home > Back-end >  BCB use mapwingis development
BCB use mapwingis development

Time:09-23

Isf IShapefile *;
Clsids clsid_shapfile;
HRESULT hresult1=CLSIDFromProgID (L "MapWinGIS. Shapefile", & amp; Clsid_shapfile);
If (FAILED (hresult1))
return;
The CoCreateInstance (clsid_shapfile, NULL, CLSCTX_INPROC_SERVER, __uuidof (IShapefile), (void * *) & amp; Isf);

String STR="D: \ \ winmapgis \ \ TM_WORLD_BORDERS - 0.3. SHP";
BSTR WSTR=(BSTR) WideString (STR);
Isf - & gt; Open (WSTR, NULL);

Mp1 - & gt; RemoveAllLayers ();
Long handle1=mp1 - & gt; AddLayer (isf, true);
Mp1 - & gt; ZoomToLayer (handle1);

CodePudding user response:

Other calls in the same way
  • Related