TMS TWebCopy、德尔福

Question

我在 Delphi 2010 上有 TMS TWebCopy 2.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 创建空文件，其名称来自 URL，大小为 921、935 字节。

TForm1.WebCopy1ErrorInfo、TForm1.WebCopy1URLNotFound、TForm1.WebCopy1ConnectError 的情况相同。 我已经写信给TMS的支持中心，我不知道他们是否回复我任何建议。

Answer 1

如果您有源代码，Delphi 可能会重新编译 TWebCopy。
将 AnsiStrings 中的所有字符串隐式替换为 WideStrings。

进行备份。
并将 TWebCopy 源中的所有 string 替换为 Ansistring。
重新编译看看是否有帮助。

或
找到TWebCopy的原始DCU，让TWebCopy源码远离危害
并让Delphi使用原始的DCU，而不是重新编译的Widestringed DCU。