delphi xe2 ios firemonkeyにhttp.getを使用するにはどうすればよいですか？

Question

メモのページのソースコードを取得するためのコンポーネントまたはコード。 あなたが

Answer 1

//It works on Win32/Win64/OS X ! 

procedure TMainForm.Button_DownloadClick(Sender: TObject); 
const 
    URL  = 'http://web.t-online.hu/karpo/downloads/3dc32480.zip'; 

var 
    fsSource: TFileStream; 
    FILENAME_Local: String; 

begin 
    {$IFDEF MSWINDOWS} 
    FILENAME_Local:=ExtractFilePath(ParamStr(0))+'proba.zip'; 
    {$ENDIF} 

    {$IFDEF MACOS}    //OS X user ! 
    FILENAME_Local:='/users/zoltankarpati/public/proba.zip'; 
    {$ENDIF} 

    if FileExists(FILENAME_Local) then 
    begin 
    fsSource := TFileStream.Create(FILENAME_Local, fmOpenWrite); 
    end 
    else 
    begin 
    fsSource := TFileStream.Create(FILENAME_Local, fmCreate); 
    end; 

    try 
    IdHTTP.Get(URL, fsSource); 
    finally 
    fsSource.Free; 
    end; 
end;