Delphi XE8 Maps Marker Generieren

[hewy]

Lösung gefunden, mit dem Code Beispiel von ‘Alter Mann’, das BitMap Resultat in ein png Format umwandeln und daraus ein Base64 String erstellen.
png := TPngImage.Create;
png.Assign( BMP );
Result := GetBase64Image(png);
Das wird von TMS FNC PAPS so korrekt mit den gewünschten transparenten Flächen angezeigt
Danke nochmals

[TiGü]

Ich raff das mit dem Base64-String nicht.
Warum solltest du diesen Umweg gehen? Schickst du das per Netzwerk irgendwo hin?
In der groben Übersichtsdoku steht nichts von Base64?
https://download.tmssoftware.com/doc...cmaps/#markers

[mytbo]

Zitat von TiGü:

Ich raff das mit dem Base64-String nicht.

Vorweg, ich kenne die Komponente nicht. In der Beschreibung steht als Voraussetzung TTMSFNCWebBrowser. Vermutlich steuert die Komponente Services, wie z.B. Google Maps, die in einem Browser-Fenster laufen. Ein Image in HTML lässt sich mit folgenden Schema füllen:

Code:

Image.URL := 'data:image/'+ MimeType +';base64,' + BinStream.Base64;

Bis bald...
Thomas