erva

Any idea where i can change Object Inspector text color "Lila"(?) to something else. Can't see it at this age 🙂

I'am evaluating RemObjects Data Abstract and trying to get calculated field to show values at grid components column but it stays empty. I have in table's OnCalcField event this code: procedure TClientDataModule.tbl_tasksCalcFields(DataTable: TDADataTable); begin if DataTable.FieldByName('done').AsInteger = 1 then begin DataTable.FieldByName('isDone').AsWideString := 'Open'; end else DataTable.FieldByName('isDone').AsWideString := 'Done'; end; Also set field calculated property to true. I tested code above if it's gets executed adding there ShowMessage('Test') and it gets executed. Haven't been using Delphi 15 years and don't member if there's something that i'am missing in properties etc.....

I'am reading calls from Android call log. Date format is something that Delhi don't recognise. Date is returned like this: "1587377791601". Any idea what this number means and how to get date and time from it? Here's code what works, i have commented out lines what i don't want use. In commented lines is (StringToJString(...)) but it must be ( TJCallLog_Calls.JavaClass....) : var cursor: JCursor; uri: Jnet_Uri; CACHED_FORMATTED_NUMBER, CACHED_LOOKUP_URI, CACHED_MATCHED_NUMBER, CACHED_NAME, CACHED_NORMALIZED_NUMBER, CACHED_NUMBER_LABEL, CACHED_NUMBER_TYPE, CACHED_PHOTO_ID, CONTENT_ITEM_TYPE, CONTENT_TYPE, COUNTRY_ISO, DATA_USAGE, DATE, DEFAULT_SORT_ORDER, DURATION, EXTRA_CALL_TYPE_FILTER, FEATURES, IS_READ, LIMIT_PARAM_KEY, NEW, NUMBER, NUMBER_PRESENTATION, OFFSET_PARAM_KEY, PHONE_ACCOUNT_COMPONENT_NAME, PHONE_ACCOUNT_ID, TRANSCRIPTION, TYPEX, VOICEMAIL_URI : integer; msgunixtimestampms:int64; CACHED_FORMATTED_NUMBERx, CACHED_LOOKUP_URIx, CACHED_MATCHED_NUMBERx, CACHED_NAMEx, CACHED_NORMALIZED_NUMBERx, CACHED_NUMBER_LABELx, CACHED_NUMBER_TYPEx, CACHED_PHOTO_IDx, CONTENT_ITEM_TYPEx, CONTENT_TYPEx, COUNTRY_ISOx, DATA_USAGEx, DATEx, DEFAULT_SORT_ORDERx, DURATIONx, EXTRA_CALL_TYPE_FILTERx, FEATURESx, IS_READx, LIMIT_PARAM_KEYx, NEWx, NUMBERx, NUMBER_PRESENTATIONx, OFFSET_PARAM_KEYx, PHONE_ACCOUNT_COMPONENT_NAMEx, PHONE_ACCOUNT_IDx, TRANSCRIPTIONx, TYPEXx, VOICEMAIL_URIx : string; CallTime: TDateTime; Result: String; begin uri:=StrToJURI('content://call_log/calls'); cursor := SharedActivity.getContentResolver.query(uri, nil, nil,nil,nil); // CACHED_FORMATTED_NUMBER:=cursor.getColumnIndex(StringToJstring('CACHED_FORMATTED_NUMBER')); // CACHED_LOOKUP_URI:=cursor.getColumnIndex(StringToJstring('CACHED_LOOKUP_URI')); // CACHED_MATCHED_NUMBER:=cursor.getColumnIndex(StringToJstring('CACHED_MATCHED_NUMBER')); CACHED_NAME:=cursor.getColumnIndex( TJCallLog_Calls.JavaClass.CACHED_NAME ); // CACHED_NORMALIZED_NUMBER:=cursor.getColumnIndex(StringToJstring('CACHED_NORMALIZED_NUMBER')); // CACHED_NUMBER_LABEL:=cursor.getColumnIndex(StringToJstring('CACHED_NUMBER_LABEL')); // CACHED_NUMBER_TYPE:=cursor.getColumnIndex(StringToJstring('CACHED_NUMBER_TYPE')); // CACHED_PHOTO_ID:=cursor.getColumnIndex(StringToJstring('CACHED_PHOTO_ID')); // CONTENT_ITEM_TYPE:=cursor.getColumnIndex(StringToJstring('CONTENT_ITEM_TYPE')); // CONTENT_TYPE:=cursor.getColumnIndex(StringToJstring('CONTENT_TYPE')); // COUNTRY_ISO:=cursor.getColumnIndex(StringToJstring('COUNTRY_ISO')); // DATA_USAGE:=cursor.getColumnIndex(StringToJstring('DATA_USAGE')); DATE:=cursor.getColumnIndex( TJCallLog_Calls.JavaClass.DATE ); // DEFAULT_SORT_ORDER:=cursor.getColumnIndex(StringToJstring('DEFAULT_SORT_ORDER')); DURATION:=cursor.getColumnIndex( TJCallLog_Calls.JavaClass.DURATION ); // EXTRA_CALL_TYPE_FILTER:=cursor.getColumnIndex(StringToJstring('EXTRA_CALL_TYPE_FILTER')); // FEATURES:=cursor.getColumnIndex(StringToJstring('FEATURES')); // IS_READ:=cursor.getColumnIndex(StringToJstring('IS_READ')); // LIMIT_PARAM_KEY:=cursor.getColumnIndex(StringToJstring('LIMIT_PARAM_KEY')); // NEW:=cursor.getColumnIndex(StringToJstring('NEW')); // NUMBER:=cursor.getColumnIndex(StringToJstring('NUMBER')); // NUMBER_PRESENTATION:=cursor.getColumnIndex(StringToJstring('NUMBER_PRESENTATION')); // OFFSET_PARAM_KEY:=cursor.getColumnIndex(StringToJstring('OFFSET_PARAM_KEY')); // PHONE_ACCOUNT_COMPONENT_NAME:=cursor.getColumnIndex(StringToJstring('PHONE_ACCOUNT_COMPONENT_NAME')); // PHONE_ACCOUNT_ID:=cursor.getColumnIndex(StringToJstring('PHONE_ACCOUNT_ID')); // NUMBER_PRESENTATION:=cursor.getColumnIndex(StringToJstring('NUMBER_PRESENTATION')); // TRANSCRIPTION:=cursor.getColumnIndex(StringToJstring('TRANSCRIPTION')); // TYPEX:=cursor.getColumnIndex(StringToJstring('TYPE')); while (cursor.moveToNext) do begin // CACHED_FORMATTED_NUMBERx:=JStringToString(cursor.getString(CACHED_FORMATTED_NUMBER)); // CACHED_LOOKUP_URIx:=JStringToString(cursor.getString(CACHED_LOOKUP_URI)); // CACHED_MATCHED_NUMBERx:=JStringToString(cursor.getString(CACHED_MATCHED_NUMBER)); CACHED_NAMEx:=JStringToString(cursor.getString(CACHED_NAME)); // CACHED_NORMALIZED_NUMBERx:=JStringToString(cursor.getString(CACHED_NORMALIZED_NUMBER)); // CACHED_NUMBER_LABELx:=JStringToString(cursor.getString(CACHED_NUMBER_LABEL)); // CACHED_NUMBER_TYPEx:=JStringToString(cursor.getString(CACHED_NUMBER_TYPE)); // CACHED_PHOTO_IDx:=JStringToString(cursor.getString(CACHED_PHOTO_ID)); // CONTENT_ITEM_TYPEx:=JStringToString(cursor.getString(CONTENT_ITEM_TYPE)); // CONTENT_TYPEx:=JStringToString(cursor.getString(CONTENT_TYPE)); // COUNTRY_ISOx:=JStringToString(cursor.getString(COUNTRY_ISO)); // DATA_USAGEx:=JStringToString(cursor.getString(DATA_USAGE)); DATEx:=JStringToString(cursor.getString(DATE)); // DEFAULT_SORT_ORDERx:=JStringToString(cursor.getString(DEFAULT_SORT_ORDER)); DURATIONx:=JStringToString(cursor.getString(DURATION)); // EXTRA_CALL_TYPE_FILTERx:=JStringToString(cursor.getString(EXTRA_CALL_TYPE_FILTER)); // FEATURESx:=JStringToString(cursor.getString(FEATURES)); // IS_READx:=JStringToString(cursor.getString(IS_READ)); // LIMIT_PARAM_KEYx:=JStringToString(cursor.getString(LIMIT_PARAM_KEY)); // NEWx:=JStringToString(cursor.getString(NEW)); // NUMBERx:=JStringToString(cursor.getString(NUMBER)); // NUMBER_PRESENTATIONx:=JStringToString(cursor.getString(NUMBER_PRESENTATION)); // OFFSET_PARAM_KEYx:=JStringToString(cursor.getString(OFFSET_PARAM_KEY)); // PHONE_ACCOUNT_COMPONENT_NAMEx:=JStringToString(cursor.getString(PHONE_ACCOUNT_COMPONENT_NAME)); // PHONE_ACCOUNT_IDx:=JStringToString(cursor.getString(PHONE_ACCOUNT_ID)); // NUMBER_PRESENTATIONx:=JStringToString(cursor.getString(NUMBER_PRESENTATION)); // TRANSCRIPTIONx:=JStringToString(cursor.getString(TRANSCRIPTION)); // TYPEXx:=JStringToString(cursor.getString(TYPEX)); CallTime := StrToDateTime(DATEx); <- THIS DON'T WORK! Result := CACHED_NAMEx + ' ' + FormatDateTime('dd.mm.yyyy hh:mm:ss', CallTime) + ' ' + DURATIONx; ShowMessage(Result); end;

Solved the problem. Code is not "optimised" but works: CallTimeDouble := StrToInt64(DATEx) / 1000; //Gives seconds CallTimeDouble := CallTimeDouble / 60; //Gives Minutes CallTimeDouble := CallTimeDouble / 60; //Gives hours CallTimeDOuble := CallTimeDouble / 24; //Gives dates CallTimeDouble := CallTimeDouble + 25569; //01.01.1970 - 30.12.1899 CallTimeDouble := CallTimeDouble + 0.125; //Added +3h to GMT, Finland Result := CACHED_NAMEx + ' ' + NUMBERx + ' ' + FormatDateTime('dd.mm.yyyy hh:mm:ss', CallTimeDouble) + ' ' + DURATIONx; ShowMessage(Result);

I asked same question in Stackoverflow: https://stackoverflow.com/questions/61332432/delphi-getting-android-call-logs-date?noredirect=1#comment108504919_61332432 There's mentioned that value is number of millisecond since January 1, 1970, 00:00:00 GMT. This gets complicated....

Yes, i get same like results in app with real data with several calls DATEx what comes from call_log.

Is there way to access Android/iOS call history? In Android is permission to READ_CALL_LOG so it might be possible. Need to get calls phone number, is it incoming/outgoing and how long they lasted.

Managed to get data from call log. I have added code for it in this another post

Android 9. And in manifest is permissions.

I'am having same trouble, sometimes CallStateChange works, sometimes not. I haven't figured out why. Maybe if make Android Service, it works better. haven't tried it yet.

I been struggling with this too. What i have learned is that in Android you need to have permission to READ_CALL_LOG to get phone number. But i still have trouble get CallStateChange to trigger. With this solution i managed to get CallStateChange trigger, but it doesn't work always. Need to try making it Android Service and see if it works better: stackoverflow.com/questions/61215767/delphi-android-read-phone-state-not-triggering This is my code to get all three permissions: constructor TForm1.Create(AOwner: TComponent); const PermissionAccessReadPhoneState = 'android.permission.READ_PHONE_STATE'; PermissionAccessMakeCall = 'android.permission.CALL_PHONE'; PermissionAccessReadCallLog = 'android.permission.READ_CALL_LOG'; begin inherited Create(AOwner); PermissionsService.RequestPermissions([PermissionAccessMakeCall, PermissionAccessReadPhoneState, PermissionAccessReadCallLog], procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TpermissionStatus>) begin TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService)); if (Length(AgrantResults) = 3) and (AgrantResults[0] = TPermissionStatus.Granted) and (AgrantResults[1] = TPermissionStatus.Granted) and (AgrantResults[2] = TPermissionStatus.Granted) then begin ShowMessage('READ_PHONE_STATE + CALL_PHONE + READ_CALL_LOG Activated!'); end; end); if Assigned(PhoneDialerService) then begin PhoneDialerService.OnCallStateChanged := MyOnCallStateChanged; end; end;

Tested from Delphi Cookbook book phone dialing app. Works fine but instead of showing phone number at CallStateChanged, app shows some code like "9F62223E-Ao036-466E-A3EF-407105719798". In books picture of running app phone number shows ok. This is code to show CallStateChanged: procedure TMainForm.CallStateChanged(const ACallID: string; const AState: TCallState); begin lblCall.Items.Add(Format('%-16s %s', [ACallID, CallStateAsString(AState)])); end; I'am using iPhone, in book is pic of Android phone. Edit: Tested with Android. Seems like in Android no CallStateChange is detected at all.

Seems to be that Apple has prevent showing phone number. In Android you need to request permission at run time to get phone state. Managed to do that, but CallStateChange still not executing. Tested on two Android phones.

Where can i find compiled macOs app? I can launch app from Delphi in mac, but can't find compiled dng file from OSX64/Debug directory like windows .exe file

Thanks, found it. Didn't thought at all that i'am looking it from wrong computer:)

Is there way to read mobile network signal strength in iOS?

Thanks, that helped.

Ok, thanks. This leads to second question: Is there easy way to check if iPhone is connected to internet?

Hi, Android TLocation.LocationChanged crashes when executing code at line where variable lstDistance is calculated. iOS works fine. I have tried Double type instead of Extended type but with no help. In iOS both types work fine. If i change lstDistance := 1;, code works fine. Code is working Taximeter where charge is counted based on distance and time:) procedure TfrmMain.senLocationLocationChanged(Sender: TObject; const OldLocation, NewLocation: TLocationCoord2D); var Latitude1: Extended; Longitude1: Extended; Latitude2: Extended; Longitude2: Extended; lstDistance: Extended; begin //MATKAN MITTAUS Latitude1 := OldLocation.Latitude; Longitude1 := OldLocation.Longitude; Latitude2 := NewLocation.Latitude; Longitude2 := NewLocation.Longitude; lstDistance := ArcCos(Sin(DegToRad(Latitude1)) * Sin(DegToRad(Latitude2)) + Cos(DegToRad(Latitude1)) * Cos(DegToRad(Latitude2)) * Cos(DegToRad(Longitude2 - Longitude1))) * 6367000; // THESE LINES I HAVE COMMENTED OUT TO MAKE SURE THEY DON*T CAUSE CRASHING // lstDistance := lstDistance * 1.01; //Calibrointi // totDistance := totDistance + lstDistance; // // //COUNT OF MEASUREMENTS // mitattuKpl := mitattuKpl + 1; // // //DISTANCE IN EUROS // matkaE := totDistance * (0.99 / 1000); // // TIME IN EUROS // aikaLopetus := Now; // kyydinKesto := aikaLopetus - aikaAloitus; // aikaE := ((24*60)*0.89)*kyydinKesto; // summaE := lahtoE + matkaE + aikaE; // // //UPDATE LABELS // lblLongitude.Text := Format('%2.6f', [NewLocation.Longitude]); // lblLatitude.Text := Format('%2.6f', [NewLocation.Latitude]); // lblMitattu.Text := Format('%2.2f', [lstDistance]); // lblMatka.Text := Format('%2.2f', [totDistance]); // lblMittauksia.Text := IntToStr(mitattuKpl); // lblLahto.Text := Format('%2.2f', [lahtoE]); // lblKmE.Text := Format('%2.2f', [matkaE]); // lblAikaE.Text := Format('%2.2f', [aikaE]); // lblSumma.Text := Format('%2.2f', [summaE]); end;

Yes, now it's working. Thank you!

Is there way to prevent iOS automatically lock screen? I'am my self using one fitness app and it stays visible when doing workout, so it should be possible.