delphi - 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's 替换为Ansistring。
重新编译，看看是否有帮助。

或者
找到 TWebCopy 的原始 DCU 并将 TWebCopy 源排除在外，
让 Delphi 使用原始 DCU，而不是重新编译的 Widestringed DCU。