Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
macdor300a

ajude-me sobre Download do delphi berlin webbrowser mobile

Question

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.

print.png

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148409
    • Total Posts
      643823
×
×
  • Create New...