[XE8] TWebBrowser , fuite de mémoire ?

**SergioMaster** · 29/08/2015, 09h08

Bonjour,

après avoir tenté d'utiliser TMapview (en vain) :
- je n'arrive pas à comprendre si ce n'est que pour les mobiles ou pas

- je ne sais pas comment faire quant on n'a ni latitude ni longitude

je me suis tourné vers un TWebBrowser en chargeant des pages 'types' pour les différents moteurs google,bing,openStreet,~~yahoo~~

mon test affiche parfaitement la position que je cherche mais en fermant l'application j'ai des fuites de mémoires !
même un simple test avec page blanche (about:blank), ou aucune connexion me provoque la fuite !

---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:

13 - 20 bytes: TEventDispatch x 1
21 - 28 bytes: TDelegatedOleControl.Create$94$ActRec x 1
29 - 36 bytes: TControlSize x 1
37 - 44 bytes: TPosition x 4
45 - 52 bytes: TBounds x 3
477 - 524 bytes: TOleWebBrowser x 1
877 - 956 bytes: TWindowsWebBrowserService x 1

comme c'était une fiche d'une application , j'ai fait un test au plus simple (une forme, un webbrowser, aucune action) résultat même fuites !
comment y pourvoir ?
nb. il semblerai que ce bug soit corrigé dans la prochaine version mais en attendant ????

**Thierry Laborde** · 30/08/2015, 11h38

Envoyé par SergioMaster

après avoir tenté d'utiliser TMapview (en vain) :
- je n'arrive pas à comprendre si ce n'est que pour les mobiles ou pas

Bonjour,

Je confirme que le composant MapView est dédié aux applications mobiles.

**tourlourou** · 30/08/2015, 12h04

Quand on n'a pas les coordonnées, il faut les demander à part, je pense : http://www.itouchmap.com/latlong.html par exemple, à partir d'une adresse, mais sûrement aussi dans l'API Google Maps.

**SergioMaster** · 30/08/2015, 12h13

Envoyé par Thierry Laborde

Bonjour,

Je confirme que le composant MapView est dédié aux applications mobiles.

je m'en doutais un peu , dommage ...

voici comment je m'en suis sorti avec Google* (je me demande si cela fonctionnerai sur mobile aussi bien

)
(* je pense qu'il y a encore un peu de déchet dans le HTML)

j'espère pouvoir en faire autant avec BingMaps et OpenStreet (pour l'instant il me faut une position connue pour ces deux derniers)
et si j'arrivais à obtenir l'itinéraire en prime ce serait le top

Défi aux fortiches du HTML ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
const
GoogleMapsPage: String =
'<html> '+
'<head> '+
'<meta name="viewport" content="initial-scale=1.0, user-scalable=yes" /> '+
'<script type="text/javascript" src="http://maps.google.com/maps/api/js?sensor=true"></script> '+
'<script type="text/javascript"> '+
'  var map;'+
'  function initialize() { '+
// partie pour se positionner en fonction d'une adresse
'    geocoder = new google.maps.Geocoder();'+
'    geocoder.geocode( { ''address'': [Adresse]}, function(results, status) {'+
'        map.setCenter(results[0].geometry.location);'+
'        var marker = new google.maps.Marker({map: map,position: results[0].geometry.location});'+
'        });'+
// partie pour mettre un marqueur en fonction d'une latitude longitude récupérée
'    var latlng = new google.maps.LatLng([Lat],[Lng]); '+
'    var myOptions = { '+
'      zoom: 12, '+
'      center: latlng, '+
'      mapTypeId: google.maps.MapTypeId.[Type] '+
'    }; '+
// affichage de la map 
'    map = new google.maps.Map(document.getElementById("map_canvas"), myOptions); '+
'    var marker = new google.maps.Marker({'+
'      position: latlng, '+
'      title: "[Title]", '+
'      map: map '+
'  });'+
'  } '+
''+'</script> '+
'</head> '+
'<body onload="initialize()"> '+
'  <div id="map_canvas" style="width:100%; height:100%"></div> '+
'</body>'+
'</html>';
.....
// Utilisation 
procedure TFormCarte.Button1Click(Sender: TObject);
var MapStr : String;
    function ReplaceTag(const PageStr,Tag,NewValue:string):String;
    begin
       Result:=StringReplace(PageStr,Tag,NewValue,[rfReplaceAll]);
    end;
begin
  MapStr:=OpenStreetMapsPage;
  MapStr:=ReplaceTag(MapStr,'[Adresse]',QuotedStr('14 rue du moulinier 44115 HAUTE GOULAINE')); // test par adresse
  // test position connue  
  MapStr:=ReplaceTag(MapStr,'[Lat]','45.8518378');
  MapStr:=ReplaceTag(MapStr,'[Lng]','1.1587193');
  MapStr:=ReplaceTag(MapStr,'[Title]','Danse Azur SARL');    
  MapStr:=ReplaceTag(MapStr,'[Type]','HYBRID');
  WebBrowser1.LoadFromStrings(MapStr,'');
end;

reste que j'ai toujours ma fuite de mémoire !

**SergioMaster** · 07/09/2015, 08h48

Bonjour,

pour la fuite mémoire, il s'agissait d'un bug répertorié et corrigé avec la version Delphi 10 (que j'ai récupéré et installé après quelques déboires avec ma boite mail <= ça c'est au cas où Thierry Laborde reviendrait faire un tour sur ce post

)

@tourlourou le bout de code que j'ai posté permet d'obtenir longitude et latitude (lignes 17 à 21) et ce sans même de clé pour l'API

le weekend prochain je pense tester pour bingmap (là il faut une clé, c'est la constatation de ce dernier samedi
j'aimerai aussi intégré la possibilité de OpenStreet mais, comme tout ce qui est plus libre de droits c'est aussi beaucoup plus complexe (affaires à suivre)
et cerises sur le gâteau si j'arrive à inclure le calcul d'itinéraire et la localisation de la machine (les mobiles ont la fonction géolocalisation mais pas forcément les PC et les résultats proposé par windows 10 quand on partage sa localisation sont plus qu’approximatifs lors de mes test : au bas mot un rayon de 100 km !)

en tout cas mon problème principale (fuite de mémoire) est résolu en changeant de version, je ne crois pas hélas qu'il y ait un patch pour la version XE8 à ce sujet, sauf à aller fouiller dans les sources .....

[XE8] TWebBrowser , fuite de mémoire ? [Windows]

Composants FMX Delphi

Discussions similaires

Partager

Partager