2

Delphi XE2 でインターネットからファイルをダウンロードしようとしていますが、何も起こりません。これが私のコードです：

uses URLMon;

...

procedure TForm1.Button1Click(Sender: TObject);
Const
  SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
  DestFile = 'c:\download\home_title.gif';
begin
  UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil);
end;

だから私の問題は次のとおりです。ボタンをクリックしても、プログラムはファイルをダウンロードしません。別のディレクトリにダウンロードしようとしましたが、他のファイルをダウンロードしようとしましたが、何もダウンロードしませんでした。私はそれを働かせることができません。

私は何を間違っていますか？

私を助けてください！

4

1 に答える 1

2

あなたのコードは正常に動作します。ほとんどの場合、問題はローカルの問題です。ネットワーク接続に問題がある可能性があります。または、ディレクトリ'c:\download'が存在しない可能性があります。

ローカルの問題を調査するには、関数によって返される値を書き留める必要がありますUrlDownloadToFile。それは成功HRESULTを示します。S_OKその他の値は失敗を示します。エラーコードが何であるかがわかれば、問題を追跡できるはずです。

そうは言っても、UrlDownloadToFile意味のあるエラーコードを返すのはうまくいかないようです。たとえば、DestFile存在しないフォルダーを含むパスを作成した場合でも、関数は を返しますS_OK。

于 2013-07-23T15:55:24.317 に答える