ShellExecute liefert ERROR_ACCESS_DENIED

[EdAdvokat]

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.

[himitsu]

Die Such-Syntax lautet
https://www.google.de/maps?q=suchbegriff&z=15

Er missbraucht das, da man auch nach Koordinaten suchen kann, anstatt sie anzugeben (zu beachten sind die Dezimaltrennzeichen in englischem Format)
http://maps.google.de/maps?q=51.0535283,13.7238866&z=15

Die korrekten URLs lauten z.B. wie folgt (mit @ wird die Angabe für Position und Zoom definiert)
https://www.google.de/maps/@51.0535283,13.7238866,15z
https://www.google.de/maps/search/suchbegriff/@51.0535283,13.7238866,15z
https://www.google.de/maps/place/Zwinger/@51.0535283,13.7238866,15z

[Delphi.Narium]

Eine Google-Maps-Urls sieht so aus:

Code:

https://www.google.de/maps/@53.5437308,9.9867191,15z

Allgemein:

Code:

http://maps.google.com/maps/@<lat>,<long>,<zoomfaktor>z

Delphi-Quellcode:

   sUrl := Format('https://www.google.de/maps/@%s,%s,%sz', [editLatitude.Text, editLongitude.Text, editZoomfaktor.Text]); 
   ShellExecute(0,'open',PWideChar(sUrl),nil,nil,SW_SHOWDEFAULT);

Hierbei gilt: Der Dezimalseparator in den Editfeldern ist der Punkt.

Zuerst aus den Zeichenfolgen der Editfelder Extended zu machen, um die dann in ShowGoogleMaps wieder in Zeichenfolgen zu verwandeln, halte ich für übertrieben.

[EdAdvokat]

Danke Delphin.Arium, so funktioniert es nun nur so als Test für mich:

Delphi-Quellcode:

 Pos1:=(edt1.text);
    Pos2:=(edt2.text);
    Pos3:=(edt3.text);

    sUrl := Format('https://www.google.de/maps/@%s,%s,%sz', [Pos1, Pos2, Pos3]);
   ShellExecute(0,'open',PChar(sUrl),nil,nil,SW_SHOWDEFAULT);

nochmals Danke

[Amateurprofi]

Zitat von EdAdvokat:

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"