Please advise how to make this js code work - thanks in advance.
procedure TMainmForm.UnimButton1Click(Sender: TObject);
begin
UniSession.AddJS(
'navigator.geolocation.getCurrentPosition(success, fail) '+
'success(position)'+
'{ '+
' alert("Your latitude: " + position.coords.latitude + "longitude: " + position.coords.longitude); '+
'} '+
'fail(error)'+
'{ '+
' switch(error.code) '+
' { '+
' case 0: '+ // UnKown
' alert(error.message); '+
' break; '+
' case 1: '+ // Denied
' alert(error.message); '+
' break; '+
' case 2: '+ // UnAvailable
' alert(error.message); '+
' break; '+
' case 3: '+ // TimeOut
' alert(error.message); '+
' break; '+
' } '+
'} '
);
end;
