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


AS  2015-01-17 09:34:12  No: 46960  IP: [192.*.*.*]

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

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

編集    削除
山本隆  2015-01-17 20: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-20 00:41:42  No: 46962  IP: [192.*.*.*]

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

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

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

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

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

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

編集    削除