iOS Question Problem uploading App to Apple Store

[Txemaib]

Good afternoon

I have a problem after uploading my app to the Apple Store.

When Apple technicians test the app to validate it, an error appears. After doing various tests, I have located the error in these instructions:



Dim Jobe As HttpJob

Jobe.Initialize("DatosEntidad", Me)

Jobe.Download2(strURL & "entidad_leer.php", Array As String("cod", ENT_COD))

Wait For JobDone(Jobe As HttpJob)

If Jobe.Success Then

Dim parser As JSONParser

Dim Members As List

parser.Initialize(Jobe.GetString)

Members = parser.NextArray

For i = 0 To Members.Size - 1

Dim rsEnt As Map

rsEnt = Members.Get(i)

.

.

Next

Else


You get out through here


End If

Jobe.Release



In July 2024 I uploaded the App and there were no problems. This part of the program is the same. It has not received any modifications.



I have used these two libraries and the result is the same

iHttpUtils2 Vrs. 3.0
OkHttpUtils2 Vrs. 3.1


I also use minimum version = 12

#MinVersion: 12

Apple technicians cause the error on these devices:

- Device type: iPad Air (5th generation)
- OS version: iPadOS 18.3

I don't know if I should use libraries with a more recent version since a few months ago or if these instructions can no longer be used in B4i.

When I compile the App on my iPhone7 it works correctly. I have previously uninstalled it so that there are no traces of versions that worked correctly.

In case anyone is going to ask, I have tried to access other .php files both to read and to write data and the result is the same, it does not go through Jobe.Success.

I use B4i 8.10

I would appreciate any kind of help

 

[Andrew (Digitwell)]

It usually helps to use the code styling to display code.

Dim Jobe As HttpJob

Jobe.Initialize("DatosEntidad", Me)

Jobe.Download2(strURL & "entidad_leer.php", Array As String("cod", ENT_COD))

Wait For JobDone(Jobe As HttpJob)

If Jobe.Success Then

Dim parser As JSONParser

Dim Members As List

parser.Initialize(Jobe.GetString)

Members = parser.NextArray

For i = 0 To Members.Size - 1

Dim rsEnt As Map

rsEnt = Members.Get(i)

.

.

Next

Else


You get out through here


End If

Jobe.Release

What was the error and how did you decide it was this code.

 

[Txemaib]

It usually helps to use the code styling to display code.

Dim Jobe As HttpJob

Jobe.Initialize("DatosEntidad", Me)

Jobe.Download2(strURL & "entidad_leer.php", Array As String("cod", ENT_COD))

Wait For JobDone(Jobe As HttpJob)

If Jobe.Success Then

Dim parser As JSONParser

Dim Members As List

parser.Initialize(Jobe.GetString)

Members = parser.NextArray

For i = 0 To Members.Size - 1

Dim rsEnt As Map

rsEnt = Members.Get(i)

.

.

Next

Else


You get out through here


End If

Jobe.Release

What was the error and how did you decide it was this code.

 

[aeric]

Wait For JobDone(Jobe As HttpJob)

This line is wrong.
It should be:

Wait For (Jobe) JobDone(Jobe As HttpJob)

iHttpUtils2 Vrs. 3.0
OkHttpUtils2 Vrs. 3.1

I don't think you need OkHttpUtils2. Just use iHttpUtils2.

 

[Txemaib]

There is no specific error. I put messages after each line and checked that the sequence of instructions does not go through “If Jobe.Success then” but instead goes through “else”

 

[aeric]

You get out through here

Not sure what you mean here.
If you want to debug the error then you should write:

Log(Jobe.ErrorMessage)

 

[Txemaib]

This line is wrong.
It should be:

Wait For (Jobe) JobDone(Jobe As HttpJob)

I don't think you need OkHttpUtils2. Just use iHttpUtils2.

I have also used
Wait For (Jobe) JobDone(Jobe As HttpJob
and the result is the same

Not sure what you mean here.
If you want to debug the error then you should write:

Log(Jobe.ErrorMessage)

 

[Txemaib]

When I compile the App on my iPhone7 it works correctly.
So I can't test it with debug

 

[aeric]

When Apple technicians test the app to validate it, an error appears.

What was the error message?