Boa tarde amigos, meu nome é Sergio. Estou desenvolvendo um aplicativo móvel em Delhpi Berlin. é um navegador da Web móvel que eu uso para acessar um site que criei para fazer o download de arquivos PDF de pacientes de uma clínica. Eu acesso o site através do navegador mobile criado em Radx10 e coloco a chave de segurança. e vai para a próxima etapa que solicita a senha para baixar o arquivo pdf.
tudo isso foi feito em php e estar funcionando perfeitamente acessando de qualquer browser
mas se voces utilizarem um browser feito em delphi mobile android utilizando o componente TWEBBROWSER
voce aperta para baixar o arquivo e simplesmente não acontece nada
exatamente isso quando clico no botão de download, ele simplesmente não faz nada.Gostaria de saber se vocês poderiam me ajudar, porque eu já tentei de tudo e não pude fazê-lo. Ficaria muito grato se alguém pudesse me ajudar dar uma dica pois já estou sem cabelos inclusive já tentei ate baixar outros componentes mas parece que nem existe para
FMX somente VCL e não apenas neste site, mas também em qualquer outro site, se você tentar baixar um arquivo usando um navegador da Web que foi feito no delhpi usando o TWEBBROWSER o download, ele não será executado com o componente Twebbrowser
segue codigo da unit
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.WebBrowser,
FMX.StdCtrls, FMX.Controls.Presentation, FMX.Edit;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
ImageControl1: TImageControl;
Panel1: TPanel;
Button1: TButton;
ImageControl2: TImageControl;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}
procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
webbrowser1.URL: = edit1.text;
end;
end.
