Ir para conteúdo
Fórum Script Brasil
  • 0

ajude-me sobre Download do delphi berlin webbrowser mobile


macdor300a

Pergunta

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

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...