I use MapWinGIS in Microsoft Access with VB6. Display of Map and interacting works great, but after some zooming and panning the application (and Microsoft Access) always crash totally.

Does anyone know how to avoid this?

5 posts - 2 participants

Read full topic

        private void btnLoadBasemap_Click(object sender, EventArgs e)
        {
            axMap1.CursorMode = MapWinGIS.tkCursorMode.cmPan;

            // add definition of custom provider
            int newID = (int)tkTileProvider.ProviderCustom;
            axMap1.Tiles.Providers.Add(newID, "Custom Provider",
                "https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/{0}/{2}/{1}.jpg",
                tkTileProjection.SphericalMercator, 0, 18);
            // set custom provider as the current provider
            axMap1.Tiles.ProviderId = newID;
            axMap1.Redraw3(tkRedrawType.RedrawSkipAllLayers, true);
        }

I’m trying to use the same basemap called “NASA Satellite imagery via ESRI” available in Easy GIS .NET.

Can anyone help me?

Thank you.

5 posts - 3 participants

Read full topic

Thank you very much in advance for any solution!

1 post - 1 participant

Read full topic

fyi We are using v4.8.6 .

Any assistance will be appreciated.

Thanks

Mike

1 post - 1 participant

Read full topic

Any idea how to fix that?

Many thanks

Marc

1 post - 1 participant

Read full topic

1 post - 1 participant

Read full topic

My first question is:

• Is there some kind of clustering happening automatically?

Also, while in cmSelection mode, I noticed that when I click on a point with the mouse, it gets selected. My question about this is:

• Which event can I use to get the selected point (or points) on a single mouse click, since there seems to be no Click event?

Thank you very much in advance.

2 posts - 2 participants

Read full topic

I using the GdalRasterWarp() to creat a new DEM grid with a new cell size (from 30 to 10 meters) and I got strange results.

In the picture the gray area is the input grid and the colored area is the area added with strange values. In the top figure is the output grid from QGIS and the bottom is tha result from MW.

Looking the results we can see the map resulting after call this function create a new area where must have NODATA value, but it create a area interpolated (colored area).

I called the function with a input grid with WGS84 projection and using 3 tests parameters to compare:
-of GTiff -tr 0.00009 0.00009 -r cubic
and
-of GTiff -tr 0.00009 0.00009 -r cubicspline
and
-of GTiff -tr 0.00009 0.00009 -r cubicspline -srcnodata -32768

All the resulting maps have the same area strange if comparared with QGIS usinga the same GDAL WARP function.

I looked the MW source code and I can’t explain what is happening.

Plense, can anyone help me.

1 post - 1 participant

Read full topic

  img.TransparencyColor := 0;
  IMG.ImageColorScheme := FallLeaves;   <--- this line not work is read only?
  img.UseTransparencyColor := true;
  Map.Redraw;

…

I observed the IMG.ImageColorScheme := FallLeaves not change. Does someone could help me please or give a idea how do it in C?

Thanks

2 posts - 1 participant

Read full topic

I’m trying to create a surface from a terrain GRID using MW and GDAL.
I found the TIN class in NW but there’s no example code that I can start from, and also I found that exists GDALSurface class in GDAL that have a lot of class that I could use.
Does anyone knows if MW have implemented the class GDALSurface or can I use that calling OGR2OGR ou similar?

Thanks,

1 post - 1 participant

Read full topic

4 posts - 3 participants

Read full topic

2 posts - 2 participants

Read full topic

When calling the AddPoint function it appears a new part is being added to the shape. I asked about this several years ago and I believe it has to do with Digitizing but there is very little documentation on that. Is there a reason this can’t simply add a new point to the shape?

Thanks
ToddH

4 posts - 2 participants

Read full topic

2 posts - 2 participants

Read full topic

Any ideas on how to solve this ?
George

4 posts - 2 participants

Read full topic

I was wondering if anyone has managed to successfully use Sentinel 2 images (from EOX – see https://s2maps.eu/ or any other source) as a custom tile provider in mapwingis? I have been successful in displaying them in a web browser, but unable to add them as a tile provider for mapwingis, either as WMS and WMST. The getcapabilities xml is available for these services here:

• WMS: EOX::Maps
• WMST: https://tiles.maps.eox.at/wmts/1.0.0/WMTSCapabilities.xml

And the corresponding URLs (that work in a browser) are:

• WMS: https://tiles.maps.eox.at/wms?SERVICE=WMS&VERSION=1.1.1&REQUEST=GetMap&LAYERS=s2cloudless-2023_3857&STYLES=&SRS=EPSG:900913&BBOX=-20037508.342789,-20037508.342789,20037508.342789,20037508.342789&WIDTH=256&HEIGHT=256&FORMAT=image/jpeg
• WMST: http://tiles.maps.eox.at/wmts/1.0.0/s2cloudless-2023_3857/default/GoogleMapsCompatible/0/0/0.jpg

The code I am using (Visual Basic in Visual Studio 2010) is:

WMS:

Dim copurl As String

copurl = “https://tiles.maps.eox.at/wms?SERVICE=WMS&VERSION=1.1.1&REQUEST=GetMap&LAYERS=s2cloudless-2023_3857&STYLES=&SRS=EPSG:900913&BBOX=-20037508.342789,-20037508.342789,20037508.342789,20037508.342789&WIDTH=256&HEIGHT=256&FORMAT=image/jpeg”

AxMap1.Tiles.Providers.Add(tkTileProvider.ProviderCustom, “EOX Sentinel-2 WMS”, copurl, tkTileProjection.SphericalMercator, , , “Copernicus Sentinel-2 imagery, EOX”)

AxMap1.Tiles.ProviderId = tkTileProvider.ProviderCustom

AxMap1.Redraw3(tkRedrawType.RedrawSkipAllLayers, True)

WMST:

Dim copurl As String

copurl = “http://tiles.maps.eox.at/wmts/1.0.0/s2cloudless-2023_3857/default/GoogleMapsCompatible/0/0/0.jpg”

AxMap1.Tiles.Providers.Add(tkTileProvider.ProviderCustom, “EOX Sentinel-2 WMST”, copurl, tkTileProjection.SphericalMercator, , , “Copernicus Sentinel-2 imagery, EOX”)

AxMap1.Tiles.ProviderId = tkTileProvider.ProviderCustom

AxMap1.Redraw3(tkRedrawType.RedrawSkipAllLayers, True)

In both instances, the code fails to add the provider.

Please let me know if you have successfully achieved this, if so how, and/or if my code needs adjusting; and/or whether this is possible or not.

Thanks in advance.

John

1 post - 1 participant

Read full topic

5 posts - 2 participants

Read full topic

1. there is some “autoZoom” when adding a new layer that I want to get rid as there is .ZoomToLayer() if needed
2. somehow I get “0” as layerHandle for every layer I add. At the moment I first load a .shp from file, then some polygons from database, followed by a point from given coordinates; all returning with 0 for layerHandle on addLayer().

please advise

2 posts - 1 participant

Read full topic

I kinldy request assistance, The TileProvider is 0 in Delphi 12 CE with no hosting servcies. I installed the 32 exe as my current delphi project will run on 32 bit. my pc is 64 bit though. I tried the 64 bit, bu i got a 1% error when loading the component from Tool pallete.

Can someone please do an installation video or write up a “how to install on delphi”. I installed the latest version which comes with the fixed MapWinGIS_TLB.pas file, i even replaced with the fixed one manually. At first I got the “Results” undeclared, but managed to add the Aresult.

This is a long topic but please assiss. I already have a programm in delphi that only needs the Map service.

Please also do a step-by-step on how to get it into delphi.

Thank you in advance

1 post - 1 participant

Read full topic

I’m lookink for a GDAL function “gdallocationinfo” in MW and I didn’t find it.
(gdallocationinfo — GDAL documentation )

Does anyone know if it’s implemented in MW?
Thanks.

1 post - 1 participant

Read full topic

System.Windows.Forms.AxHost.InvalidActiveXStateException: ‘Une exception de type ‘System.Windows.Forms.AxHost+InvalidActiveXStateException’ a été levée.’

The line code n°133 where the error occurs is : axMap1.LockWindow(tkLockMode.lmLock);
It is within a procedure to “AddALayer”

Here are the details:
System.Windows.Forms.AxHost.InvalidActiveXStateException
HResult=0x80131500
Message=Une exception de type ‘System.Windows.Forms.AxHost+InvalidActiveXStateException’ a été levée.
Source=AxInterop.MapWinGIS
StackTrace:
at AxMapWinGIS.AxMap.LockWindow(tkLockMode lockMode)
at MyLib_SIG.Layer_AddOneFromPath(AxMap axMap1, ListView listLayer, String myFilePath, Boolean PathRel, Boolean Exit_OK, Boolean Exit_Msg) in C:\Users\cdela\Inexis\001 Logiciel\05 CSharp\04 MyLibrary\MyLibrary\MyLib_SIG.cs:line 133

Thank you in advance for your help.
Best regards,

16 posts - 3 participants

Read full topic

12 posts - 3 participants

Read full topic

1 post - 1 participant

Read full topic

1 post - 1 participant

Read full topic

1 post - 1 participant

Read full topic

Is the MapWinGIS 5.3 reference to stdole.dll hard coded to a particular version ? It seems to be 7.033 and is causing issues for us with other things that need a newer version, so I was just hoping you could confirm.

Thanks,

Rob

1 post - 1 participant

Read full topic

procedure CreateLineShapeFile;
var
Shapefile: IShapefile;
Line: IShape;
LinePart: IShape;
Point: IPoint;
ErrorCode: Integer;
FilePath: String;
begin
ErrorCode := 0;
Shapefile := CoShapefile.Create;
Shapefile.CreateNew(‘D:\LineShapeFile.shp’, SHP_POLYLINE);
if ErrorCode <> 0 then
begin
ShowMessage('Error creating shapefile: ’ + IntToStr(ErrorCode));
Exit;
end;
Line := CoShape.Create;
Point := CoPoint.Create;
Point.x := 10; // X coordinate
Point.y := 20; // Y coordinate
Line.AddPoint(Point.x,Point.y);
Point.x := 15; // Adjust for more points
Point.y := 29;
Line.AddPoint(Point.x,Point.y);
Point.x := 18;
Point.y := 25;
Line.AddPoint(Point.x,Point.y);
Shapefile.EditAddShape(Line);
if ErrorCode <> 0 then
begin
ShowMessage('Error adding shape: ’ + IntToStr(ErrorCode));
Exit;
end;
Shapefile.SaveAs(‘D:\LineShapeFile.shp’,Nil);
ShowMessage(‘Line shapefile created successfully.’);
end;

Please guide me to do this
thanks

1 post - 1 participant

Read full topic

I am attempting to set up and use the drag feature. At the start, I have configured the control as follows:

CursorMode = tkCursorMode_cmIdentify
SendMouseDown = .T.
SendMouseUp = .T.

The code to set up and initiate the drag function is in the MouseDown method. Once I have the data set up, I issue a This.Drag(1) command to start the drag function by clicking and holding the right mouse button over the source object. (More on that in a moment) I then drag the mouse over to a target object on another form and then drop on it. The function works and the data is processed as expected. Here are my issues.

The first issue is, for some reason, the mousedown funtion will not recognize a left mouse click. After scrathcing my head for an hour, I placed some code in the event to capture and report the “button” parameter value. When I use a right click, I get a report that the value is “2” which is what I expected. When I use a left click, nothing! Not even a report. The left click doesn’t even fire the event. I swapped out my mouse with another mouse and still nothing on the left click. I tested both devices in another application and the left clicks did fire the mousedown event. So the devices aren’t the problem.

The second problem is that the MouseUp event never fires. I placed “This.Drag(0)” in this event to terminate the drag once I’ve reached the target object and released the mouse button. I’ve tested this with both left and right mouse clicks and the MouseUp event never fires. I doubled checked the SendMouseUp to make sure that it was set to true and it was. As a result, once I reach the target object and release the mouse button, nothing happens and the drag icon remains. If I then click either mouse buttong, the task completes and processes the data as I want it to do.

What am I not doing correctly? Or is there an issue with the OCX?

Thanks!

1 post - 1 participant

Read full topic

1 post - 1 participant

Read full topic

The LineInterpolatePoint return a point at the specified distance (or percentage) along the specified line. The parameters are:

• sourceLine: Polyline shape to traverse
• startPoint: Starting point along ‘sourceLine’ (specify Point[0] for beginning of line)
• distance Distance along line (or percentage of line length; if a percentage, specify a number between 0.0 and 1.0)
• normalized: Optional value; if FALSE, ‘distance’ is actual distance; if TRUE, distance is percentage of length; defaults to FALSE

When I try to get a point at 50% of the total length of sourceLine (MyShapeIN), I call the function like this:

• LineInterpolatePoint (MyShapeIN, MyShapeIN.point[0], 0.50, TRUE);

As result, I got the same result point using the last parameter(normalized) as TRUE or FALSE. So I think there is some error in the code or the parameter(normalized) doesn’t affect the result.

Regards.

3 posts - 2 participants

Read full topic