So klappt’s: Mappoint-Bilder mithilfe von VB.NET extrahieren

[section_title title=So klappt's: Mappoint-Bilder mithilfe von VB.NET extrahieren]Microsofts Mappoint ist eine sehr gute Software mit einer Vielzahl von Funktionen, die weit über das hinausgehen, was webbasierte Konkurrenzprodukte zu bieten haben. Dies gilt sogar für die Onlineversion des Programms. Die Fähigkeit, beliebige Daten mit Mappoints integrierten Datensätzen zu kombinieren (zum Beispiel mit demografischen Daten des US-Statistikamtes), ermöglicht dem Entwickler die Präsentation von Daten, die für Marketingabteilungen, Vertriebsmitarbeiter, Manager, Entscheidungsträger und andere Datenkonsumenten nützlich ist. Ein Schwachpunkt der Mappoint-Software ist, dass keine Abbildungen von Webseiten, keine Präsentation und keine andere Software hinzugefügt werden kann. Leider bietet Microsoft Mappoint auch keine Möglichkeit, ein hochauflösendes Bild zu exportieren, selbst wenn es als eingebettetes Active-X-Steuerelement ausgeführt wird und man von einem anderen Windows-Programm per Programmcode darauf zugreift. Daher soll hier gezeigt werden, wie dieses Ziel trotzdem zu erreichen ist - nämlich mit schlichtem, verwaltetem VB.NET-Code und Microsoft-Office-Technologien. Zum Einsatz kommen Microsoft Mappoint, Microsoft Office Document Imaging sowie die Fähigkeiten des .NET-Frameworks zur Grafikerstellung und Prozesssteuerung. Die Herausforderung Die Schwierigkeit, Mappoint zur Herausgabe einer Bilddatei zu bewegen, scheint auf einem kolossalen Fehler von Seiten Microsofts zu beruhen. Ob absichtlich oder aus Versehen: Das Mappoint-Active-X-Steuerelement bietet einfach keine Funktion "Als Bild speichern". Die nächstliegende Alternative bestünde darin, das Steuerelement anzuweisen, die Karte als HTML-Seite zu speichern, die Bilddatei aus der resultierenden Verzeichnisstruktur zu entnehmen und den Rest einfach zu löschen. Das ist eine durchaus akzeptable Lösung - vorausgesetzt, dass einem eine niedrig aufgelöste GIF-Datei mit 256 Farben ausreicht. Eine weitere gangbare Lösung ist es, den Inhalt des Mappoint-Active-X-Steuerelements in die Zwischenablage zu kopieren. Leider bringt sie einige Probleme mit sich: Einmal ist eine vom Benutzer unbemerkte Veränderung der Zwischenablage ein schwerer Verstoß gegen Usability-Prinzipien. Angenommen, die Software führt viele solcher Bildspeicherungen durch und der Benutzer fängt an, mit einem Word-Dokument zu arbeiten. Dabei schneidet er zum Beispiel einen wichtigen Absatz aus, um ihn woanders wieder einzufügen. Doch beim Versuch, den Absatz einzufügen, erhält er stattdessen eine Karte. Das ist nicht besonders benutzerfreundlich. Noch schlimmer aber ist, dass diese Technik sich als äußerst unzuverlässig erweist, wenn sie mehrfach kurz hintereinander angewendet wird. Daher ist eine bessere Lösung gefragt. [section_title title=Die Lösung]Die Lösung für dieses Problem findet sich in einem wenig bekannten Teil des Microsoft-Office-Systems: Microsoft Office Document Imaging (MODI). MODI installiert sich automatisch als Bestandteil des Microsoft-Office-2003-Systems. Es fungiert wie ein installierter Drucker, so dass man damit von jeder Software aus drucken kann. Es verwendet ein eigenes Dokumentenformat, das ähnlich wie PDF funktioniert. Die Software kann Dokumente außerdem als TIFF-Dateien speichern. Die MODI-Funktionalität ist der Schlüssel zur Lösung. Indem man über den MODI-Drucker druckt und dann die Kontrolle über den MODI-Prozess übernimmt, können Bilder mit extrem hoher Auflösung und großer Farbtiefe in jedem gewünschten Format abgespeichert werden. Gerade dieser letzte Punkt ist wichtig, denn TIFF-Dateien sind wegen ihrer verlustfreien Komprimierung häufig extrem groß. Nicht jeder Benutzer verfügt über Software zum Anzeigen und Bearbeiten von TIFF-Dateien, und viele Programme können mit dem Format nichts anfangen. Benutzer sind häufig gezwungen, eine TIFF-Datei in einem Bildbearbeitungsprogramm zu öffnen, das gesamte Bild zu markieren und dann per Copy-and-Paste in die gewünschte Anwendung einzufügen. Wenn man das Bild in jedem gewünschten Format abspeichern kann, gibt man die Kontrolle wieder an den Endbenutzer zurück. Nachteile und Schwierigkeiten Der Hauptnachteil dieser Technik besteht darin, dass man den MODI-Prozess für jedes gespeicherte Bild starten und stoppen muss. Darüber hinaus startet das Drucken über den MODI-Drucker MODI zwar, schließt es aber nicht wieder automatisch. Um den Code benutzerfreundlicher zu machen, muss daher auf die Methoden des .NET Frameworks zur Verwaltung von Prozessen zurückgegriffen werden, um MODI nach der Benutzung auch wieder zu schließen. Der Code Die folgende Liste fasst alle Schritte zusammen, die man durchführen muss, um das Bild aus Mappoint herauszuholen und im gewünschten Format abzuspeichern: Mit dem MODI-Druckertreiber drucken. MODI kontrollieren, um das MODI-Dokument ins TIFF-Format zu konvertieren. MODI schließen. Das TIFF-Dokument öffnen und auf die gewünschte Größe skalieren. Die Datei unter dem gewünschten Dateinamen und im gewünschten Format speichern (hier wird von einem Standard-Bitmapformat ausgegangen). MODI-Dokument und TIFF-Datei löschen. Die folgenden Seiten zeigen den Code, mit dem dies erreicht wird. Das Einzige, worauf man achten muss, ist, dass die Variable TempFiles eine Instanz einer selbst geschriebenen Klasse ist, die temporäre Dateien verwaltet, und anderswo in der Anwendung instantiiert wird. Der Code für diese Klasse ist ebenfalls angegeben. [section_title title=Hauptfunktion] Private Sub SaveToImage(ByVal MappointControlMapToSave As AxMapPoint.AxMappointControl, ByVal SaveImageFormat As System.Drawing.Imaging.ImageFormat, ByVal FileName As String, ByVal ImageWidth As Integer, ByVal ImageHeight As Integer) Dim BitmapSaveToImage As System.Drawing.Bitmap Dim BitmapOriginalImage As System.Drawing.Bitmap Dim StringTempMDIImageName As String Dim StringTempTIFFImageName As String Dim MODIImageConverter As MODI.Document Dim StringOriginalActivePrinter As String StringTempMDIImageName = TempFiles.AddExtension("mdi") StringTempTIFFImageName = TempFiles.AddExtension("tiff") MODIImageConverter = New MODI.Document StringOriginalActivePrinter = MappointControlMapToSave.ActivePrinter MappointControlMapToSave.ActivePrinter = "Microsoft Office Document Image Writer" MappointControlMapToSave.ActiveMap.PrintOut(StringTempMDIImageName, "", 1, MapPoint.GeoPrintArea.geoPrintFullPage, MapPoint.GeoPrintQuality.geoPrintQualityPresentation, MapPoint.GeoPrintOrientation.geoPrintAuto, False, False, False, False) KillTask("MSPVIEW", 120) MappointControlMapToSave.ActivePrinter = StringOriginalActivePrinter MODIImageConverter.Create(StringTempMDIImageName) MODIImageConverter.SaveAs(StringTempTIFFImageName, MODI.MiFILE_FORMAT.miFILE_FORMAT_TIFF_LOSSLESS, MODI.MiCOMP_LEVEL.miCOMP_LEVEL_LOW) MODIImageConverter.Close() BitmapOriginalImage = New Bitmap(StringTempTIFFImageName) BitmapSaveToImage = ScaleImage(BitmapOriginalImage, ImageWidth, ImageHeight) BitmapSaveToImage.Save(FileName, SaveImageFormat) MappointControlMapToSave = Nothing BitmapSaveToImage = Nothing BitmapOriginalImage = Nothing MODIImageConverter = Nothing End Sub Prozesse beenden Private Sub KillTask(ByVal TaskName As String, Optional ByVal Delay As Integer = 0) Dim Processes() As Process Dim ProcessTemp As Process Dim StartTime As DateTime = Now Dim IntegerCloseAttempts As Integer Processes = System.Diagnostics.Process.GetProcessesByName(TaskName) Do Until StartTime.AddSeconds(Delay) 0 Processes = System.Diagnostics.Process.GetProcessesByName(TaskName) Loop IntegerCloseAttempts = 0 While Processes.GetLength(0) > 0 ProcessTemp = Processes(0) ProcessTemp.CloseMainWindow() ProcessTemp.WaitForExit(1000) ProcessTemp.Refresh() If ProcessTemp.HasExited Then IntegerCloseAttempts = 0 Else IntegerCloseAttempts += 1 If IntegerCloseAttempts >= 10 Then ProcessTemp.Kill() End If End If Processes = System.Diagnostics.Process.GetProcessesByName(TaskName) End While Processes = Nothing End Sub Das Bild skalieren Private Function ScaleImage(ByVal BitmapToScale As System.Drawing.Bitmap, ByVal MaximumWidth As Integer, ByVal MaximumHeight As Integer) As System.Drawing.Bitmap Dim BitmapScaledImage As System.Drawing.Bitmap Dim GraphicsImageEditor As System.Drawing.Graphics Dim IntegerNewWidth As Integer Dim IntegerNewHeight As Integer Dim DoubleScaleRatio As Double If BitmapToScale.Width MaximumWidth And BitmapToScale.Height MaximumHeight Then DoubleScaleRatio = MaximumHeight / BitmapToScale.Height IntegerNewWidth = Math.Min(CInt(BitmapToScale.Width * DoubleScaleRatio), MaximumWidth) IntegerNewHeight = MaximumHeight End If If BitmapToScale.Width > MaximumWidth And BitmapToScale.Height > MaximumHeight Then If BitmapToScale.Width / MaximumWidth > BitmapToScale.Height / MaximumHeight Then DoubleScaleRatio = MaximumWidth / BitmapToScale.Width IntegerNewWidth = MaximumWidth IntegerNewHeight = Math.Min(CInt(BitmapToScale.Height * DoubleScaleRatio), MaximumHeight) Else DoubleScaleRatio = MaximumHeight / BitmapToScale.Height IntegerNewWidth = Math.Min(CInt(BitmapToScale.Width * DoubleScaleRatio), MaximumWidth) IntegerNewHeight = MaximumHeight End If End If BitmapScaledImage = New Bitmap(IntegerNewWidth, IntegerNewHeight, Imaging.PixelFormat.Format32bppArgb) GraphicsImageEditor = Graphics.FromImage(BitmapScaledImage) GraphicsImageEditor.DrawImage(BitmapToScale, 0, 0, IntegerNewWidth, IntegerNewHeight) GraphicsImageEditor = Nothing Return BitmapScaledImage End Function Klasse für temporäre Dateien Public Class TempFileCollection Inherits List(Of String) Private sBaseDirectory As String ReadOnly Property BaseDirectory() As String Get Return sBaseDirectory End Get End Property Public Function AddExtension(ByVal Extension As String, ByVal CreateFile As Boolean) As String Dim StringTempFileName As String Dim StringTempFullPath As String Dim RegExNameChecker As System.Text.RegularExpressions.Regex Dim StreamTemp As System.IO.Stream RegExNameChecker = New System.Text.RegularExpressions.Regex("[^0-9a-zA-Z]") StringTempFileName = System.IO.Path.GetFileNameWithoutExtension(System.IO.Path.GetRandomFileName) StringTempFullPath = Me.BaseDirectory + "" + StringTempFileName + "." + Extension While System.IO.File.Exists(StringTempFullPath) Or RegExNameChecker.IsMatch(StringTempFileName) StringTempFileName = System.IO.Path.GetFileNameWithoutExtension(System.IO.Path.GetRandomFileName) StringTempFullPath = Me.BaseDirectory + "" + StringTempFileName + "." + Extension End While If CreateFile Then StreamTemp = System.IO.File.Create(StringTempFullPath) StreamTemp.Close() End If Me.Add(StringTempFullPath) Return StringTempFullPath End Function Public Function AddExtension(ByVal Extension As String) As String Return AddExtension(Extension, True) End Function Public Sub Delete() While Me.Count > 0 If System.IO.File.Exists(Me.Item(0)) Then Try System.IO.File.Delete(Me.Item(0)) Catch ex As Exception End Try End If Me.RemoveAt(0) End While End Sub Public Sub Delete(ByVal TempFileName As String) If System.IO.File.Exists(TempFileName) Then Try System.IO.File.Delete(TempFileName) Catch ex As Exception End Try End If Me.Remove(TempFileName) End Sub Protected Overrides Sub Finalize() Me.Delete() System.IO.Directory.Delete(Me.BaseDirectory) MyBase.Finalize() End Sub Public Sub New(ByVal BaseDirectory As String) MyBase.New() sBaseDirectory = BaseDirectory.TrimEnd(System.IO.Path.DirectorySeparatorChar) If Not System.IO.Directory.Exists(sBaseDirectory) Then System.IO.Directory.CreateDirectory(sBaseDirectory) End If End Sub End Class

So klappt’s: Mappoint-Bilder mithilfe von VB.NET extrahieren

Recent Posts

Top-Malware im November: Infostealer Formbook bleibt Nummer 1

Google schließt schwerwiegende Sicherheitslücken in Chrome

Data Analytics: Dienstleister wachsen zweistellig

Open-Source-Malware auf Rekordniveau

Bayerische KI-Agentur bietet KI-KOMPASS

Cloudflare: Weltweiter Internettraffic wächst 2024 um 17,2 Prozent

So klappt’s: Mappoint-Bilder mithilfe von VB.NET extrahieren

Related Post

Recent Posts

Top-Malware im November: Infostealer Formbook bleibt Nummer 1

Google schließt schwerwiegende Sicherheitslücken in Chrome

Data Analytics: Dienstleister wachsen zweistellig

Open-Source-Malware auf Rekordniveau

Bayerische KI-Agentur bietet KI-KOMPASS

Cloudflare: Weltweiter Internettraffic wächst 2024 um 17,2 Prozent