Christophe E.

two years ago I got this machine, I'm happy with it overall it works well for Delphi but since Delphi 12 I've noticed that the edi lags a bit, otherwise the compilation speed is correct and windows 11 works well, playing large videos can also slow down a bit. https://www.amazon.fr/MINISFORUM-UM350-Ordinateur-Dual-Band-DisplayPort/dp/B09NPZ4L2Q

TECNativeMap is a 100% Delphi mapping component that uses neither browser nor javascript, and is available on all Delphi-supported platforms. Compatible since Delphi 7 for VCL and XE3 for Firemonkey. The main new features of this version MBTiles support with FireDAC (SQLite database for storing map tiles in a single file) 3 new Components ( SwitchTileServer, OpenWeather , Mapillary ) Beginning of support for MapLibre ( MapBox ) vector tiles ( it's still in the prototype stage, and is slow and incomplete ) You can download a trial version for Delphi 12

TECNativeMap is a 100% Delphi mapping component that uses neither browser nor javascript, and is available on all Delphi-supported platforms. Compatible since Delphi 7 for VCL and XE3 for Firemonkey. The main new features of this version HeatMap property added for markers and pois in each group, when HeatMap is displayed, elements continue to react to the mouse (Hint, Click...) even if they are not visible. Two styles are supported for the scale bar, which is integrated directly as a map property A Component property is available to hook Delphi components directly onto the map and manage their stacking, two components exploiting this new feature (zoom bar and legend) are supplied. You can download a trial version for Delphi 12

there may be a package blocking, remove the third-party packages and run the test again to find the culprit.

PingThread1 := TPingThread.Create(Form1, OwnIP,1,31); you also have a leak because you don't release Ping1. And I also think you're blocking the main thread, so you might as well not use a thread.

exact the file was not the right one, I updated the trial

No, I don't think I have previews of all the demos, but you should be able to see most of them on my site. I've updated the trial, and added support for WMS and WFS layers, and there's also the demo source. You can download a trial version for Delphi 11

I've updated my trial version to incorporate the beginnings of WMS support. You can download a trial version for Delphi 11 var WMS_Layer : TECNativeWMS ; WMS_Layer := map.AddWMSLayer('https://maps.dwd.de/geoserver/ows','dwd:Niederschlagsradar','DW'); WMS_Layer.Visible := true; WMS_layer.Legend := true; WMS_layer.LegendOpacity := 75; // 0..100 WMS_layer.LegendPosition := lpRightCenter; // lpTopLeft, lpTopRight, lpBottomLeft, lpBottomRight,lpTopCenter,lpBottomCenter,lpLeftCenter,lpRightCenter For the time being, the only support for the time dimension will be to manually fill in the layer's Time property. WMS_layer.Time := ' 2004-10-12T13:55:20Z '; // ISO 8601 - leave empty for Now It's likely to evolve in the future, as this is more an alpha version than a full version.

A basic way of displaying the radar image is as follows WMS : TECShapeMarker; WMS_Layer : TECNativeLayer; ... procedure TForm6.FormCreate(Sender: TObject); begin WMS_Layer := TECNativeLayer.Create(map,'WMS_dwd.de'); WMS := WMS_Layer.Shapes.AddMarker(0,0); WMS.WaitAnimation := false; WMS_Layer.Observer.OnMapEndMove := MapEndMove; WMS_Layer.Visible := true; end; procedure TForm6.FormDestroy(Sender: TObject); begin WMS_Layer.Free; end; procedure TForm6.MapEndMove(Sender: TObject); begin WMS.filename := 'https://maps.dwd.de/geoserver/dwd/wms?service=WMS&version=1.1.0&request=GetMap&layers=dwd%3ANiederschlagsradar&transparent=TRUE&SRS=EPSG:4326&BBOX='+doubletostr(map.SouthWestLongitude)+'%2C'+doubletostr(map.SouthWestLatitude)+'%2C'+doubletostr(map.NorthEastLongitude)+'%2C'+doubletostr(map.NorthEastLatitude)+'&width='+inttostr(round(map.width))+'&height='+inttostr(round(map.height))+'&styles=&format=image/png'; WMS.SetBounds(map.NorthEastLatitude, map.NorthEastLongitude, map.SouthWestLatitude, map.SouthWestLongitude); WMS.fitBounds := true; end; Basically, we use a marker that fills the entire map and displays the radar image we request each time we change position. The best thing would be to create a specific layer for WMS. I'll probably add this to my todo list, but the principle is the same.

It should be possible, but not as simple as your code, because my component doesn't support WFS and WMS, so I'll have to build the query urls manually. There are all the building blocks needed to create the layers, and geojson is supported, so it's easy to import the data. To display meteo images, you'll need to manually build the url and use overlay tiles. For legends, there's a procedure in my component to obtain a bitmap directly from a url, so it's easy enough to place a TImage on top of the component to display them.

yes, you need to modify TECNativeMap.GeoLocalise.NominatimServeur default value is 'https://nominatim.openstreetmap.org'

you can also fill a stream, for example, with a tile from a database. map.TileServerInfo.getTileStream := getTileStream; ... procedure TForm.getTileStream(const ThreadIndex:integer;var TileStream: TMemoryStream; const x, y, z: integer); begin // load tile XYZ into TileStream end;

TECNativeMap is a 100% Delphi mapping component using neither browser nor javascript. It is available in VCL and FMX for all platforms. Main new features of the last version Google 2DTiles API support Map and routing support from PTV Group Enhanced color filter with dark and bright theme You can download a trial version for Delphi 11

TECNativeMap is a 100% Delphi mapping component using neither browser nor javascript. It is available in VCL and FMX for all platforms. Main new features of the last version ChartLayer allows you to display pie charts or stacked bars AirQuality displays the rate of air pollution in the world VCL support Direct2DCanvas for a better quality display for lines, polygons and pois You can download a trial version for Delphi 11 To celebrate the component's 10th anniversary, the perpetual license is available at the same price as the annual license. To take advantage of this offer, purchase an annual license and include a link to this message in your e-mail. Offer valid only for June 2023!

canvas.FillText(r, 'hello world', False, 1, [], TTextAlign.Center, TTextAlign.Center);