Aplicación con problemas de acceso a la red.

[Casimiro Noteví]

Pues si no das más pistas

[voci]

Empezado por Casimiro Notevi

Pues si no das más pistas

Pues no se que más decir, tengo dos *.apk, uno compilado por la compañía creadora del componente que funciona en todos los android, otro compilado por mi, con el mismo código, ó eso creo ya que pesa exactamente lo mismo, funciona en versiones de android < 11.

El problema es que aunque el proyecto lo compilo yo, el componente en si ya viene compilado, pero entiendo al ser el peso de ambos apks exactamente el mismo que no puede estar ahí el problema.

El resultado en mi móvil con versión 13 de android es el que se muestra a continuación, a la izquierda el compilado por mi y a la derecha el compilado por ellos.



En cuanto a los permisos, la aplicación compilada por ellos tiene todos los permisos denegados, la verdad es que para lo que hace la aplicación no los necesita.



Las dos versiones se pueden descargar desde el enlace que puse en el mensaje inicial.

Si se me ha pasado algo por alto dímelo y lo miro.

Saludos.

[Casimiro Noteví]

¿Ambas usan el mismo navegador?

[voci]

Empezado por Casimiro Notevi

¿Ambas usan el mismo navegador?

No usa el navegador para reproducir la cámara, aunque como digo el componente en si ya está compilado, el código de la unidad a compilar es este:

unit Main;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
  FMX.ExtCtrls, FMX.Surfaces, FMX.StdCtrls, FMX.Edit, FMX.Controls.Presentation,
  VideoStream;

type
  TFormMain = class(TForm)
    ImageViewer: TImageViewer;
    Panel: TPanel;
    EditUrl: TEdit;
    ButtonStartStop: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ButtonStartStopClick(Sender: TObject);
  private
    { Private declarations }
    VideoClient: TVideoClient;
    BitmapSurface: TBitmapSurface;
    WasRealignContent: Boolean;
    procedure ImageAvailable(JpegImage: TByteDynArray);
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.fmx}

procedure TFormMain.FormCreate(Sender: TObject);
begin
  BitmapSurface := TBitmapSurface.Create;

  VideoClient := TVideoClient.Create;
  VideoClient.OnImageAvailable := ImageAvailable;
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  VideoClient.Free;
  BitmapSurface.Free;
end;

procedure TFormMain.ButtonStartStopClick(Sender: TObject);
begin
  if not VideoClient.Active then
  begin
    VideoClient.Url := EditUrl.Text;
    VideoClient.Active := True;
    ButtonStartStop.Text := 'Stop';
    EditUrl.Enabled := False;
  end
  else
  begin
    VideoClient.Active := False;
    ButtonStartStop.Text := 'Start';
    EditUrl.Enabled := True;
  end
end;

procedure TFormMain.ImageAvailable(JpegImage: TByteDynArray);
var Stream: TBytesStream;
begin
  Stream := TBytesStream.Create(TBytes(JpegImage));
  try
    TBitmapCodecManager.LoadFromStream(Stream, BitmapSurface);
  finally
    Stream.Free;
  end;

  ImageViewer.Bitmap.Assign(BitmapSurface);

  // workaround for Android
  if not WasRealignContent then
  begin
    ImageViewer.RealignContent;
    WasRealignContent := True;
  end;
end;

end.

Saludos.

[jhonalone]

Hola, voci.
Hace bastante que no hago cosas con Delphi.
Ahora con las nuevas exigencias de Google Play, he vuelto a retomar para actualizar algunas app's que tengo subidas y voy a necesitar de vuestra ayuda. Por éso estoy aquí.
He comprobado que en mi Android 13 fallan app's que funcionan en mi Android 9.
También he observado que cuando rebajas el SDK objetivo también funcionan en Android 13.
Si tu app no necesitas subirla a Google Play, puedes probar a rebajar el SDK en el AndoridManifest.
Es una idea.
Saludos a todos.