Jump to content

Arsl01

Members
  • Content Count

    9
  • Joined

  • Last visited

Posts posted by Arsl01


  1. procedure TForm1.AndroidBroadcastReceiver2Receive(csContext: JContext; csIntent: JIntent);
    var
      Bundle: JBundle;
      PDUs: TJavaObjectArray<JObject>;
      Sms: JSmsMessage;
      Sender, MessageBody: string;
      I: Integer;
      PDU: TJavaArray<Byte>;
    begin
      try
        memo1.Lines.Add('SMS received.');
    
        // Intent kontrolü
        if not csIntent.getAction.equals(StringToJString('android.provider.Telephony.SMS_RECEIVED')) then
        begin
          memo1.Lines.Add('This intent is not SMS_RECEIVED.');
          Exit;
        end;
    
        // Bundle al
        Bundle := csIntent.getExtras;
        if Bundle = nil then
        begin
          memo1.Lines.Add('Bundle is empty.');
          Exit;
        end;
    
        // pdus anahtarını kontrol et
        if not Bundle.containsKey(StringToJString('pdus')) then
        begin
          memo1.Lines.Add('pdus key not found.');
          Exit;
        end;
    
        // pdus değerini al
        PDUs := Bundle.get(StringToJString('pdus')) as TJavaObjectArray<JObject>;
        if PDUs = nil then
        begin
          memo1.Lines.Add('Failed to convert PDUs.');
          Exit;
        end;
    
        memo1.Lines.Add('PDUs successfully retrieved.');
    
        // PDUs içindeki her bir PDU'yu işle
        for I := 0 to PDUs.Length - 1 do
        begin
          // Her bir PDU öğesini byte array'e dönüştür
          PDU := TJavaArray<Byte>.Wrap((PDUs.Items[I] as ILocalObject).GetObjectID);
    
          // PDU'yu SmsMessage'e dönüştür
          Sms := TJSmsMessage.JavaClass.createFromPdu(PDU);
    
          // Gönderen ve mesaj içeriğini al
          Sender := JStringToString(Sms.getDisplayOriginatingAddress);
          MessageBody := JStringToString(Sms.getMessageBody);
    
          // Gönderen ve mesajı logla
          memo1.Lines.Add('Sender: ' + Sender);
          memo1.Lines.Add('Message: ' + MessageBody);
        end;
    
      except
        on E: Exception do
          memo1.Lines.Add('General error: ' + E.Message);
      end;
    end;

    Hello everyone,

    I'm working on an SMS receiver application using Delphi FMX. I can successfully create the receiver and access the PDU key, but the PDU content is not coming through, and as a result, I am unable to read the SMS content.

    The app is set as the default SMS application. However, I've spent a lot of time on this issue and still can't find a solution. Has anyone encountered a similar issue or have any suggestions on how to resolve this?

    Thank you in advance for your help.

     

     


  2. Hello, I simply want to change the rotate feature of the mark I added on the map, while it does this on the android part, it does not react on the ios part.
    How can I change the direction of a mark in ios.

     

     

    var
    MyMarker: TMapMarkerDescriptor;
    degree:integer;
    begin
     MyMarker := TMapMarkerDescriptor.Create(Position, 'Here');
     MyMarker.Icon := ImageList2.Bitmap(TSizeF.Create(64, 64), 10);
     Derece:= degreecal();
     MyMarker.Rotation := degree;
     
     MyMarker.Draggable := false;
     MyMarker.Visible := true;
     MyMarker.Title := title;
     MyMarker.Snippet := '(' + Position.Latitude.ToString + ' - ' +
       Position.Longitude.ToString + ')';
     loc := MapView1.AddMarker(MyMarker);
     FMarkersboat.add(loc);
    end;

     


  3. ITMS-90793: Missing fonts - The com.apple.developer.user-fonts entitlement is present with the system-installation value, yet no fonts were detected in the app. Please remove the system-installation entitlement value or make sure to include your fonts and resubmit.


  4. Hello again, the full error message is as follows

     Mosco 1.2.1
    2021.12.06 22:33:06.065 Server is now: Active on Port: 8088
    2021.12.06 22:33:06.065 Local addresses (may or may not be bound to any or all):
    2021.12.06 22:33:06.065 192.168.139.128
    2021.12.06 22:34:42.415 Executing: /usr/bin/xcodebuild -exportArchive -archivePath "/Users/macuser/PAServer/scratch-dir/muharrem-sanalmac/NorthPLus.archive" -exportPath "/Users/macuser/PAServer/scratch-dir/muharrem-sanalmac" -exportOptionsPlist "/Users/macuser/PAServer/scratch-dir/muharrem-sanalmac/NorthPLus.archive/exportOptions.plist"
    2021.12.06 22:34:48.060 Export Archive failed with exit code: 70 - ** EXPORT FAILED **

     

×