TMS TWebCopy，德尔福答案

【问题标题】：TMS TWebCopy, DelphiTMS TWebCopy，德尔福
【发布时间】：2011-07-02 12:18:07
【问题描述】：

我在 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 的支持中心，我不知道他们是否给我任何建议。

【问题讨论】：

这个版本的组件支持unicode吗？如果没有，那么您将需要从 TMS 购买升级版，或者自己研究如何移植。

标签： delphi delphi-2010 tms

【解决方案1】：

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

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

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

【讨论】：