Delphi XE2 Firemonkey Файл Загрузить? - PullRequest
Новая
       7

Delphi XE2 Firemonkey Файл Загрузить?

2 голосов
/ 16 марта 2012

Как я могу загрузить файл через URL-адрес в Firemonkey, который совместим как в Windows, так и в MacOS X? загрузка должна быть более https.

1 Ответ

4 голосов
/ 16 марта 2012

Indy, поставляемый с XE2, поддерживает Mac OSX.
См .: Поддерживает ли Delphi XE2 FireMonkey Indy для кроссплатформенных приложений?

Вот рабочий процесс: 

File-> New (Firemonkey HD app)
Add Mac OSX as target platform
Place a TIdHTTP component on the form
Place a TEdit on the form

Следующий код должен получить элементарные результаты 

type
  TForm16 = class(TForm)
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    procedure Edit1Enter(Sender: TObject);
  public
    MyFile: TFileStream;
  end;

implementation

{$R *.fmx}

procedure TForm16.Edit1Enter(Sender: TObject);
var
  Success: boolean;
begin
  if (MyFile = nil) then try
    //Correct path handling to be added
    //filename should be extracted from the url etc etc.
    MyFile:= TFileStream.Create('Test.dat',fmCreate);
    Success:= true;
  except
    Success:= false;
  end;
  if Success then begin
    IdHTTP1.Get(Edit1.Text, MyFile);
    //do stuff with the file
  end;
end;

Одним словом, сначала убедитесь, что он работает с http, https может быть сложнее настроить.
Также убедитесь, что у вас установлена ​​последняя версия Indy и последние обновления XE2.

...