レンタルクラウドに置いたデータを読み込むプログラムを作りたい。


AS  2015-01-17 00:34:12  No: 46960  IP: 192.*.*.*

数人にデータを配布するのにメールを使っていましたが、大きなプログラムなんかは添付できないので、レンタルクラウドを使って公開してダウンロードしてもらうことにしました。
データも同様にダウンロードしてもらうようにしましたが、直接プログラムから読み込む、ダウンロードするほうが手間が省けると思います。

どうしたいいでしょうか?
分かる人がいましたら、教えてください。

編集 削除
山本隆  2015-01-17 11:24:34  No: 46961  IP: 192.*.*.*

TIdHTTPコンポーネントでダウンロードするのはどうでしょうか。

var
  AStream: TFileStream;
begin
  AStream := TFileStream.Create('C:\tmp\sample.zip', fmCreate);
  IdHTTP1.Get('http://example.com/sample/soft/sample.zip', AStream);
  AStream.Free;
end;

編集 削除
AS  2015-01-19 15:41:42  No: 46962  IP: 192.*.*.*

今体調が悪くて、見ていませんでした。
回復次第、試してみます。
ありがとうございました。

編集 削除
AS  2015-03-18 04:11:07  No: 46963  IP: 192.*.*.*

すみません。
うまくいかないようです。
また、うまい方法がありましたらお願いします。

編集 削除
igy  2015-03-18 08:28:51  No: 46964  IP: 192.*.*.*

>うまくいかないようです。

具体的には、どのように“うまくいかない”のですか?
(エラーメッセージが表示するとか・・・)

編集 削除