Delphi2010にTMSTWebCopy2.3があります。
私がこれをやろうとすると:
procedure TForm1.WebCopy1Error(Sender: TObject; ErrorCode: Integer);
begin
showmessage('Error '+inttostr(ErrorCode));
end;
と
with webcopy1.items.add do
begin
url:='http://zcvhxhjcgv.com/asdfsag.zip'; //fictional url, error must appear
targetdir:=tgt.text;
end;
エラーは発生していません。5〜10個のファイルをダウンロードしようとすると、WebCopyは1回通知できますが、別のファイルは通知できません。WebCopyは、サイズ921、935バイトのURLから名前を持つ空のファイルを作成します。
TForm1.WebCopy1ErrorInfo
、、、TForm1.WebCopy1URLNotFound
の同じ状況TForm1.WebCopy1ConnectError
。私はTMSのサポートセンターに手紙を書きましたが、彼らが私に提案を返すかどうかはわかりません。