Aplicación con problemas de acceso a la red.

[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.