Jump to content
Fórum Script Brasil

macdor300a

Membros
  • Content Count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutro

About macdor300a

  1. 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.
×
×
  • Create New...