android - Delphi XE5 TLocationServices on Samsung Galaxy 2 not using GPS -
i have simple app should return current gps location, code below, based on tutorial provided embarcadero. when executed, gps icon of samsung not display , location returned 100m off true location. i've experimented various valued 'accuracy' , tried setting 'accuracy' both before , after setting object active - no change in behaviour. other apps i've obtained, including 'maps' comes galaxy, show gps icon when in use , return correct positioning. with gps icon not display, i'm assuming app not using gps - how instruct so? (fine location permissioned) procedure theaderfooterform.formcreate(sender: tobject); begin locationsensor1.active := true; locationsensor1.optimize := true; locationsensor1.accuracy := 100000; locationsensor1.distance := 0; end; procedure theaderfooterform.locationsensor1locationchanged(sender: tobject; const oldlocation, newlocation: tlocationcoord2d); var urlstring: string; urlloadfile: tstr...