我如何将 http.get 用于 delphi xe2 ios firemonkey？

【问题标题】：How can i use the http.get for delphi xe2 ios firemonkey?我如何将 http.get 用于 delphi xe2 ios firemonkey？
【发布时间】：2011-12-29 11:18:54
【问题描述】：

组件或代码用于获取备忘录中页面的源代码。谢谢

【问题讨论】：

这个question 应该会有所帮助。查看接受的答案。
使用 idhttp 然后 var http:idhhtp http.create http.get(url) http.destroy 但是在 firemonkey 中编译时说无法创建该表单并显示命令 /bin/sh 失败并退出代码 1.. 有其他方法可以成功吗？

标签： delphi http delphi-xe2 firemonkey

【解决方案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;

【讨论】：