New to Telerik UI for WinForms? Download free 30-day trial

How to Create Map Image Silently

Environment

Product Version Product Author
2021.2.615 RadMap for WinForms Desislava Yordanova

Description

Learn how to export RadMap to an image silently from a Console application.

create-map-image-silently

Solution

The required assemblies that should be referred:

  • System.Windows.Forms.dll
  • System.Runtime.Serialization
  • System.Drawing
  • Telerik.WinControls
  • Telerik.WinControls.RadMap
  • Telerik.WinControls.UI
  • Telerik.WinControls.UI

RadMap uses a MapTileDownloader which internally uses a WebClient calling its DownloadDataAsync method. It seems that in a console application the WebClient.DownloadDataCompleted event is not fired which is used in the MapTileDownloader. That is why the image that is created from the map is blank. That is why this example shows how to use the DownloadString method instead:


class Program
{
    static string bingKey = "your Bing key";

    static void Main(string[] args)
    {

        RadMap radMap1 = new RadMap();
        radMap1.CreateControl();
        CustomBingProvider bingProvider = new CustomBingProvider();
        bingProvider.UseSession = false;
        bingProvider.BingKey = bingKey;
        bingProvider.TileDownloader = new CustomTileDownLoader(bingProvider);
        radMap1.Providers.Add(bingProvider);           
        bingProvider.EnableCaching = false;
        radMap1.MapElement.Providers.Add(bingProvider);
        radMap1.ShowNavigationBar = true;
        radMap1.ShowSearchBar = true;
        radMap1.ShowScaleIndicator = true;
        radMap1.ShowLegend = true;

        radMap1.MapElement.LegendElement.TitleElement.Text = "NBA";
        radMap1.MapElement.LegendElement.SubtitleElement.Text = "Conferences";
        radMap1.MapElement.LegendElement.Orientation = Orientation.Horizontal;
        radMap1.MapElement.LegendElement.ItemStackElement.Children.Add(new MapLegendItemElement("Western", Color.Red));
        radMap1.MapElement.LegendElement.ItemStackElement.Children.Add(new MapLegendItemElement("Eastern", Color.Blue));

        radMap1.LoadElementTree(new Size(1000, 1000));
        radMap1.Providers[0].Initialize();
        radMap1.MapElement.LegendElement.Initialize();

        bingProvider.ViewportChanged(radMap1.MapElement, ViewportChangeAction.All); 
        radMap1.MapElement.InvalidateMeasure(true);
        radMap1.MapElement.UpdateLayout(); 

        var s = radMap1.MapElement.LegendElement.DesiredSize;

        Bitmap b = radMap1.MapElement.GetAsBitmap(Brushes.Red, 0, new SizeF(1, 1));
        b.Save(@"..\..\MapTest.png");
        Process.Start(@"..\..\MapTest.png");
    }

    public class CustomBingProvider : BingRestMapProvider
    {
        private ImageryMetadata tileMetadataInfo;
        private const string ImageryMetadataServiceUri = "https://dev.virtualearth.net/REST/v1/Imagery/Metadata/{set}?output=json&key={key}&c={culture}&dir={directory}";
        protected override void InitializeImageryService()
        {
            this.tileMetadataInfo = null;

            try
            {
                string uriString = ImageryMetadataServiceUri;
                uriString = uriString.Replace("{set}", this.ImagerySet.ToString());
                uriString = uriString.Replace("{key}", string.IsNullOrEmpty(this.SessionId) ? this.BingKey : this.SessionId);
                uriString = uriString.Replace("{culture}", this.Culture.ToString());
                uriString = uriString.Replace("{directory}", "0");

                WebClient client = new WebClient();
                //client.DownloadStringCompleted += this.InitializeImageryMetadataCompleted;
                //client.DownloadStringAsync(new Uri(uriString, UriKind.Absolute));
                string result = client.DownloadString(new Uri(uriString, UriKind.Absolute));
                InitializeImageryMetadataCompleted(client, result);
            }
            catch (Exception ex)
            {
                throw new Exception(string.Format("Imagery Service Exception: {0}", ex.Message));
            }
        }

        protected virtual void InitializeImageryMetadataCompleted(object sender, string result)
        {
            this.tileMetadataInfo = null;
            WebClient client = sender as WebClient;
            // client.DownloadStringCompleted -= InitializeImageryMetadataCompleted;
            try
            {
#if NET2
                using (StringReader reader = new StringReader(result))
                {
                    JsonSerializer serializer = new JsonSerializer();
                    ImageryMetadataResponse response = serializer.Deserialize<ImageryMetadataResponse>(new JsonTextReader(reader));

                    if (response != null && response.ResourceSets.Length > 0 && response.ResourceSets[0].Resources.Length > 0)
                    {
                        this.tileMetadataInfo = response.ResourceSets[0].Resources[0];

                        if (this.tileMetadataInfo.ImageUrl.StartsWith("http://") && this.ImagerySet == ImagerySet.OrdnanceSurvey)
                        {
                            this.tileMetadataInfo.ImageUrl = this.tileMetadataInfo.ImageUrl.Replace("http://", "https://");
                        }

                        this.tileSize = new Size(int.Parse(this.tileMetadataInfo.ImageWidth), int.Parse(this.tileMetadataInfo.ImageHeight));
                        this.MinZoomLevel = tileMetadataInfo.ZoomMin;
                        this.MaxZoomLevel = tileMetadataInfo.ZoomMax;
                    }
                }
#else
                using (MemoryStream stream = new MemoryStream(Encoding.UTF8.GetBytes(result)))
                {
                    DataContractJsonSerializer serializer = new DataContractJsonSerializer(typeof(ImageryMetadataResponse));
                    ImageryMetadataResponse response = serializer.ReadObject(stream) as ImageryMetadataResponse;

                    if (response != null && response.ResourceSets.Length > 0 && response.ResourceSets[0].Resources.Length > 0)
                    {
                        this.tileMetadataInfo = response.ResourceSets[0].Resources[0];
                        FieldInfo fi = typeof(BingRestMapProvider).GetField("tileSize", BindingFlags.Instance | BindingFlags.NonPublic);
                        fi.SetValue(this, new System.Drawing.Size(int.Parse(this.tileMetadataInfo.ImageWidth), int.Parse(this.tileMetadataInfo.ImageHeight)));
                        //  this.tileSize = new System.Drawing.Size(int.Parse(this.tileMetadataInfo.ImageWidth), int.Parse(this.tileMetadataInfo.ImageHeight));
                        this.MinZoomLevel = tileMetadataInfo.ZoomMin;
                        this.MaxZoomLevel = tileMetadataInfo.ZoomMax;
                    }
                }
#endif
            }
#if NET2
            catch (JsonSerializationException) { }
#else
            catch (SerializationException) { }
#endif

            FieldInfo ti = typeof(BingRestMapProvider).GetField("tileMetadataInfo", BindingFlags.Instance | BindingFlags.NonPublic);
            ti.SetValue(this, this.tileMetadataInfo);
            this.Initialized = true;
            this.OnInitializationComplete(EventArgs.Empty);
        }
    }

    public class CustomTileDownLoader : MapTileDownloader
    {
        private IMapTileProvider provider;

        public CustomTileDownLoader(IMapTileProvider provider)
        {
            this.provider = provider;
        }

        public override void BeginDownloadTile(Uri uri, TileInfo tileInfo)
        {
            lock (this.webClientsPoolLockObject)
            {
                if (!this.webClientsPool.ContainsKey(tileInfo.Quadkey))
                {
                    WebClient client = new WebClient();

                    foreach (string key in this.WebHeaders.AllKeys)
                    {
                        client.Headers.Add(key, this.WebHeaders[key]);
                    }
                    this.webClientsPool.Add(tileInfo.Quadkey, client);
                    this.webRequestCache.Add(tileInfo.Quadkey, uri);
                    //client.DownloadDataCompleted += TileDownloadDataCompleted;
                    //client.DownloadDataAsync(uri, tileInfo);
                    tileInfo.Content = client.DownloadData(uri);
                    if (provider.EnableCaching && provider.CacheProvider != null)
                    {
                        provider.CacheProvider.Save(GetCacheKey(tileInfo.TileX, tileInfo.TileY, tileInfo.ZoomLevel), DateTime.MaxValue, tileInfo.Content);
                    }
                }
            }
        }

        private string GetCacheKey(int tileX, int tileY, int zoomLevel)
        {
            return "Tile_" + tileX + "_" + tileY + "_" + zoomLevel + ".png";
        }
    }
}




Dim bingKey As String = "your Bing key"

Sub Main()
    Dim radMap1 As RadMap = New RadMap()
    radMap1.CreateControl()
    Dim bingProvider As CustomBingProvider = New CustomBingProvider()
    bingProvider.UseSession = False
    bingProvider.BingKey = bingKey
    bingProvider.TileDownloader = New CustomTileDownLoader(bingProvider)
    radMap1.Providers.Add(bingProvider)
    bingProvider.EnableCaching = False

    radMap1.MapElement.Providers.Add(bingProvider)
    radMap1.ShowNavigationBar = True
    radMap1.ShowSearchBar = True
    radMap1.ShowScaleIndicator = True
    radMap1.ShowLegend = True
    radMap1.MapElement.LegendElement.TitleElement.Text = "NBA"
    radMap1.MapElement.LegendElement.SubtitleElement.Text = "Conferences"
    radMap1.MapElement.LegendElement.Orientation = Orientation.Horizontal
    radMap1.MapElement.LegendElement.ItemStackElement.Children.Add(New MapLegendItemElement("Western", Color.Red))
    radMap1.MapElement.LegendElement.ItemStackElement.Children.Add(New MapLegendItemElement("Eastern", Color.Blue))
    radMap1.LoadElementTree(New System.Drawing.Size(1000, 1000))
    radMap1.Providers(0).Initialize()
    radMap1.MapElement.LegendElement.Initialize()
    bingProvider.ViewportChanged(radMap1.MapElement, ViewportChangeAction.All)
    radMap1.MapElement.InvalidateMeasure(True)
    radMap1.MapElement.UpdateLayout()
    Dim s = radMap1.MapElement.LegendElement.DesiredSize
    Dim b As System.Drawing.Bitmap = radMap1.MapElement.GetAsBitmap(Brushes.Red, 0, New SizeF(1, 1))
    b.Save("..\..\MapTest.png")
    Process.Start("..\..\MapTest.png")
End Sub

Public Class CustomBingProvider
    Inherits BingRestMapProvider

    Private tileMetadataInfo As ImageryMetadata
    Private Const ImageryMetadataServiceUri As String = "https://dev.virtualearth.net/REST/v1/Imagery/Metadata/{set}?output=json&key={key}&c={culture}&dir={directory}"

    Protected Overrides Sub InitializeImageryService()
        Me.tileMetadataInfo = Nothing

        Try
            Dim uriString As String = ImageryMetadataServiceUri
            uriString = uriString.Replace("{set}", Me.ImagerySet.ToString())
            uriString = uriString.Replace("{key}", If(String.IsNullOrEmpty(Me.SessionId), Me.BingKey, Me.SessionId))
            uriString = uriString.Replace("{culture}", Me.Culture.ToString())
            uriString = uriString.Replace("{directory}", "0")
            Dim client As WebClient = New WebClient()
            Dim result As String = client.DownloadString(New Uri(uriString, UriKind.Absolute))
            InitializeImageryMetadataCompleted(client, result)
        Catch ex As Exception
            Throw New Exception(String.Format("Imagery Service Exception: {0}", ex.Message))
        End Try
    End Sub

    Protected Overridable Sub InitializeImageryMetadataCompleted(ByVal sender As Object, ByVal result As String)
        Me.tileMetadataInfo = Nothing
        Dim client As WebClient = TryCast(sender, WebClient)

        Try

            Using stream As MemoryStream = New MemoryStream(Encoding.UTF8.GetBytes(result))
                Dim serializer As DataContractJsonSerializer = New DataContractJsonSerializer(GetType(ImageryMetadataResponse))
                Dim response As ImageryMetadataResponse = TryCast(serializer.ReadObject(stream), ImageryMetadataResponse)

                If response IsNot Nothing AndAlso response.ResourceSets.Length > 0 AndAlso response.ResourceSets(0).Resources.Length > 0 Then
                    Me.tileMetadataInfo = response.ResourceSets(0).Resources(0)
                    Dim fi As FieldInfo = GetType(BingRestMapProvider).GetField("tileSize", BindingFlags.Instance Or BindingFlags.NonPublic)
                    fi.SetValue(Me, New System.Drawing.Size(Integer.Parse(Me.tileMetadataInfo.ImageWidth), Integer.Parse(Me.tileMetadataInfo.ImageHeight)))
                    Me.MinZoomLevel = tileMetadataInfo.ZoomMin
                    Me.MaxZoomLevel = tileMetadataInfo.ZoomMax
                End If
            End Using

        Catch __unusedSerializationException1__ As SerializationException
        End Try

        Dim ti As FieldInfo = GetType(BingRestMapProvider).GetField("tileMetadataInfo", BindingFlags.Instance Or BindingFlags.NonPublic)
        ti.SetValue(Me, Me.tileMetadataInfo)
        Me.Initialized = True
        Me.OnInitializationComplete(EventArgs.Empty)
    End Sub
End Class

Public Class CustomTileDownLoader
    Inherits MapTileDownloader

    Private provider As IMapTileProvider

    Public Sub New(ByVal provider As IMapTileProvider)
        Me.provider = provider
    End Sub

    Public Overrides Sub BeginDownloadTile(ByVal uri As Uri, ByVal tileInfo As TileInfo)
        SyncLock Me.webClientsPoolLockObject

            If Not Me.webClientsPool.ContainsKey(tileInfo.Quadkey) Then
                Dim client As WebClient = New WebClient()

                For Each key As String In Me.WebHeaders.AllKeys
                    client.Headers.Add(key, Me.WebHeaders(key))
                Next

                Me.webClientsPool.Add(tileInfo.Quadkey, client)
                Me.webRequestCache.Add(tileInfo.Quadkey, uri)
                tileInfo.Content = client.DownloadData(uri)

                If provider.EnableCaching AndAlso provider.CacheProvider IsNot Nothing Then
                    provider.CacheProvider.Save(GetCacheKey(tileInfo.TileX, tileInfo.TileY, tileInfo.ZoomLevel), DateTime.MaxValue, tileInfo.Content)
                End If
            End If
        End SyncLock
    End Sub

    Private Function GetCacheKey(ByVal tileX As Integer, ByVal tileY As Integer, ByVal zoomLevel As Integer) As String
        Return "Tile_" & tileX & "_" & tileY & "_" & zoomLevel & ".png"
    End Function
End Class

Make sure that the following using/imports are added:


using System;
using System.Diagnostics;
using System.Drawing;
using System.IO;
using System.Linq;
using System.Net;
using System.Reflection;
using System.Runtime.Serialization;
using System.Runtime.Serialization.Json;
using System.Text;
using System.Windows.Forms;
using Telerik.WinControls.UI;
using Telerik.WinControls.UI.Map.Bing;


Imports Telerik.WinControls.UI.Map.Bing
Imports Telerik.WinControls.UI
Imports System.Net
Imports System.Drawing
Imports System.Windows.Forms
Imports System.IO
Imports System.Text
Imports System.Reflection
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Json

See Also

In this article
Not finding the help you need? Improve this article