Entwickler-Ecke

Sonstiges (Delphi) - Zugriff auf XML in TWebBrowser . . .


Dhakiyah - Mi 30.06.10 16:16
Titel: Zugriff auf XML in TWebBrowser . . .
Hallo!
Ich muss die Geographische Daten einer Adresse herausfinden und in eine DB abspeichern.

Jetzt habe ich folgendes gefunden, was eine XML-Datei im WebBrowser anzeigt:


Delphi-Quelltext 
1:
2:
3:
4:
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://maps.google.com/maps/api/geocode/xml?address=Hauptstrasse+1+51143+Koeln&sensor=true');
end;


Das ganze sieht dann so aus:


XML-Daten 
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:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
 
<GeocodeResponse>
<status>OK</status>
−
<result>
<type>street_address</type>
<formatted_address>Hauptstraße 1, 51143 Köln, Deutschland</formatted_address>
−
<address_component>
<long_name>1</long_name>
<short_name>1</short_name>
<type>street_number</type>
</address_component>
−
<address_component>
<long_name>Hauptstraße</long_name>
<short_name>Hauptstraße</short_name>
<type>route</type>
</address_component>
−
<address_component>
<long_name>Köln</long_name>
<short_name>Köln</short_name>
<type>sublocality</type>
<type>political</type>
</address_component>
−
<address_component>
<long_name>Zündorf</long_name>
<short_name>Zündorf</short_name>
<type>sublocality</type>
<type>political</type>
</address_component>
−
<address_component>
<long_name>Köln</long_name>
<short_name>Köln</short_name>
<type>locality</type>
<type>political</type>
</address_component>
−
<address_component>
<long_name>Köln</long_name>
<short_name>K</short_name>
<type>administrative_area_level_2</type>
<type>political</type>
</address_component>
−
<address_component>
<long_name>Nordrhein-Westfalen</long_name>
<short_name>NRW</short_name>
<type>administrative_area_level_1</type>
<type>political</type>
</address_component>
−
<address_component>
<long_name>Deutschland</long_name>
<short_name>DE</short_name>
<type>country</type>
<type>political</type>
</address_component>
−
<address_component>
<long_name>51143</long_name>
<short_name>51143</short_name>
<type>postal_code</type>
</address_component>
−
<geometry>
−
<location>
<lat>50.8609300</lat>
<lng>7.0338200</lng>
</location>
<location_type>ROOFTOP</location_type>
−
<viewport>
−
<southwest>
<lat>50.8577824</lat>
<lng>7.0306724</lng>
</southwest>
−
<northeast>
<lat>50.8640776</lat>
<lng>7.0369676</lng>
</northeast>
</viewport>
</geometry>
</result>
</GeocodeResponse>


Ich will lediglich an diese

XML-Daten 
1:
2:
3:
4:
5:
6:
 
<geometry>
−
<location>
<lat>50.8609300</lat>
<lng>7.0338200</lng>
</location>


Daten... Wie komme ich an diese Daten? Das ich die entweder in eine Textdatei schreiben kann oder gleich einer Variablen zuweise...

Kann mir jemand helfen? DANKE !!!

Gruß Jasmin


elundril - Mi 30.06.10 16:22
Einerseits könntest du die Daten in eine XML-Komponente laden (die von den Jedis zum Beispiel).

Oder du spielst dich ein bisschen mit PosEx und Copy herum.

lg elundril


Dhakiyah - Mi 30.06.10 16:31
Aber wie?


Delphi-Quelltext 
1:
2:
3:
4:
 
var TestXML : IXMLDocument
...
  WebBrowser1.Navigate('http://maps.google.com/maps/api/geocode/xml?address=Hauptstrasse+1+51143+Koeln&sensor=true');
  myfirstXML...??? := WebBrowser1....???;


bummi - Mi 30.06.10 16:34
statt eine Webbrowsers würde ich per HTTP-Komponente oder ExtActns.TDownloadUrl
zugreifen, in eine Stringlist laden und die interessanten Zeilen auswerten.


Dhakiyah - Mi 30.06.10 16:40
Beispiel?


bummi - Mi 30.06.10 16:53
Ganz Quick and Dirty ohne TempDir uund Fehlerprüfung

Du müsstes es alf Funktion: boolean kapseln
mit (URL:String;var lat,lng:Double)

Delphi-Quelltext 
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:
 
uses ExtActns;

procedure TForm5.Button2Click(Sender: TObject);
var

 i:Integer;
 sl:TStringList;
 IsIntrest:Boolean;
 lat,lng:Double;
begin
 sl:=TStringList.create;
 try
 with TDownLoadURL.Create(nil) do
    begin
    Filename  := 'C:\temp\test.xml';
    URL := 'http://maps.google.com/maps/api/geocode/xml?address=Hauptstrasse+1+51143+Koeln&sensor=true';
       try
      ExecuteTarget(nil);
    except
    end;
    free;
    sl.LoadFromFile('C:\temp\test.xml');
    end;

  IsIntrest := false;
  for I := 0 to sl.Count - 1 do
    begin
      if pos('</location>',sl[i])>0 then IsIntrest := false;
      if IsIntrest then
        begin
           if pos('<lat>',sl[i])>0 then lat := StrToFloat(Stringreplace(Stringreplace(Stringreplace(Trim(sl[i]),'<lat>','',[]),'</lat>','',[]),'.',',',[]))
           else if pos('<lng>',sl[i])>0 then lng := StrToFloat(Stringreplace(Stringreplace(Stringreplace(Trim(sl[i]),'<lng>','',[]),'</lng>','',[]),'.',',',[]));
        end;
      if pos('<location>',sl[i])>0 then IsIntrest := true;
    end;

 finally
  sl.Free;
 end;
 ShowMessage(FloatToStr(lat)+'-'+FloatToStr(lng))
end;


---Moderiert von user profile iconNarses: Beiträge zusammengefasst---

nicht ganz fertig aber ...

Delphi-Quelltext 
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:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
 
Function GetTempDir:String;
var
p:Pchar;
begin
p:=stralloc(255);
GetTempPath(255,p);
Result:=p;
strdispose(p);
end;


Function CleanUrl(const s:String):String;
begin
  Result :=StringReplace(
           StringReplace(
           StringReplace(
           StringReplace(s,'ß','ss',[rfReplaceAll])
           ,'ä','ae',[rfReplaceAll])
           ,'ü','ue',[rfReplaceAll])
           ,'ö','oe',[rfReplaceAll])
end;


Function GetLatLng(AURL:String;var lat,lng:Double):Boolean;
var

 i:Integer;
 sl:TStringList;
 IsIntrest:Boolean;
 LFilename:String;
begin
 sl:=TStringList.create;
 Result := false;
 try
 LFileName := IncludeTrailingBackSlash(GetTempDir)+'~tmp.xml';
 with TDownLoadURL.Create(nil) do
    begin
    Filename  := LFileName;
    URL := CleanUrl(AUrl);
       try
      ExecuteTarget(nil);
    except
    end;
    free;
    sl.LoadFromFile(LFileName);
    end;

  IsIntrest := false;
  for I := 0 to sl.Count - 1 do
    begin
      if pos('</location>',sl[i])>0 then IsIntrest := false;
      if IsIntrest then
        begin
           try
           if pos('<lat>',sl[i])>0 then lat := StrToFloat(Stringreplace(Stringreplace(Stringreplace(Trim(sl[i]),'<lat>','',[]),'</lat>','',[]),'.',',',[]))
           else if pos('<lng>',sl[i])>0 then lng := StrToFloat(Stringreplace(Stringreplace(Stringreplace(Trim(sl[i]),'<lng>','',[]),'</lng>','',[]),'.',',',[]));
           Result := (lat<>0) or (lng<>0);
           except
           end;
        end;
      if pos('<location>',sl[i])>0 then IsIntrest := true;
    end;

 finally
  sl.Free;
 end;

end;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!