delphi - Delphi XE2 Firemonkey文件下载？

Question

如何在Windows和MacOS X兼容的firemonkey中的URL上下载文件？下载应通过https。

Answer 1

XE2随附的Indy支持Mac OSX。
参见：Does Delphi XE2 FireMonkey support Indy for cross-platform apps?

这是工作流程：

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更新。