TMS TWebCopy

Question

我有TMS TWebCopy 2.3在德尔菲2010年。

当我尝试这样做的时候：

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

Answer 1

如果您有源代码，则Delphi可能会重新编译TWebCopy。

隐式地将AnsiStrings中的所有字符串替换为WideStrings。

备份.

并将所有的string替换为Ansistring中的TWebCopy源。

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

或

查找TWebCopy的原始DCU并排除TWebCopy源的危害

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