Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.057 Beiträge
 
Delphi XE2 Professional
 
#12

AW: ShellExecute liefert ERROR_ACCESS_DENIED

  Alt 23. Dez 2017, 18:37
Hallo Klaus (Amateurprofi), wie ruft Du ShowGoogleMaps auf? Ich wollte das Ganze mal ausprobieren mit einem Button und einem edit-Feld auf einer Form.
Die Geoposition wollte ich in das edit-Feld eintragen (welches Format haben diese?) und dann wollte ich per Button diese Pos. in GoogleMaps suchen lassen.
Irgendwie scheitere ich bei der Übergabe von (GP:TGeopos). Ich selle mich wohl zu blöd dazu an.
Wie in #1 gezeigt ist TGeoPos ein Record der die Felder Latitude und Longitude hat und diesen Record übergebe ich an ShowGoogleMaps.

Zum Beispiel:

var GP:TGeoPos;
begin
GP.Latituder:=50;
GP.Longitude:=10;
ShowGoogleMaps(GP);
end;

Das mache ich aber nur so, weil die Koordinaten ohnehin in dieser Form in meinem Programm vorliegen.
aber es spricht auch nichts dagegen die Prozedur z.B. so zu definieren
Procedure ShowGoogleMaps(GP:String);
und GP direkt aus deinem Edit zu übernehmen.
Dann sollte das Edit z.B. "53.567000,10.033000" enthalten, also Breitengrad und Längengrad durch ein Komma getrennt.
Im ShellExcute übergebe ich dann als Filename z.B. "http://maps.google.de/maps?q=53.567000,10.033000&z=12"
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat