Delphi 特尔斐TMS TWebCopy

我在Delphi 2010上有TMS TWebCopy 2.3

当我尝试这样做时：

procedure TForm1.WebCopy1Error(Sender: TObject; ErrorCode: Integer);
begin
showmessage('Error '+inttostr(ErrorCode));
end;

及

我没有得到任何错误！当我尝试下载5-10个文件时，WebCopy会通知我一次，但另一次不会。 WebCopy从URL创建名称为921935字节的空文件

对于

TForm1.WebCopy1ErrorInfo

，

TForm1.WebCopy1URLNotFound

，

TForm1.WebCopy1ConnectError

，情况相同。

---

我已经写信给TMS支持中心，我不知道他们是否回复了我任何建议。

如果你有消息来源，德尔福可能会重新编译TWebCopy。
隐式地将ansistring中的所有字符串替换为wideString

备份。
并将TWebCopy源中的所有

字符串

替换为

ansisting

。
重新编译，看看是否有帮助

或
找到TWebCopy的原始DCU，并将TWebCopy源置于安全位置

---

让Delphi使用原始DCU，而不是重新编译的宽字符串DCU。

此版本的组件支持unicode吗？如果没有，那么你需要从TMS购买一个升级，或者自己解决如何移植它。

 with webcopy1.items.add do
    begin
     url:='http://zcvhxhjcgv.com/asdfsag.zip';  //fictional url, error must appear
     targetdir:=tgt.text;
    end;